★★★★用word 作模板 将需要的数据输入的到word中生成文档 急

Question

比如在word模板中定义一些可以标识为变量的东西，我用程序把相应的字段的值写入

Answer 1

好好看看 office vba 的帮助
实现起来不难的，只是比较麻烦——word的文档对象比较复杂。

Answer 2

Dim Wobj As New Word.Application
Dim wordDoc As Word.Document
Set wordDoc = Wobj.Documents.Open(strPath)
Wobj.Application.Visible = True
                    strRep ="要替换的文字"
                        Wobj.Selection.Find.ClearFormatting
                        Wobj.Selection.Find.Replacement.ClearFormatting
                        With Wobj.Selection.Find
                            .Text ="预先在Word中输入的字符"
                            .Replacement.Text = strRep
                            .Forward = True
                            .Wrap = wdFindContinue
                            .Format = False
                            .MatchCase = False
                            .MatchWholeWord = False
                            .MatchWildcards = False
                            .MatchSoundsLike = False
                            .MatchAllWordForms = False
                            .MatchByte = True
                        End With
                        Wobj.Selection.Find.Execute Replace:=wdReplaceAll
将这段代码加上数据库循环就可以订制诸如合同模板之类的东东。

Answer 3

谢谢 carfield2003(茄菲猫) 但是模板式复杂的里面还有表格
最好不要有replace的方法，而是使用域一类的东西
但是我又不知道如何插入自己定义的域