我想用一个word文件,里边有一个文本框和一个按钮。在文本框里输入你的名字,然后点击按钮来打开一个模版文件,模版里有一个文本域(或其他的什么,可以直接修改里边值就行)
模版比如这样:
Your name is <yourname>!
现需要把<yourname>替换成VBA.
生成的word文件结果如下:
Your name is VBA!
请问如何实现?<yourname>是什么东西?如何添加到模版里?

解决方案 »

  1.   

    是不是写得不清楚呢?
    就是原来两个文件,一个doc的,一个dot的。
    doc的很简单,就一个文本框,和一个按钮。
    dot是模版文件,里边有需要修改的文本,比如<username>
    现在想点一下doc里边的按钮,然后用文本框里边的值替换dot文件里的<username>生成一个新的doc文件。====CSDN 小助手 V2.5 2005年11月05日发布====
    CSDN小助手是一款脱离浏览器也可以访问Csdn论坛的软件
    界面:http://blog.csdn.net/Qqwwee_Com/archive/2005/11/05/523395.aspx
    下载:http://szlawbook.com/csdnv2
      

  2.   

    自己已经解决了。
    现把代码贴上
    Dim docNew As Document    Documents.Open FileName:="comment.doc"
        Documents("comment.doc").Activate
        
        With Selection.Find
            .ClearFormatting
            .Text = "<YourName>"
            .Replacement.ClearFormatting
            .Replacement.Text = txtName.Text
            .Execute Replace:=wdReplaceAll, Forward:=True, _
                Wrap:=wdFindContinue
        End With
        
        With Selection.Find
            .ClearFormatting
            .Text = "<CurrentTime>"
            .Replacement.ClearFormatting
            .Replacement.Text = txtDate.Text
            .Execute Replace:=wdReplaceAll, Forward:=True, _
                Wrap:=wdFindContinue
        End With
        
        ActiveDocument.SaveAs FileName:="Comment Template.doc"====CSDN 小助手 V2.5 2005年11月05日发布====
    CSDN小助手是一款脱离浏览器也可以访问Csdn论坛的软件
    界面:http://blog.csdn.net/Qqwwee_Com/archive/2005/11/05/523395.aspx
    下载:http://szlawbook.com/csdnv2
      

  3.   

    哥们,谢谢你的代码。但是我想问一下,当把这个word保存到数据库中去,怎么样,把它读出来?