在單詞末尾插入缺失句號

我收到了由於某些進程因末尾的某些進程缺失大部分段落末尾的句點（）而導致的報告（.doc格式的word文檔）。我必須手動添加句點。有沒有在word vba宏中的任何代碼來完成這一點。在單詞末尾插入缺失句號

謝謝。

2016-08-01 vicki

是的，有代碼來做到這一點。你試過什麼了？ – DanL

集DOC = 的ActiveDocument集rngRange = _ doc.Range（doc.Paragraphs（1）。開始，_ doc.Paragraphs（1）.END - 1） rngRange.InsertAfter _ ****** Dim MyText As String Dim MyRange As Object Set MyRange = ActiveDocument.Range MyText =「。」 MyRange.InsertAfter（MyText） – vicki

這是我可以在零碎的情況下想出的。但是如何使它成爲功能代碼，我無法做到。不用說我是一個新手。會感謝幫助。謝謝。 – vicki

這是一個相當簡單的例子，介紹如何爲包含文本的每個段落添加句點。您可以擴展它以查看段落是否真的沒有最後階段，但我會讓您決定。

呼叫從開發工具選項卡宏添加的宏後：

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

來源

2016-08-02 23:19:24

在單詞末尾插入缺失句號

回答

相關問題