使用宏 VBA 獲取任何 word 文檔的最后一行

Question

我有很多 Word 文檔要使用文檔的最后一行重命名。 文檔的最后一行以“Expediente N°”開頭，所以這就是我嘗試解決問題的方式，但沒有成功。

With Selection.Find
    .Text = "Expediente N° "
    .Replacement.Text = ""
    .Forward = True
    .Wrap = wdFindContinue
    .Format = False
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
End With
Selection.Find.Execute
MsgBox Selection.Text

請記住，最后一行可能是動態的，例如“Expediente N° 334234”或“Expediente N° 1111”，這就是為什么我認為解決方案是獲取文檔的整個最后一行。

Answer 1

有時，在寫完一段之后，您可能會按 Enter（甚至更多次）。 下一個代碼將返回最后一段文本，在這樣的結束行字符上方：

Sub testLastParagraphText()
    Dim p As Paragraph
    Set p = ActiveDocument.Paragraphs.Last
    Do While p.Range.Text = Chr(13)
        Set p = p.Previous
    Loop
    Debug.Print p.Range.Text
End Sub