某天心血來潮在微軟的官網上找到的，其實也蠻挫的， 執行巨集後，會建三欄的表格，格式的設定是中間置中，第三欄靠右，就這樣而已。 匯入巨集前最好將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