引言

在學習程式設計的過程中，常常會使用word來做筆記，下面我將對如何利用word巨集來進行程式碼的排版進行說明

1.工具

　　我用的是word2007，word2003和word2010操作也差不多

2.基本操作

　　從visual studio、QT、Android studio複製程式碼到word時，通常都會自帶高光的，直接複製貼上到word就行了。
　　但是作為一個精緻的程式媛，怎麼可能只滿足這麼點要求呢，我們通常看到的程式碼除了高光，還有灰色的背景和程式碼行號，下面才是我想介紹的重點了。
　　話不多說，為了不耽擱各位時間，先上圖，看完圖感興趣的就接著看，覺得沒什麼用的看完圖就可以先撤退了。

3.實現方法

　　開啟word，利用Alt +F11，可以進入VBA，然後在“Normal -> 模組”，右鍵選擇“插入模組”就行了，然後進行程式碼編寫。（Normal是Word開啟時會自動載入的一個模板檔案，把巨集放在這裡，可以保證在任意一個Word文件中都能呼叫。）

部分程式碼

 '統計行數
    Dim wordCount, lineCount
    Set myRange = Selection.Range
    lineCount = myRange.ComputeStatistics(Statistic:=wdStatisticLines) 
 

    '插入1*2的表格
    ActiveDocument.Tables.Add Range:=Selection.Range, NumRows:=1, 

NumColumns:= _
        2, DefaultTableBehavior:=wdWord9TableBehavior, 

AutoFitBehavior:= _
        wdAutoFitFixed
    With Selection.Tables(1)
        If .Style <> "網格型" Then
            .Style = "網格型"
        End
 
 If
        .ApplyStyleHeadingRows = True
        .ApplyStyleLastRow = False
        .ApplyStyleFirstColumn = True
        .ApplyStyleLastColumn = False
        .ApplyStyleRowBands = True
        .ApplyStyleColumnBands = False
    End With

    '設定程式碼行號   
    For i = 1 To lineCount - 1
        Selection.ParagraphFormat.LineSpacingRule = 

wdLineSpaceExactly
        Selection.ParagraphFormat.LineSpacing = 12
        Selection.Font.Size = 11
        Selection.Font.Color = Black
        Selection.Font.Name = Tahoma
        Selection.TypeText Text:=i
        Selection.TypeParagraph '換行              
    Next
    Selection.TypeText Text:=lineCount

   Selection.Tables(1).Select
      ' 背景色為morning的配色方案，RGB為(229,229,229)
    With Selection.Tables(1)
        With .Shading
            .Texture = wdTextureNone
            .ForegroundPatternColor = wdColorAutomatic
            .BackgroundPatternColor = 15066597
        End With
        .Borders(wdBorderLeft).LineStyle = wdLineStyleNone
        .Borders(wdBorderRight).LineStyle = wdLineStyleNone
        .Borders(wdBorderTop).LineStyle = wdLineStyleNone
        .Borders(wdBorderBottom).LineStyle = wdLineStyleNone
        .Borders(wdBorderVertical).LineStyle = wdLineStyleNone
        .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
        .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
        .Borders.Shadow = False
        .AutoFitBehavior (wdAutoFitContent)  '自動調整大小
    End With
    With Options
        .DefaultBorderLineStyle = wdLineStyleSingle
        .DefaultBorderLineWidth = wdLineWidth050pt
        .DefaultBorderColor = wdColorAutomatic
    End With

    ' 段落無首行縮排，行間距為固定值12磅
    With Selection.ParagraphFormat
        .LeftIndent = CentimetersToPoints(0)
        .RightIndent = CentimetersToPoints(0)
        .SpaceBefore = 0
        .SpaceBeforeAuto = False
        .SpaceAfter = 0
        .SpaceAfterAuto = False
        .LineSpacingRule = wdLineSpaceExactly
        .LineSpacing = 12
        .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
        .AutoAdjustRightIndent = True
        .DisableLineHeightGrid = False
        .FarEastLineBreakControl = True
        .WordWrap = True
        .HangingPunctuation = True
        .HalfWidthPunctuationOnTopOfLine = False
        .AddSpaceBetweenFarEastAndAlpha = True
        .AddSpaceBetweenFarEastAndDigit = True
        .BaseLineAlignment = wdBaselineAlignAuto
    End With
    Selection.Font.Size = 11
    Selection.Font.Name = Tahoma
    ' 清除原有的段落底紋
    Selection.ParagraphFormat.Shading.BackgroundPatternColor = 

wdColorAutomatic

　　先選中需要進行處理的程式碼，然後點選word中開發工具，點選巨集，執行即可。
　　也可以通過word選項，自定義，新增巨集快捷鍵，執行時只需要先選中程式碼，然後點選快捷鍵。
　　詳情可以去我上傳的資源下載哦。
下載資源