VBA读取word中的内容到Excel中

时间:2024-01-14 16:04:26

原文:VBA读取word中的内容到Excel中

Public Sub Duqu()
     Dim myFile As String
    Dim docApp As Word.Application
    Dim docRange As Word.Range
    myFile = ThisWorkbook.Path & "\Word文档的名字"    '指定Word文档
    Set docApp = New Word.Application
    docApp.Documents.Open myFile
    For i = 1 To docApp.ActiveDocument.Paragraphs.Count
    With docApp.ActiveDocument
        'If .Paragraphs.Count >= 4 Then
            Set docRange = .Paragraphs(i).Range
            cp = cp & docRange
        'End If
    End With
    Next i
    Range("a1") = cp
    docApp.Quit
    Set docRange = Nothing
    Set docApp = Nothing
    Set ws = Nothing
End Sub