將excel中的數據填入word模板中-VBA

首先將word模板中需要填寫excel中數據的空白處用自己獨特的字符串標記，比如   數據001  什么的。如下圖：

這樣，就可以用vba搜尋這些自己獨特的標記來根據excel內容填充word了。

第一個填好的如下圖：

而excel中數據如下圖：

然后代碼如下：

 Sub 生成Word文件_Click()
  Dim Word對象 As New Word.Application, 當前路徑, 導出文件名, 導出路徑文件名, i, j
   Dim Word表格行號, Word表格列號, Excel數據表列號
   Dim Str1, Str2
   當前路徑 = ThisWorkbook.Path
    B = InputBox("請輸入數據開始行", "提示")
  c = InputBox("請輸入數據結束行", "提示")
  
   判斷 = 0
   For i = B To c
      導出文件名 = "通知書"
      FileCopy 當前路徑 & "\通知書.doc", 當前路徑 & "\" & 導出文件名 & "(" & Sheets("統計表").Range("c" & i) & ").doc" '可以將Sheets("1").Range("B" & i)換成其他數據
      導出路徑文件名 = 當前路徑 & "\" & 導出文件名 & "(" & Sheets("統計表").Range("c" & i) & ").doc" '可以將Sheets("1").Range("B" & i)換成其他數據
      With Word對象
        .Documents.Open 導出路徑文件名
        .Visible = False
         With .Selection.Find
            For x = 7 To 1 Step -1 '從大到小，防止字符串序號低位與高位串擾，填寫數據即excel表總列數
               Str1 = "數據" & Format(x, "000")
               'MsgBox "str1" & Str1
               Str2 = Sheets("統計表").Cells(i, x)
               .Text = Str1 '查找到指定字符串
               .Replacement.Text = Str2 '替換字符串
              .Execute Replace:=wdReplaceAll '全部替換
            Next x
          End With
             
          
        
        .Selection.WholeStory '全部選中
        .Selection.Font.Color = wdColorAutomatic '字符為自動顏色
      End With
      Word對象.Documents.Save
      Word對象.Quit
      Set Word對象 = Nothing
'      If i = c Then
'       MsgBox "已輸出到 Word 文件！", 0 + 48 + 256 + 0, "提示："
'      End If
      
   Next i
   If 判斷 = 0 Then
      i = MsgBox("已輸出到 Word 文件！", 0 + 48 + 256 + 0, "提示：")
   End If
   
End Sub

 

 這個excelhome里給的一個代碼。挺好的，就是中文變量挺多的。