Как искать жирный абзац в выделенном тексте или в определенной точке документа?

Question

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

Dim para As Paragraph

For Each para In ActiveDocument.Paragraphs
    If para.Range.Font.Bold = True Then para.Next.Range.Delete
Next para

Answer 1

Чтобы ограничить диапазон поиска, вам нужно заменить ActiveDocument диапазоном, который вы хотите найти. Всякий раз, когда вы пишете код в Word, лучше избегать использования объекта Selection. Использование Selection перемещает курсор по экрану, что означает, что экран должен перерисовываться каждый раз. Этого можно избежать, используя взамен объект Range.

  Dim para As Paragraph
  Dim searchRange As Range

  'pick up the start of the range
  Set searchRange = Selection.Range
  'move the end of the range to the end of the document
  searchRange.End = ActiveDocument.Content.End
  For Each para In searchRange.Paragraphs
    If para.Range.Font.Bold = True Then para.Next.Range.Delete
  Next para