查找并替换，并有条件删除

Question

我正在尝试

• 在Word文档中搜索特定术语，然后删除该术语显示的行。
• 检查上一段是否以句号或引号结尾，如果是，请按两次Delete键（以将上一段与后面的一段连接起来。）>

我获得了500多页的Word文档，这些文档已从PDF转换而成。在转换之前，永远不会从这些文档中删除标头，因此我必须将其删除。有时它们落在一个段落的后面，有时又落在该段的中间，并将该段分成两部分。

[通过尝试，错误和谷歌搜索，我设法编写了一些VBA来搜索这些标头并将其删除，但是随后我必须手动检查该段落是否已被中断并进行修复。有条件的VBA以及检查光标位置是否缺少周期的细节超出了我的范围。

Sub Macro1()
    With Selection
    .Find.ClearFormatting
    .Find.Text = "thing"
    .Find.Execute
    .MoveLeft Unit:=wdCharacter, Count:=1
    .MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
    .TypeBackspace
    End With
End Sub
该代码用于检查标题的任何实例（在这种情况下，假定标题以“ thing”开头，然后删除该行。

如何检查上一段是否缺少句点或引号，并执行几个退格键？

我正在尝试在Word文档中搜索特定术语，然后删除该术语显示的行。检查上一段是否以句点或引号结尾，以及...

Answer 1

将问题中的代码与描述进行比较，我假设“删除该行”意味着需要删除的“标题”在自己的paragraph

Answer 2

我不太了解，请通过编辑问题来添加一些示例。也许，我过去也遇到过同样的情况。例：情况1：