如何根据模板新建一个WORD文件,并替换指定的字符

Question

在文件夹中预先定义一个WORD文档;需要通过程序从后台新建一个WORD文件(是模板的COPY),然后用程序中的数据 替换掉在新建文档的内容,请教怎么实现!

Answer 1

你是通过VB程序还是通过WORD VBA？

Answer 2

我是这样写的,是可以替换,可是每一次替换都会打开一次,怎么让每次替换都在后台完成,且完成后能自动保存;
===============================================
Private Sub Command1_Click()    ReplaceTxt "$1$", "一"
    ReplaceTxt "$2$", "二"
    ReplaceTxt "$3$", "三"
    ReplaceTxt "$4$", "四"
    ReplaceTxt "$5$", "五"End SubPrivate Sub ReplaceTxt(Str1 As String, Str2 As String)    Dim wdDocument As New Word.Application    wdDocument.Documents.Open App.Path & "\Test.doc" ', , , , , , , , , , , False, , , True    '    wdDocument.Visible = True  '让Word可见    wdDocument.Selection.Find.ClearFormatting
    wdDocument.Selection.Find.Replacement.ClearFormatting
    With wdDocument.Selection.Find
        .Text = Str1
        .Replacement.Text = Str2
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchByte = True
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    wdDocument.Selection.Find.Execute Replace:=wdReplaceAll '如果需要全部替换，把wdReplaceOne改为wdReplaceAll
    Set wdDocument = NothingEnd Sub

Answer 3

wdDocument.Visible = False