作者：乔山办公网日期：
返回目录：word文档
方法/步骤
1
启动e68a84e79fa5e98193334Word。现在给大家演示，在Word中输入如下内容。
2
点击“视图”—>“大纲视图”。
在大纲视图中，将文字中标注1级的设为“1级”，标注2级的设为“2级”，具体可以这样来操作：点击文字所在的行，让后再级别的位置选择就可以，例如“认识（1级）”，就可以点下这行，然后选择“1级”。全部设置完毕后，点击“关闭大纲视图”。
选中如下图所示文字，然后点击“多级列表”图标，最后在“列表库”中选择（如下图所示）
以上步骤只是演示的前提（不过这个对于自动生成目录也很重要的，可以鼠标放在插入目录的位置，点击“引用”—“目录”，这里可以选择自动目录即可。不涉及这部分内容部给大家演示了。）下面给大家以插入表格为例来讲解。插入表格，然后选中表格，在表格上右击选择“插入题注”。
在打开的如下图所示的界面，将“标签”选择“表格”，位置选择“所在项目下方”（当然可以根据自己情况选择，还可以点击“新建标签”来自定义标签）。
点击上图中的“编号”，打开“题注编号”对话框，设置完成后点击“确定”即可。
想要给以后插入的Word表格自动添加题注，还需做如下设置。点击“自动插入题注”。
在“自动插入题注”对话框中，选择好“插入时添加题注”下的选项，然后点击“确定”，这样以后点击表格就可以自动添加题注了。
如下图所示，为自动添加题注的两个表格。
我在这两个表格中间插入新表格的效果如下，我可以明显看到题注是可以自动更新的。
整理后效果
1、引用--插入题注。
2、在打开的题注对话框中，单击 编号。抄
3、在 题注编号 对话框中的 包含章节号 前面的勾取消。确定。
4、单击 自动插入题注 。在 自动插入题注 的对百话框中单击 编号 。在 题注编号 对话框中的 包含章节号 前面的勾取消。确度定。
5、确定。
在进行大型项目的方案文档设计时，一个文档中有可能涉及到上百个图表，在最后定稿的时候，需要进行统一的格式化处理。面对这些数目庞大的表格，挨个用格式刷进行处理，一路刷下来往往手都会刷酸，更令人奔溃的是好不容易刷完了，发现字体或大小不对，这时候可能需要再重新刷一遍。那么如果能提高效率呢？
word中的VBA功能，就是专为这种工作量庞大，而需要重复的工作设计的。对表格的样式进行统一处理VBA代码如下：
Sub FormatAllTables()For i = 1 To ActiveDocument.Tables.Count ' ActiveDocument.Tables(i).Style = "my"
With ActiveDocument.Tables(i).Range.ParagraphFormat
.LeftIndent = CentimetersToPoints(0)
.RightIndent = CentimetersToPoints(0)
.SpaceBefore = 0
.SpaceBeforeAuto = False
.SpaceAfter = 0
.SpaceAfterAuto = False
.LineSpacingRule = wdLineSpace1pt5
.Alignment = wdAlignParagraphJustify
.WidowControl = False
.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
' 设置表e799bee5baa6e59b9ee7ad94336中的字体及大小
ActiveDocument.Tables(i).Select
With Selection
.Font.Size = 12
.Font.Name = "宋体"
End With
ActiveDocument.Tables(i).Cell(1, 1).Select
With Selection
.SelectRow
.Font.Bold = True
.Shading.BackgroundPatternColor = -603923969
.ParagraphFormat.Alignment = wdAlignParagraphCenter End With
NextEnd Sub12345678910111281920212223242526272829303373839404142434445464748495051525354
在文档编写中，表格中题注的字体及大小一般与正文也不一样，需要单独进行设置，由于题注设置需要自动编号，可通过VBA代码对这些自动编号的题注进行自动化处理，其基本思路是查找带有域“图”的所有文本；选中它，然后格式粘贴。其代码如下：
Sub FormatTableTitle()
myHeadings = ActiveDocument.GetCrossReferenceItems("图")
findTxt = ""
For i = 1 To UBound(myHeadings) 'MsgBox myHeadings(i)
findTxt = myHeadings(i) With Selection.Find
.Text = findTxt
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = True
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.PasteFormat Next iEnd Sub
1、首先在Word中选中需要修改的表格。
2、然后点击菜单copy栏上面的引用工具。
3、在百弹出的设置窗口中点击编号选项进入。
4、在题注编号下面的包含章节号打上度√。
5、然后点击下面的章节起始样问式，选中答标题的样式编号。
6、选中之后，点击标签，选中表格。
7、最后点击确定，这样就可以了。