用段落替换新行

Question

我需要在Word Macro 中执行以下操作。

我需要浏览一个 Word 文档并根据它们的参数更改某些段落。 如果一个段落的字体大小为 19.5，则该段落的样式必须为 Heading 1。下一段将是 Heading 2，其后的下一个是 Heading 3。其他文本将保持样式“Normal”。

编写了以下宏：

Sub styles_temp()

' Declare a paragraph
Dim p As Paragraph

' Declare the current size.
Dim currentSize As Single

'Iterate through the text and print each paragraph
For Each p In ActiveDocument.Paragraphs

' Determine current size of the paragraph
currentSize = p.Range.Font.Size

' If size is 19.5, it will be Heading 1
If currentSize = 19.5 Then

    p.Range.Style = ActiveDocument.Styles("Heading 1")

    ' Next Line is Heading 2
    p.Next.Range.Style = ActiveDocument.Styles("Heading 2")


ElseIf p.Range.Style = "Heading 2" Then
    p.Next.Range.Style = ActiveDocument.Styles("Heading 3")

End If

Next p

End Sub

问题是有时文本包含一个段落，有时只包含一个新行。 试图找出用段落替换所有新行。 将不胜感激任何帮助。

谢谢！

Answer 1

听起来您的意思是整个文档：“用段落替换所有新行”

ActiveDocument.Content.Find.Execute FindTExt:="^l", ReplaceWith:="^p", Replace:=wdReplaceAll

注意：您的代码ActiveDocument使用ActiveDocument 。 将其分配给变量会更有效和更安全：

Dim doc as Word.Document
Set doc = ActiveDocument
doc.Content.Find.Execute FindTExt:="^l", ReplaceWith:="^p", Replace:=wdReplaceAll