思路：将word中的标题、正文、表格、图表标题赋值为不同颜色，然后再使用查找功能，根据字体颜色来查找不同颜色的字体，然后批量设置格式。效果如下：
这里给出设置word中标题、正文、表格、图表标题赋值为不同颜色的vba代码，具体怎么使用字体的颜色来查找自行百度。不同部分的字体颜色可以根据自己的喜好修改。至于图片的处理可以参考我的另一篇文章。
Sub HighlightContentWithFontColors()Dim doc As DocumentDim para As ParagraphDim captionRange As RangeDim tbl As TableSet doc = ActiveDocument' 将所有内容的字体颜色标记为黄色doc.Range.Font.Color = wdColorBlue' 遍历所有段落For Each para In doc.paragraphsSet captionRange = para.Range' 检查是否为标题，标题级别从1到9，可以根据需要调整级别If para.OutlineLevel >= wdOutlineLevel1 And para.OutlineLevel <= wdOutlineLevel9 Then' 将标题字体颜色标记为黑色captionRange.Font.Color = RGB(10, 10, 10)End If' 检查图片题注If captionRange.text Like "图*" Then' 检查前一段是否为图片If para.Previous.Range.InlineShapes.Count > 0 Or para.Previous.Range.ShapeRange.Count > 0 Then' 将图片题注字体颜色标记为红色captionRange.Font.Color = wdColorRedEnd IfEnd If' 检查表格题注If captionRange.text Like "表*" Then' 检查后一段是否为表格If para.Next.Range.Tables.Count > 0 Then' 将表格题注字体颜色标记为蓝色captionRange.Font.Color = RGB(0, 255, 0)End IfEnd IfNext para' 遍历所有表格For Each tbl In doc.Tables' 将表格内内容字体颜色标记为黄色tbl.Range.Font.Color = wdColorYellowNext tbl' 提示完成MsgBox "字体颜色高亮完成"
End Sub
