如何删除单词中以某个单词开头的每一行？

Question

我有一个150页的文档，想在回答后每行以“ Answer：.....”开头的单词行删除不同的内容，因此我将无法执行找到所有答案将其删除

遍历整个文档并找到所有实例将花费数小时，任何人都可以共享一个vba来帮我吗？

Answer 1

您可以在查找和替换中使用通配符。通过单击更多>> ：

展开对话框

---

如果您真的想以编程方式执行此操作：

Dim doc As Word.Document
Set doc = ... 'determine the document you want to act on, and fill it here

Dim p As Paragraph
For Each p In doc.Paragraphs
    If InStr(p.Range.Text, "Answer") = 1 Then p.Range.Delete
Next