Question

我需要遍历文档中的所有标题，并需要在Heading-2和Heading-3之间添加新标题。所有现有的标题都是标题1，我知道文字。

我需要删除标题-5。

原始文件有30000多个段落;使用旧方法需要花费太多时间

for example here are the headings 
     1. Heading-1 
     2. Heading-2
     3. Heading-3
     4. Heading-4
     5. Heading-5
     6. Heading-6

 For P = 1 To ActiveDocument.Paragraphs.Count - 1
   ptext=ActiveDocument.Paragraphs(p).text
If Left(ActiveDocument.Paragraphs(P).Style, 9) = "Heading 1" Then
            If InStr(1, ptext, "Heading-2") > 0 Then
                ActiveDocument.Paragraphs.Add _
                Range:=ActiveDocument.Paragraphs(P).Range
                Selection.MoveLeft Unit:=wdCharacter, Count:=1
                Selection.TypeText Text:="Heading New"                    
            End If         
    End If
Next

Answer 1

在这种情况下，请在Word中录制宏以执行以下步骤：在“查找”对话框中，输入＆＃34;标题-3＆＃34;的文本。然后点击＆＃34;找到＆＃34;。选择应该跳到Heading-3

这将为您提供前往标题3的基本语法。您可以对其进行编辑以删除您不想要/不需要的参数（您只需要文本搜索）。

在“查找”后面插入代码，该代码将创建包含所需文本的新段落。有很多方法可以做到，我的偏好：

Dim rng as Word.Range
Set rng = Selection.Range
rng.InsertBefore vbCr 'paragraph mark
rng.Collapse wdCollapseStart
rng.Text = "NEW STUFF"

添加和删除现有标题之间的标题

1 个答案:

添加和删​​除现有标题之间的标题

1 个答案:

添加和删除现有标题之间的标题