VB6.0编辑word模板怎样才能另存为一个文件不覆盖掉模板？

w389942332 发布于 2013-08-15 10:25， 3367 次点击

Dim MyWord As Word.Application
    Dim MyDoc As Word.Document

    Dim MyRange As Word.Range
    Dim MySelect As Word.Selection
    Dim textplant As String
    Dim textart As String

Set MyWord = New Word.Application

     MyWord.Visible = True

     With MyWord
         .WindowState = wdWindowStateMaximize
         Set MyDoc = .Documents.Add(App.Path & "\输出报告1.doc")
     End With

MyWord.Selection.GoTo what:=wdGoToBookmark, Name:="textplant"
MyWord.Selection.TypeText Text:=Form1.form1Textplant

    Set MyRange = Nothing
    Set MyDoc = Nothing
    Set MyWord = Nothing

4 回复

风吹过b2013-08-15 11:40

有二种方法：
1、打开前，先把模板文件复制一份为临时文件名。然后打开这个文件，然后输出内容。最后再改名为最终的文件名。
标准作法。建议这种。

2、你这种的处理，最终保存时，使用另存为的方式。
有可能导致模板文件损坏。

w3899423322013-08-16 09:19

回复 2楼风吹过b

那第一种情况怎么实现呢？可以给点参考代码么？

风吹过b2013-08-16 11:17

Const TMPFILE = "~tmp.doc"

If Dir(App.Path & "\" & TMPFILE) <> "" Then
    Kill TMPFILE
End If

FileCopy App.Path & "\" & 模板文件, App.Path & "\" & TMPFILE        '目标位置可以是任意盘符任意目录，要求目录存在

'对 TMPFILE 打开和处理

Name App.Path & "\" & TMPFILE As "输出报告1.doc"

w3899423322013-08-16 13:41

回复 4楼风吹过b

版主神人！！在你代码指导下都搞好了！！谢谢版主！！