Как заставить макрос игнорировать таблицы?

Question

У меня есть следующий код, который удаляет абзац после любых полностью жирных абзацев (т. Е. Удаляет пустые строки после подзаголовков), но это вызвало проблему с частью моего макроса, которая преобразует текст в таблицы, так как удаляет содержимоепосле заголовка таблицы, когда таблица имеет жирный заголовок. Есть ли способ заставить этот код игнорировать таблицы?

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

Answer 1

Вы можете использовать Information свойство Range.

Попробуйте что-то вроде:

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