提示:其它语言是由 Google 机器翻译的。 你可以访问 English 版本。
登录
x
or
x
x
马上登记
x

or

如何选择Word中的所有标题段落?

有时我们需要删除或编辑所有标题段落。 第一步是选择所有标题段落。 本教程将向您介绍如何选择所有标题段落的方法。

使用查找和替换选择所有标题段落

使用VBA选择所有标题段落

用Kutool for Word选择所有标题段落


箭头蓝色右泡使用查找和替换选择所有标题段落

热卖
惊人! 使用Word(Office)中的高效选项卡,如Chrome,Firefox和新Internet Explorer!

了解更多 免费下载

单词中的查找和替换功能是选择所有标题段落的最常用方法。

步骤1:点击 主页 >查找 并选择 高级查找 标记

步骤2:点击 更多 按钮来调出更多的搜索选项;

DOC  - 选择 - 标题 - 段落 -  1

步骤3:点击 格式 标记弹出下面的选项。

DOC  - 选择 - 标题 - 段落 -  2

步骤4:点击 样式 选择 标题样式 你已经使用了查找样式对话框。

DOC  - 选择 - 标题 - 段落 -  3

请注意: 此方法每次只能选择一个标题段落。 编辑所有标题段落非常耗时。


箭头蓝色右泡使用VBA选择所有标题段落

或者,我们可以使用VBA来选择所有标题段落。

步骤1:按 “ALT-F11” 打开“Microsoft Visual Basic for Application”窗口;

步骤2:点击 模块插页 选项卡,将以下VBA代码复制并粘贴到“模块”窗口中;

步骤3:然后点击 DOC-反向登录6 按钮来应用VBA。

VBA代码选择所有标题段落:

Sub SelectHeadingParagraphs()
Dim tempTable As Paragraph
Application.ScreenUpdating = False
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
对于ActiveDocument.Paragraphs中的每个tempTable
'Debug.Print tempTable.Range.Style&“”&wdStyleHeading2
如果tempTable.Style = ActiveDocument.Styles(wdStyleHeading2)然后
“Debug.Print”aaa“
tempTable.Range.Editors.Add wdEditorEveryone
结束如果
下一步
ActiveDocument.SelectAllEditableRanges wdEditorEveryone
ActiveDocument.DeleteAllEditableRanges wdEditorEveryone
Application.ScreenUpdating = True
END SUB

注: 这个方法以Heading2为例。 Heading2可以更改为其他标题样式。


箭头蓝色右泡用Kutool for Word选择所有标题段落

有一个更简单的方法来选择所有标题段落? Kutool for Word是您的最佳选择。 在安装了Word的Kutool后,只需点击一下,即可选择所有标题(标题段落)。

Kutools for Word,一个方便的插件,包括工具组,以减轻您的工作,并提高您的能力处理word文档。 免费试用45天! 现在加入!

点击 Kutools >段落选择 段落选择组。 看截图

DOC  - 选择 - 标题 - 段落 -  4

有关更多详细信息 选择标题段落 Kutools for Word,请访问: 段落选择 功能描述




推荐的Word生产力工具

Kutools For Word - 超过100 Word的高级功能,节省您的50%时间

  • 复杂和重复的操作可以在几秒钟内完成一次性处理。
  • 一次将多个图像跨文件夹插入Word文档。
  • 将多个文件夹合并并组合成一个具有所需订单的文件。
  • 根据标题,分节符或其他标准将当前文档拆分为单独的文档。
  • 在Doc和Docx,Docx和PDF之间转换文件,用于常见转换和选择的工具集合等等......
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Bob Flisser · 4 years ago
    Thanks, this is very useful. I wanted to select all instances of Heading1 and Heading2 at once, so I changed line 7 to this:

    If (tempTable.Style = ActiveDocument.Styles(wdStyleHeading1)) Or (tempTable.Style = ActiveDocument.Styles(wdStyleHeading2)) Then