Question

我正在使用此宏来编辑从PDF复制和粘贴的文本，以便将其格式化为填充word文档中的整行。

但是，当我在标题上方粘贴以下行：/Lib/json 不起作用，文本格式化为标题。

Selection.Style = ActiveDocument.Styles("Normal")

任何帮助非常感谢，

由于

Answer 1

仅选择了" "。您必须选择整个段落：

Selection.Expand (wdParagraph)

然后设置样式。

Answer 2

包括要用作“查找/替换”一部分的样式。 Word可以查找格式，并将格式应用为替换过程的一部分。这使得压缩代码更少，错误的可能性更小（选择可能会改变！）。

  With Selection.Find
        .Text = "^p"
        .Replacement.Text = "  "
        .Replacement.Style = wdStyleNormal
        .wrap = wdFindStop ' think this is required to stop it fixing (breaking) the whole selction
        .Execute Replace:=wdReplaceAll
    End With

MS Word VBA - '正常'格式未设置并由'heading'formatting覆盖

2 个答案: