某天心血来潮在微软的官网上找到的，其实也蛮挫的， 执行巨集後，会建三栏的表格，格式的设定是中间置中，第三栏靠右，就这样而已。 汇入巨集前最好将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