詳細的:將 Word 用作Automation 伺服程式時提示儲存 Normal.dot
http://support.microsoft.com/kb/285885/zh-cn
同時自動化多個 Microsoft Word 執行個體時,使用者可能收到下面的一個或多個警告:
“Normal.dot was being edited by another Word session.If you save this document with the original name, you will overwrite any changes made in the other session.Do you want to save the document using the original name anyway?” - 或 - This file is in use by another application or user.(C:\Documents and Settings\...\Normal.dot)
如果對 Normal.dot 模板進行了更改,就可能會出現這些警告。
回到頂端
解決方案
要解決此問題,請執行下列操作之一: 在退出 Word 或將控制權移交給使用者之前,應將 Normal.dot 模板的 Saved 屬性設定為 True,如下所示:...
要解決此問題,請執行下列操作之一:
- 在退出 Word 或將控制權移交給使用者之前,應將 Normal.dot 模板的 Saved 屬性設定為 True,如下所示:
Application.NormalTemplate.Saved = True
- 或 -
- 設定 Quit 方法的 SaveChanges 參數,如下所示:
Application.Quit SaveChanges:=wdDoNotSaveChanges
回到頂端
更多資訊
重現此問題的步驟 在 Visual Basic 中,建立一個標準 EXE 項目。預設情況下會建立 Form1。 在“項目”菜單上,單擊“引用”,然後添加一個指向...
重現此問題的步驟
- 在 Visual Basic 中,建立一個標準 EXE 項目。預設情況下會建立 Form1。
- 在“項目”菜單上,單擊“引用”,然後添加一個指向 Microsoft Word 物件程式庫版本的引用。
- 向 Form1 中添加一個 CommandButton 控制項。
- 向表單中添加以下代碼:
Private Sub Command1_Click() Dim wdApp1 As Word.Application Dim wdApp2 As Word.Application Set wdApp1 = CreateObject("Word.Application") wdApp1.Visible = True wdApp1.Documents.Add Set wdApp2 = CreateObject("Word.Application") wdApp2.Visible = True wdApp2.Documents.Add MsgBox "Change the default font of document 2." wdApp2.ActiveDocument.Close False wdApp2.Quit Set wdApp2 = Nothing wdApp1.Quit Set wdApp1 = NothingEnd Sub
- 運行該 Visual Basic 項目並單擊命令按鈕。
- 將出現一個訊息框,指導您更改第二個文檔的預設字型。在“格式”菜單上,單擊“字型”,然後單擊“預設”。當詢問您是否更改預設字型時,單擊“是”,然後單擊“確定”取消訊息框。
當關閉第二個 Word 執行個體時,將出現在“摘要”部分顯示的警告之一。
要解決以上代碼中的此問題,請執行以下操作之一:
- 在 wdApp2.Quit 方法的調用語句之前,添加以下行:
wdApp2.NormalTemplate.Saved = True
- 或 -
- 使用 Quit 方法的 SaveChanges 參數,如下所示:
object saveOption = Microsoft.Office.Interop.Word.WdSaveOptions.wdDoNotSaveChanges;
wa.QuIT(ref saveOption, ref Missing, ref Missing);