vb编写Active X操作Word文件问题，急，在线等

Question

现在我手中有一个工作。就是用VB做一个Active  X控件。实现的功能就是读取一个数据流，其中包括Word模板的编号，模板中的标签号码，及内容。现在需要将根据模板编号和标签号码，将内容填写到模板中去，并生成.doc文件。  
希望大家帮帮忙，如有源代码，还请不吝赐教

Answer 1

最简单的办法：把你想做的事情用WORD录制一个宏，把宏代码贴到vb里面去稍加调试就可以用啦当然，在这之前你要先引用WORD对象，然后创建一些对象的实例

Answer 2

给你一小段代码吧    Dim objword As New Word.Global
    Dim wordApp As New Word.Application
    Dim mydoc As Word.Document
        wordApp.Visible = False
    Set mydoc = wordApp.Documents.Open(FileName:=App.Path & "\PZDY1.doc")
With wordApp.Selection.Find
    .ClearFormatting
    .Replacement.ClearFormatting
    .Text = "*币种*"
    .Replacement.Text = "人民币"
    .Execute Replace:=wdReplaceAll
END WITH……

Answer 3

可以编写三个函数，第一个打开模板，第二个插入数据，第三个关闭和保存文档
Private objword As New Word.Global
 Private oWord As New Word.Application
 Private mydoc As New Word.Document
Set mydoc = oWord.Documents.Add(strDotPathAndName, , wdFormatDocument, True)