生成word文件求助

Question

需要把客户登记的一些信息存放到数据库中。并提取出来然后填写到样版doc中的  特定字段。。然后把生成的这个新doc文件发到另外部门。。：~（ 请问该如何实现啊。各位大侠

Answer 1

Option ExplicitPrivate Sub Command1_Click()
    Dim wd As New Word.Application
    
    wd.Documents.Add
    wd.Selection.TypeText Text:="asdfasdf"
    wd.ActiveDocument.SaveAs FileName:="C:\dddddddddd.doc", FileFormat:= _
        wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _
        True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _
        False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
        SaveAsAOCELetter:=False
        
    wd.Visible = True
    wd.ShowMe
End Sub

Answer 2

等于是三个问题：
数据库访问
将内容写入word文件
文件分发数据库访问应该没问题。写入word可以这样，利用word的宏记录功能，将你需要程序做的事情手工做一下并记录下来，word会将操作记录为VBA代码，修改一下就可以在程序中使用了，关于word操作的贴子前面也有很多的。分发看你选择什么方式了，一般是通过邮件的方式，你可以利用CDO或者自动化Outlook来实现。

Answer 3

我给的代码只是在WORD中插入一个字符,然后保存到指定的位置下,如果你要用特定的字段,可以选项先在文档中定义关键字,然后用数据库中指定的数据替换关键字就可以了,具体怎么操作,你可以上WORD中录制宏.

Answer 4

对了,在使用之前要先引用:
菜单"工程/引用/Microsoft Word 9.0 Object Library"