VBA读取word中的内容到Excel中

VBA读取word中的内容到Excel中，这类代码的思路都是一致的，包括ADO、SQL、DELPHI、VB……

先声明、创建一个对象 → 用此对象打开需要操作的文件、数据库 → 从头到尾循环一遍做某事 → 关闭文件 → 关闭对象 → 释放对象。

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

 

另一类方法：

Sub MS_Word()
    Dim wd As Object
    Dim doc As Object
    
    Set wd = CreateObject("Word.Application")       ' 建立Word会话
    wd.Visible = False                              ' 设定Word应用程序为不可见状态

    Set doc = wd.Documents.Open(ThisWorkbook.Path & Application.PathSeparator & "001 安全管理程序.Doc")    ' 打开当前目录下指定Word文件
    doc.Tables(1).Cell(1, 2).Range = Cells(3, 1).Value                                                  ' Word文件第一个表的1行2列内容改为当前工作表的A3的内容
    doc.Save    ' 保存Word文件
    doc.Close   ' 关闭文件
    wd.Quit     ' 退出Word会话
    Set doc = Nothing
    Set wd = Nothing
End Sub