我想爲表格格式創建一個Word宏

-3

我想要創建一個Word宏，只需單擊一下即可完成以下任務。請幫幫我。我有一個大文件，這對我來說很麻煩。我想爲表格格式創建一個Word宏

任務包括一個表的格式化如

表寬11釐米，
左對齊，
字體TNR 10，
邊界黑，從左邊是零
縮進。

來源

2017-01-21 Rajesh Kumar Rai

確定。前進。使用Word宏錄製器，並格式化表格（在另一個文檔中創建一個小表格）。當你完成後，停止錄製和...瞧！你有一個宏！將其複製到您的真實文檔中，對您的實際表格進行任何更改以完成設置。 –

我得到了宏代碼.... 謝謝..

子宏1（）

With Selection.tables(1) 
    .Rows.HeightRule = wdRowHeightAuto 
    .PreferredWidthType = wdPreferredWidthPoints 
    .PreferredWidth = CentimetersToPoints(11) 
End With 


With Selection.Borders(wdBorderTop) 
    .LineStyle = Options.DefaultBorderLineStyle 
    .LineWidth = Options.DefaultBorderLineWidth 
    .Color = Options.DefaultBorderColor 

End With 
With Selection.Borders(wdBorderLeft) 
    .LineStyle = Options.DefaultBorderLineStyle 
    .LineWidth = Options.DefaultBorderLineWidth 
    .Color = Options.DefaultBorderColor 
End With 
With Selection.Borders(wdBorderBottom) 
    .LineStyle = Options.DefaultBorderLineStyle 
    .LineWidth = Options.DefaultBorderLineWidth 
    .Color = Options.DefaultBorderColor 
End With 
With Selection.Borders(wdBorderRight) 
    .LineStyle = Options.DefaultBorderLineStyle 
    .LineWidth = Options.DefaultBorderLineWidth 
    .Color = Options.DefaultBorderColor 
End With 
With Selection.Borders(wdBorderVertical) 
    .LineStyle = Options.DefaultBorderLineStyle 
    .LineWidth = Options.DefaultBorderLineWidth 
    .Color = Options.DefaultBorderColor 
End With 
    With Selection.Borders(wdBorderHorizontal) 
    .LineStyle = Options.DefaultBorderLineStyle 
    .LineWidth = Options.DefaultBorderLineWidth 
    .Color = Options.DefaultBorderColor 
End With 
Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft 
With Selection.ParagraphFormat 
    .LeftIndent = CentimetersToPoints(0) 
    .RightIndent = CentimetersToPoints(0) 
    .SpaceBefore = 0 
    .SpaceBeforeAuto = False 
    .SpaceAfter = 0 
    .SpaceAfterAuto = False 
    .LineSpacingRule = wdLineSpaceSingle 
    .Alignment = wdAlignParagraphLeft 
    .WidowControl = True 
    .KeepWithNext = False 
    .KeepTogether = False 
    .PageBreakBefore = False 
    .NoLineNumber = False 
    .Hyphenation = True 
    .FirstLineIndent = CentimetersToPoints(0) 
    .OutlineLevel = wdOutlineLevelBodyText 
    .CharacterUnitLeftIndent = 0 
    .CharacterUnitRightIndent = 0 
    .CharacterUnitFirstLineIndent = 0 
    .LineUnitBefore = 0 
    .LineUnitAfter = 0 
    .MirrorIndents = False 
    .TextboxTightWrap = wdTightNone 
    .CollapsedByDefault = False 
End With 
With Selection.ParagraphFormat 
    .LeftIndent = CentimetersToPoints(0) 
    .RightIndent = CentimetersToPoints(0) 
    .SpaceBefore = 0 
    .SpaceBeforeAuto = False 
    .SpaceAfter = 0 
    .SpaceAfterAuto = False 
    .LineSpacingRule = wdLineSpaceSingle 
    .Alignment = wdAlignParagraphLeft 
    .WidowControl = True 
    .KeepWithNext = False 
    .KeepTogether = False 
    .PageBreakBefore = False 
    .NoLineNumber = False 
    .Hyphenation = True 
    .FirstLineIndent = CentimetersToPoints(0) 
    .OutlineLevel = wdOutlineLevelBodyText 
    .CharacterUnitLeftIndent = 0 
    .CharacterUnitRightIndent = 0 
    .CharacterUnitFirstLineIndent = 0 
    .LineUnitBefore = 0 
    .LineUnitAfter = 0 
    .MirrorIndents = False 
    .TextboxTightWrap = wdTightNone 
    .CollapsedByDefault = False 
End With 

    With Selection.tables(1).Rows 
    .Alignment = wdAlignRowLeft 
    .AllowBreakAcrossPages = True 
    .SetLeftIndent LeftIndent:=CentimetersToPoints(0), RulerStyle:= _ 
     wdAdjustNone 
End With

末次

來源

2017-01-22 05:56:02

我想爲表格格式創建一個Word宏

回答

相關問題