怎么修改 WORD图片题注格式？？

1、点击“格百式->格式和样式…”打开格式和样式列表；
2、在最下面的显示后面的下拉框中选自定义；
3、在弹出对话框的可见样式列表中找到“题度注”并选中前面的复选框，单击确定；知
4、此时在格式和样式列表中可以找到题注样式，鼠标放上去，右边会道出来一个小箭头，单击这个小箭头，点修改…，后面就是修改样式了，想多大就多大，想怎么对齐专就怎么对齐，改完以后，文档中所有题注都自动属修改成新样式字体了。

图1-1的显示格式是题注编号设置成了百包含章节号，变成一是因为章节号是以中文的数字编号的，将章节号以数字编号，再设置编号格式就符合要求了。

1、比如图，章节号以中文数字编号，点击选中图片，度点击引用>插入题注>编号，题注编号格知式选择1，2，3，...，点击确定；

2、可以看到，题注变成了“图 一-1”，这是因为题注编号第一个数字是章节号，道是跟着正文的章节编号自动设置的，题注编号窗口里的格式设置的是第二个数字的内格式；

3、修改章节编号格式。选择章节标题前的编号，点击“多级列表”，选择一个数字编号的格式；

3、选择之前插入的错误题注，再次点击“插入题注”，格式设置符合要求容，不用再修改了，直接点击确定；

4、最终效果如下，符合要求。

在进行大型项目的方案文档设计时，一个文档中有可能涉及到上百个图表，在最后定稿的时候，需要进行统一的格式化处理。面对这些数目庞大的表格，挨个用格式刷进行处理，一路刷下来往往手都会刷酸，更令人奔溃的是好不容易刷完了，发现字体或大小不对，这时候可能需要再重新刷一遍。那么如果能提高效率呢？
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

' 设置表中的字体及大小
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代码对这些自e799bee5baa6e79fa5e98193e58685e5aeb9336动编号的题注进行自动化处理，其基本思路是查找带有域“图”的所有文本；选中它，然后格式粘贴。其代码如下：
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

工具/原材料

word2007版、电脑。zhidao

1、打开电脑找到并点击word2007版软件；

2、点击word2007版软件以后，在右上方的标题部位找到并点击有向下箭头的符号命令；

3、点击该符号命令以后，在弹出的界面中鼠标右击题注版，在下拉选项中选择“修改”；

4、点击修改以后，此时就可以对题注的字体、字号及格式进行修改；

5、同时也可以在当前界面内的下方权点击格式进行更多的设置。