方程式置中，編號靠右的巨集

[shyfang (半個願望)]

某天心血來潮在微軟的官網上找到的，其實也蠻挫的，
執行巨集後，會建三欄的表格，格式的設定是中間置中，第三欄靠右，就這樣而已。
匯入巨集前最好將word的安全設定調成中級，關掉後再打開使用。
有興趣可以拿來玩玩


Sub CaptionRight()

      Dim Align As Integer
      On Error GoTo bye
      If Selection.Information(wdWithInTable) Then
         MsgBox "You are in a table. Please move outside of the " _
            & "table to run this macro.", vbInformation
         Exit Sub
      End If
      Align = MsgBox("Would you like the Equation to be " _
               & "centered? (Selecting No will left-align the " _
               & "Equation.)", vbYesNoCancel)
      If Align > 2 Then
         Selection.InsertParagraphAfter
         Selection.Collapse (wdCollapseEnd)
         W = ActiveDocument.PageSetup.PageWidth
         L = ActiveDocument.PageSetup.LeftMargin
         R = ActiveDocument.PageSetup.RightMargin
         RTMarg = W - R - L
         CaptionLabels.add Name:="("
         If Align = 6 Then
            tblT1 = Selection.Tables.add(Selection.Range, 1, 3)
         Else
            tblT1 = Selection.Tables.add(Selection.Range, 1, 2)
         End If
         tblT1.Select
         With Selection
            If Align = 6 Then
               .Columns(1).Cells.Width = 50.4
               .Columns(3).Cells.Width = 50.4
               .Columns(2).Cells.Width = RTMarg - 100.8
               'Represents 1.5" in Points
            Else
               .Columns(2).Cells.Width = 50.4
               .Columns(1).Cells.Width = RTMarg - 50.4
                 'Represents .75" in Points
            End If
            .InsertCaption Label:="(", _
               Position:=wdCaptionPositionBelow, Title:= " )"
            .HomeKey unit:=wdLine, Extend:=wdExtend
            .Cut
            .MoveRight unit:=wdCharacter, Extend:=wdExtend
            .Delete
            .MoveLeft unit:=wdCharacter, Count:=2
            .Paste
            .Rows(1).Select
            For Each x In Selection.Borders
               x.LineStyle = wdLineStyleNone
            Next x
            .Borders.Shadow = False
            .Cells(9 - Align).Select
            .ParagraphFormat.Alignment = wdAlignParagraphRight
            .Cells(1).VerticalAlignment = wdCellAlignVerticalCenter
            .Font.Bold = True
            .Rows(1).Select
            If Align = 6 Then
               .Cells(2).Select
               .ParagraphFormat.Alignment = wdAlignParagraphCenter
               .InlineShapes.AddOLEObject ClassType:="Equation.3", _
                   FileName:="", LinkToFile:=False, DisplayAsIcon:=False
            Else
               .Collapse
               .InlineShapes.AddOLEObject ClassType:="Equation.3", _
                 FileName:="", LinkToFile:=False, DisplayAsIcon:=False
            End If
         End With
      End If
   End Sub


--
※ 發信站: 批踢踢實業坊(ptt.cc) 
◆ From: 210.244.14.139
推 roussas:有這種東西真是福音啊...只是會讓人怕怕的..orz
推 Masaki2005:抖抖