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

[wbdx]

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

[喝醉的咖啡]

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

[wbdx]

哪里有啊？ 你就给个范例，我也好入手查帮助阿！

[carfield2003]

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
将这段代码加上数据库循环就可以订制诸如合同模板之类的东东。

[wbdx]

谢谢 carfield2003(茄菲猫)

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