VBA 读取WORD表格中的内容并写入到EXCEL中

很多时候，我们需要从WORD文档，特别是WORD表格中提取信息，进行分析处理后放入EXCEL表中作为输出。
下面的示例是本人编写且正确运行的某软件中的代码片断，对EXCE+VBA编程读取WORD表格内容进行了演示。

    Dim iFileName As String
    Dim mFileName As String
   
    Dim i, n, c, r As Integer
                     
    Dim mWord, mDoc As Object
    Dim mTable, mCell
    Dim S, S1, S2 As String
With Application.FileDialog(msoFileDialogFilePicker)
            .Title = "请选择【WORD勘察报告】"
            .Filters.Clear
            .Filters.Add "Word文档", "*.doc;*.docx"
            If .Show Then
                    iFileName = .SelectedItems(1)
            End If
    End With
    If iFileName = "False" Or Len(iFileName) = 0 Then Exit Sub
    Set mWord = CreateObject("Word.Application")
    Application.ScreenUpdating = False   ''WORD打开不要显示出来
    Set mDoc = mWord.Documents.Open(iFileName) ''一定要加上完整的路径
    If mDoc.tables.Count < 1 Then    ''至少需要有一个表
        MsgBox "文档中没有表格！", vbCritical
        GoTo err1
    End If
   n = 1   
   On Error Resume Next   
   For Each mTable In mDoc.tables ''定位到 分层统计表
   
      S = ""
      
      For c = 1 To mTable.Columns.Count
          mCell = mTable.cell