使用宏 VBA 获取任何 word 文档的最后一行

Question

I have lots of word documents to rename using the lastline of the document. The lastline of the document starts with: "Expediente N°", so this is how I've tried to solve the problem unsuccessfully.

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

Remember that the last line could be dinamically, for example "Expediente N° 334234" or "Expediente N° 1111", that why I think the solution in get the entire last line of the document.

Answer 1

Some times, after writing a paragraph, you may press Enter (even more times). The next code will return the last paragraph text, above such a end line character:

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