前一段时间，看到一个别人发的doc，结果自己随便修改的时候，出现了注释……上面把我修改的内容，比如删掉的东西，在注释中显现出来了。很奇怪……以前没有接触过。网上找了一会没找到
  自己就开始翻word中的各项功能，终于发现：原来在[审阅]中得[显示]功能中，其中，显示标记的最终状态就是当修改时，将修改前得东西显示在注释栏里面。对立的还有显示标记的原始状态，注释中显现你修改后的内容，以及显示最终状态(这个是我们平时得，不添加注释的默认)以及显示原始状态(这个估计就能全部看原始版本了)
 

    


在侯捷《word排版艺术》一书中有一个很实用的vba宏，可通过录制宏，打开vba代码窗口，然后添加如下代码：
Dim nLineNum '行号(数值)
Dim sLineNum As String '行号(文字)
Dim selRge As Range '用以记录整区块程序代码(多行)
Dim i '计数器
'以下变量用于“将注释改为蓝色”
Dim lineProgramRange As Range '单行程序代码范围
Dim commentRange As Range '注释范围
Dim TextLine As String '每一行程序代码(内容)
Dim ProgComment As String '每一行程序代码内的注释文字
Dim RgnStart As Long 'Start of a Range
Dim RgnEnd As Long 'End of a Range
Set selRge = Selection.Range    '首先记录Selection
For nLineNum = 1 To selRge.Paragraphs.Count '针对每个段落
     sLineNum = str(nLineNum) '行号转换为文字
     sLineNum = LTrim(sLineNum) '去除开头和结尾的空格
     For i = 1 To (3 - Len(sLineNum)) '补足三位数(前加0)
         sLineNum = "0" + sLineNum
     Next i
     sLineNum = "#" & sLineNum '前加符号#
     sLineNum = sLineNum + " " '前加空格
     
     selRge.Paragraphs(nLineNum).Range.InsertBefore (sLineNum)    '将行号插入到代码前

'将注释改为蓝色
Set lineProgramRange = selRge.Paragraphs(nLineNum).Range
TextLine = lineProgramRange.Text '取得整行文字(代码)
CharPos = InStr(1, TextLine, Chr(39)) '寻找注释起始点
If CharPos <> 0 Then
     ProgComment = Mid(TextLine, CharPos + 1) '切割出注释文字
     RgnStart = lineProgramRange.Start
     RgnEnd = lineProgramRange.End
     lineProgramRange.SetRange Start:=RgnStart + CharPos, End:=RgnEnd
     lineProgramRange.Select
     Selection.Font.ColorIndex = wdBlue '令注释为蓝色
End If
     
Next nLineNum
 
 
步骤如下：


 
选中代码后，点击这个宏就可以生成如下左边的代码行了。宏弄好后可以在工具栏弄一个按钮的，具体的弄法我忘了，可以在上述书中找。
 

 

转载于:https://www.cnblogs.com/witxjp/p/4965208.html

Sub 批量格式设置() '此代码为指定文件夹中所有选取的WORD文件的进行格式设置 

Dim MyDialog As FileDialog, vrtSelectedItem As Variant, Doc As Document 

' On Error Resume Next '忽略错误 

'定义一个文件夹选取对话框 

Set MyDialog = Application.FileDialog(msoFileDialogFilePicker) 

With MyDialog 

.Filters.Clear '清除所有文件筛选器中的项目 

.Filters.Add "所有 WORD 文件", "*.doc", 1 '增加筛选器的项目为所有WORD文件 

.AllowMultiSelect = True '允许多项选择 

If .Show = -1 Then '确定 

Application.ScreenUpdating = False 

For Each vrtSelectedItem In .SelectedItems '在所有选取项目中循环 

Set Doc = Documents.Open(FileName:=vrtSelectedItem, Visible:=False) 

With Doc 

With .PageSetup '进行页面设置 

.Orientation = wdOrientPortrait '页面方向为纵向 

.TopMargin = CentimetersToPoints(2.2) '上边距为2.2cm 

.BottomMargin = CentimetersToPoints(2.2) '下边距为2.2cm 

.LeftMargin = CentimetersToPoints(2.5) '左边距为2.5cm 

.RightMargin = CentimetersToPoints(2.5) '右边距为2.5com 

.Gutter = CentimetersToPoints(0) '装订线0cm 

.HeaderDistance = CentimetersToPoints(1.5) '页眉1.5cm 

.FooterDistance = CentimetersToPoints(1.75) '页脚1.75cm 

.PageWidth = CentimetersToPoints(21) '纸张宽21cm 

.PageHeight = CentimetersToPoints(29.7) '纸张高29.7cm 

.SectionStart = wdSectionNewPage '节的起始位置：新建页 

.OddAndEvenPagesHeaderFooter = False '不勾选“奇偶页不同” 

.DifferentFirstPageHeaderFooter = False '不勾选“首页不同” 

.VerticalAlignment = wdAlignVerticalTop '页面垂直对齐方式为“顶端对齐” 

.SuppressEndnotes = False '不隐藏尾注 

.MirrorMargins = False '不设置首页的内外边距 

.BookFoldRevPrinting = False '不设置手动双面打印 

.BookFoldPrintingSheets = 1 '默认打印份数为1 

.GutterPos = wdGutterPosLeft '装订线位于左侧 

.LayoutMode = wdLayoutModeLineGrid '版式模式为“只指定行网格” 

End With 

With .Content.ParagraphFormat '段落格式设置 

.LeftIndent = CentimetersToPoints(0) '左缩进0cm 

.RightIndent = CentimetersToPoints(0) '右缩进0cm 

.SpaceBefore = 0 '段前间距0cm 

.SpaceBeforeAuto = False '段前间距不设为“自动” 

.SpaceAfter = 0 '段后间距0cm 

.SpaceAfterAuto = False '段后间距不设为“自动” 

.LineSpacingRule = wdLineSpaceExactly 

.LineSpacing = 24 '行距24磅 

.Alignment = wdAlignParagraphJustify '段落设置为两端对齐 

.WidowControl = False '不勾选“孤行控制” 

.KeepWithNext = False '不勾选“与下段同页” 

.KeepTogether = False '不勾选“段中不分页” 

.PageBreakBefore = False '不勾选“段前同页” 

.NoLineNumber = False '不勾选“取消行号” 

.Hyphenation = True '不勾选“允许西文在单词中间换行” 

.FirstLineIndent = CentimetersToPoints(0) '首行缩进0cm 

.OutlineLevel = wdOutlineLevelBodyText '大纲级别为“正文文本” 

.CharacterUnitLeftIndent = 0 '段落左缩进0cm 

.CharacterUnitRightIndent = 0 '段落右缩进0cm 

.CharacterUnitFirstLineIndent = 0 '特殊格式为“无” 

.LineUnitBefore = 0 '段前间距为0 

.LineUnitAfter = 0 '段后间距为0 

.AutoAdjustRightIndent = True '自动调整段落的右缩进 

.DisableLineHeightGrid = False '勾选“如果定义了文档网格，则对齐网格”，即指定段落中的字符与行网格对齐 

.FarEastLineBreakControl = True '将东亚语言文字的换行规则应用于指定的段落 

.WordWrap = True '在指定段落或文本框的西文单词中间断字换行 

.HangingPunctuation = True '指定段落中的标点将可以溢出边界 

.HalfWidthPunctuationOnTopOfLine = False 

.AddSpaceBetweenFarEastAndAlpha = True '自动在指定段落的中文文字和拉丁文字之间添加空格。 

.AddSpaceBetweenFarEastAndDigit = True '自动在指定段落中的中文文字与数字之间添加空格 

.BaseLineAlignment = wdBaselineAlignAuto '自动调整基线字体对齐方式 

End With 

''''''''''新增部分 

With .Content 

With .Font 

.NameFarEast = "宋体" 

.NameAscii = "Times New Roman" 

.Size = 12 

End With 

With .Paragraphs.First 

.Range.Font.Size = 16 

.Alignment = wdAlignParagraphCenter 

End With 

End With 

.Close True 

End With 

Next 

Application.ScreenUpdating = True 

End If 

End With 

MsgBox "格式化文档操作设置完毕!", vbInformation 

End Sub 

说实话，CSDN的这个插入代码的控件很好用，特别是自动添加行号的功能。
下面这段VBA代码就是在Word中，对你编辑的代码添加行号和对“//”以后的注释部分加上颜色。
 
用法：选中你希望添加行号的所有行，运行此VBA，即可在每行首添加“#001 ”字样的行号。对你选中的行，从1开始自动编号。你也可以把这段代码设置成一个按键，每次只要选中希望编号的行，然后点一下按键运行一下即可。
 
有时间再把对word中嵌入的代码的格式设置也加进来就更完美了～～～


以下代码在office2007中调试通过：
Sub 程序代码加行号()
    Dim nLineNum           '行号(数值)
    Dim sLineNum As String '行号(文字)
    Dim selRge As Range
    Dim i
    
    '------------以下变量变量用于将注释改为蓝色------------
    Dim lineProgramRange As Range  '单行程序代码范围
    Dim commentRange As Range
    Dim TextLine As String
    Dim progComment As String
    Dim RgnStart As Long
    Dim RgnEnd As Long
    
    Set selRge = Selection.Range
    For nLineNum = 1 To selRge.Paragraphs.Count
        sLineNum = Str(nLineNum)
        sLineNum = LTrim(sLineNum)
        
        '生成行号格式"001"
        For i = 1 To (3 - Len(sLineNum))
            sLineNum = "0" + sLineNum
        Next i
        
        '行号前加"#"
        sLineNum = "#" & sLineNum
        sLineNum = sLineNum + " "
        
        '得到当前选中行 并设置颜色为蓝色
        Set lineProgramRange = selRge.Paragraphs(nLineNum).Range
        'Selection.Font.ColorIndex = wdBlue
        lineProgramRange.Font.ColorIndex = wdBlue
                
        selRge.Paragraphs(nLineNum).Range.InsertBefore (sLineNum)
        
        '------------以下变量用于修改注释为绿色------------
        Set lineProgramRange = selRge.Paragraphs(nLineNum).Range
        TextLine = lineProgramRange.Text
        charpos = InStr(1, TextLine, "//")   'C语言单行注释标志
         
        If charpos <> 0 Then  '存在注释的时候才需要处理
            progComment = Mid(TextLine, charpos)  '切割出注释文字
            RgnStart = lineProgramRange.Start
            RgnEnd = lineProgramRange.End
            lineProgramRange.SetRange Start:=RgnStart + charpos - 1, End:=RgnEnd  '感谢zhupanxin的修改
            
            lineProgramRange.Select
            Selection.Font.ColorIndex = wdGreen
            
        End If
            
        '------------以下用于修改关键字 颜色、字体------------
        
    
    Next nLineNum
    
End Sub