我想用模板报告文档来生成新报告，但是控制文件的语句不会也不懂。想参考下这方面的资料，谢谢大神们推荐。

谢谢老师。word版报告模板是有的，标签替换也能做到。就是想把这些模板保存在程序里，别人不能修改，只需输入数据，然后生成报告。这些对文件的宏观的操作及代码都不懂。在百度上也搜索不到，只是有很多VBA方面的。再次谢谢老师指点。

麻烦您看下这个程序，没有报错，但是替换不了，怎么回事。谢谢
Private Sub Command1_Click()
Tmpfile = "C:\Users\Administrator\Desktop\tmp.docx"
If Dir(Tmpfile) <> "" Then
    Kill Tmpfile
End If

FileCopy "C:\Users\Administrator\Desktop\报告模板.docx", Tmpfile
Dim myword As Object, mydocument As Object, myselection As Word.Selection
Dim i As Integer
Dim SearchStr As String
Dim ReplaceStr As String

      Set myword = CreateObject("Word.Application")   '创建word对象
      Set mydocument = myword.Documents.Open(Tmpfile)        '打开指定word文档
      Set myselection = myword.Selection '定位文件实例
      myword.Visible = False
For i = 0 To 3 Step 1
      SearchStr = "A" + Str(i)
      ReplaceStr = Text1(i).Text
      myselection.Find.ClearFormatting
      myselection.Find.Replacement.ClearFormatting
    With myselection.Find
        .Text = SearchStr
        .Replacement.Text = ReplaceStr
        .Forward = True
        .Wrap = wdFindAsk
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    myselection.Find.Execute Replace:=wdReplaceAll
Next
mydocument.Save
mydocument.Close '关闭文档实例
myword.Quit '关闭WORD实例
Set mydocument = Nothing '清除文件实例
Set myword = Nothing '清除WORD实例

FName = "C:\Users\Administrator\Desktop\" + Text2.Text + ".docx"

If Dir(FName) <> "" Then
    MsgBox "文件已存在，请重新命名。", 48, 报告名称错误
Else
Name Tmpfile As FName
End If
 MsgBox "完成"
End Sub

谢谢 找到原因了 "A" + Str(0) 与 "A0"不相同。用后者可以替换，用前者就不能。挺不理解的。替换的内容比较多，单个赋值太麻烦，怎么破？

谢谢，受益匪浅。又出现了一个问题，本来输入文本框里的是小写字母，复制完后，在word里，却显示大写，头痛。请指教。谢谢