Vba Word Shape&TextBox

因为Word里面不一定全部包含在Application Content里面，有些TEXT是存在在TextBox,而TextBox属于Shape,所以可以循环获取Shape来获取Text

 

Sub test()

    Dim Shp As Shape

    Dim arr() As String

    For Each Shp In ThisDocument.Shapes

        Debug.Print Shp.TextFrame.TextRange.Text

        arr = Split(Shp.TextFrame.TextRange.Text, Chr(13))

        Debug.Print UBound(arr)

    Next

End Sub