前端之家

  1. 首页
  2. 问答

如何使宏忽略表？

• 问答

我有以下代码删除任何完全加粗的段落之后的段落（即删除子标题后的空白行），但是这导致了我的宏部分将文本转换为表格的问题，因为它删除了内容当表格具有粗体标题时，在表格标题之后。有没有办法让我的代码忽略表格？

Dim para As Paragraph
Dim searchRange As Range

Set searchRange = Selection.Range
searchRange.End = activeDocument.Content.End

For Each para In searchRange.Paragraphs
    If para.Range.Font.Bold = True Then para.Next.Range.Delete
Next para
gouridetongxingzheng 回答：如何使宏忽略表？

您可以利用Range的Information属性。

尝试类似的东西：

Dim para As Paragraph
Dim searchRange As Range

Set searchRange = Selection.Range
searchRange.End = ActiveDocument.Content.End

For Each para In searchRange.Paragraphs
    If para.Range.Font.Bold = True And Not para.Range.Information(wdWithInTable) Then para.Range.Next.Delete
Next para
ms-wordvba
本文链接：https://www.f2er.com/3165392.html

大家都在问