Private Sub Commanon1_Click()

   Dim BL_Word对象 As New Word.Application

   Dim BL_当前路径

   Dim BL_输出路径

   Dim BL_导出文件名

   Dim BL_导出路径文件名

   Dim i

   Dim j

   Dim Str1, Str2

    With Application.FileDialog(msoFileDialogFolderPicker)

        .InitialFileName = ThisWorkbook.Path & ""

        If .Show = False Then Exit Sub

        BL_输出路径 = .SelectedItems(1) & ""

    End With

   BL_当前路径 = ThisWorkbook.Path

   最后行号 = Sheets("数据").Range("B65536").End(xlUp).Row

   最后列号 = Sheets("数据").Range("IV1").End(xlToLeft).Column

   判断 = 0

   For i = 3 To 最后行号

      BL_导出文件名 = "项目模板"

      FileCopy BL_当前路径 & "\项目模板.docx", BL_输出路径 & "" & "项目" & "-" & Sheets("数据").Range("A" & i) & "说明书" & ".docx" '将文件先拷贝到BL_当前路径后再做替换

      BL_导出路径文件名 = BL_输出路径 & "" & "项目" & "-" & Sheets("数据").Range("A" & i) & "说明书" & ".docx"  '引用一个表格单元格值作输出文件名称

      With BL_Word对象

          .Documents.Open BL_导出路径文件名

          .Visible = False

           For j = 1 To 最后列号

                 Str1 = "[数据" & Format(j, "00") & "]"

                 Str2 = Sheets("数据").Cells(i, j)

                .Selection.HomeKey Unit:=wdStory

                 If .Selection.Find.Execute(Str1) Then

                      .Selection.Font.Color = wdColorAutomatic

                      .Selection.Text = Str2

                 End If

                 For n = 1 To 3

                      .Selection.HomeKey Unit:=wdStory

                       If .Selection.Find.Execute(Str1) Then

                           .Selection.Font.Color = wdColorAutomatic

                           .Selection.Text = Str2

                       End If

                 Next

           Next j

      End With

      BL_Word对象.Documents.Save

      BL_Word对象.Quit

      Set BL_Word对象 = Nothing

   Next i

   If 判断 = 0 Then

      i = MsgBox("已输出到 Word 文件！", 0 + 48 + 256 + 0, "提示：")

   End If

End Sub

---------------------------------------------------------

该日志网址为: http://blog.sina.com.cn/s/blog_15b9821340102wy0y.html
 如果您有任何问题或建议或疑问,欢迎反馈和交流,您的要求就是我们的方向和动力
 更多<数据分析>模板,将陆续发布,敬请期待   

更多介绍:http://www.df-bi.com
更多数据分析模型,欢迎扫描"微信公众号"
或者查找微信公众号:"DF数据工厂"  或  "data_f"