如何使用vba移动文档中的所有段落

Question

我打开一个文档，想旅行并用粗体设置所有段落。

这是代码

for each par in activedocument.paragraphs:
    par.range.bold=true
next

运行此代码后，我发现文本框中的段落未更改。

那么，如何使用vba遍历文档中的所有段落

Answer 1

这应该适用于文本框，因为它们不是段落对象。

Dim shp As Shape
For Each shp In ActiveDocument.Shapes
  ActiveDocument.Shapes.Range(Array(shp.Name)).Select
  Selection.Font.Bold = True
Next

可能还有其他方法。

Answer 2

这是格式化文档的错误方式。您需要做的就是使用粗体属性格式化相关段落样式。例如：

ActiveDocument.Styles(wdStyleNormal).Font.Bold = True

那么，内容是在文档正文、页眉或页脚、脚注或尾注中，还是在任何这些范围内的文本框中都无关紧要。