如何复制word页面并粘贴到excel中？

Question

我正在尝试将 Word 中的页面捕获为图像并通过 VBA 粘贴到 Excel 中。

Function openFile() As String
    With Application.FileDialog(msoFileDialogFilePicker)
        .AllowMultiSelect = False
        .Filters.Add "Word Files", "*.doc*", 1
        .Show
        openFile = .SelectedItems.Item(1)
    End With
End Function

Function readWord(ByVal path As String)
    Debug.Print "Read word", path
    
    Set objWordApp = CreateObject("Word.Application")
    Set objWordDoc = objWordApp.Documents.Open(path)
    
    Set objSheet = ThisWorkbook.Sheets.Add(After:= _
                   ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count))
    Set objRange = objSheet.Range("A1")
    objSheet.Activate
    
    objWordApp.Visible = False

    Dim objPage As Object 'Page
    Dim objPane As Object 'Pane
    Dim objWindow As Object 'Window
     
    For Each objWindow In objWordDoc.Windows
        For Each objPane In objWindow.Panes
            For Each objPage In objPane.Pages
                Debug.Print "Page"
                objPage.Range.Copy // Stop here because Page doesn't have the Range property
                
                objRange.Select
                objRange.Parent.PasteSpecial DataType:=wdPasteMetafilePicture
                
            Next objPage
        Next objPane
    Next objWindow
    
    objWordDoc.Close
    objWordApp.Quit
End Function

Sub processWord()
    Dim p As String
    p = openFile()
    readWord (p)
End Sub

因为 Page 没有 Range 属性，如何为每个页面选择 Range？

Answer 1

基本上：

Dim i As Long, wdRng As Object
With objWordDoc
  Set wdRng = .Range(0, 0)
  For i = 1 To .ComputeStatistics(2)
    ' Point to the page we want to process
    Set wdRng = wdRng.GoTo(1, , i)
    Set wdRng = wdRng.GoTo(-1, , , "\Page")
    wdRng.Copy
    ' Output the page.
    objRange.Parent.PasteSpecial DataType:=wdPasteMetafilePicture
  Next i
End With