excel - 使用VBA在word中复制表格前面的文本行

Question

我正在使用 VBA 处理 Excel 和 Word。在 Excel 中，我有一个宏可以使用宏从特定的 word 文件中复制所有表格。它实际上工作得很好。但是，现在我还尝试复制表格的前 10 行文本，因为这些行可以包含有关表格内容的有用信息。我试图找到一种方法来获取表格的位置或从给定位置(行、列...)复制文本，但我一无所获。

我从word文档中获取所有表格的函数如下:

Private Function GetlisteTables(doc As Object) As Collection

    Dim tableau As Object
    Dim listeTableaux As New Collection

    For Each tableau In doc.Tables
        If tableau.Columns.Count > 4 Then

            On Error Resume Next
            listeTableaux.Add tableau
            
        End If
    Next tableau
    
    Set GetlisteTables = listeTableaux

End Function

虽然我可以在我的表格上使用 .Range，但这实际上给了我表格的内容，我认为它对我的情况没有用。有什么方法可以帮助我使用 VBA 复制 word 文档中文本的特定部分(尤其是在表格之前)？

Answer 1

Paragraph对象有一个Previous方法，可以返回指定的前一个单元。

因此可以使用以下方法找到表中上一段的起始和结束字符位置:

With ActiveDocument.Tables(1).Range.Previous(Unit:=wdParagraph)
MsgBox .Start & ":" & .End
End With

引用:

• https://learn.microsoft.com/en-us/office/vba/api/word.paragraph.previous