Question

我收到来自客户的报告（.doc格式的word文档），由于某些进程在大多数段落的末尾都缺少句点（）。我必须手动添加句点。在vba宏中是否有任何代码可以实现此目的。

谢谢。

Answer 1

这是一个关于如何为包含文本的每个段落添加句点的相当简单的示例。您可以扩展它以查看该段落末尾是否真的没有句号，但我可以由您决定。

添加宏后，从Developer Tab中调用Macro：

Sub TestAddPeriod()

  Dim oPara As Word.Paragraph
  Dim rng As Range
  Dim text As String

  For Each oPara In ActiveDocument.Paragraphs
      If Len(oPara.Range.text) > 1 Then
         Set rng = ActiveDocument.Range(oPara.Range.Start, oPara.Range.End - 1)
         rng.InsertAfter "."
      End If
   Next

End Sub

在单词的段落末尾插入缺失的句点

1 个答案: