VB操作WORD的问题

Question

在VB中使用以下代码替换WORD中字符，在使用时怎么能保证模板文件不被修改？    Set wordApp = CreateObject("Word.Application")
    Set WordDoc = wordApp.Documents.Open(App.Path & "\Word\Molds\aaa.doc")
  
    wordApp.Visible = False    With wordApp
        .Visible = False
    End With
 
    replacetext "$1$", TxtTitle.Text    WordDoc.SaveAs (UserDir & FileName)
    WordDoc.Close    wordApp.Quit
  
    Set WordDoc = Nothing
    Set wordApp = Nothing

Answer 1

建议思路：
1 先将模板文件拷贝一份存放在指定目录下
2 打开拷贝的文件，对其操作。