C# 讀寫Word :提示將 Word 用作Automation 伺服程式時提示儲存 Normal.dot (獨佔Normal.dot,沒辦法讀寫的解決方案)

來源:互聯網
上載者:User

詳細的:將 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。 在“項目”菜單上,單擊“引用”,然後添加一個指向...

重現此問題的步驟

  1. 在 Visual Basic 中,建立一個標準 EXE 項目。預設情況下會建立 Form1。
  2. 在“項目”菜單上,單擊“引用”,然後添加一個指向 Microsoft Word 物件程式庫版本的引用。
  3. 向 Form1 中添加一個 CommandButton 控制項。
  4. 向表單中添加以下代碼:
    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

  5. 運行該 Visual Basic 項目並單擊命令按鈕。
  6. 將出現一個訊息框,指導您更改第二個文檔的預設字型。在“格式”菜單上,單擊“字型”,然後單擊“預設”。當詢問您是否更改預設字型時,單擊“是”,然後單擊“確定”取消訊息框。

當關閉第二個 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);

 

相關文章

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

  • Sales Support

    1 on 1 presale consultation

  • After-Sales Support

    24/7 Technical Support 6 Free Tickets per Quarter Faster Response

  • Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.