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

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

有时，写完一段后，您可能会按回车键（甚至更多次）。下一段代码将return最后一段文字，上面这样一个结束符：

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

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

Get the last line of any word document using macros VBA

excel

vba

ms-word

file-rename