我建立了一個訪問資料庫，它可以填充一個表，然后打開幾個Word郵件合并模板，生成合并后的檔案，并將其保存。 代碼的相關部分獲取或創建了一個 Word 應用程式物件，將一個合并模板作為檔案物件打開，運行郵件合并，并關閉模板。 然后，它尋找合并后的輸出，將其作為活動檔案，保存為（按照檔案命名模式），并關閉它。然后，如果沒有其他檔案打開，它將退出 Word，并釋放檔案和應用程式物件。
在上周安裝的 MS 更新之后，這一切都在一次次地發揮作用，但在第二次運行時，生成的合并檔案在成為活動檔案之后停止回應。 我在谷歌上努力搜索，看是否能找到解釋或解決方法，但毫無收獲。 有沒有人有什么想法？
相關代碼：
On Error Resume Next
Set objWord = GetObject(, "Word.應用")
If objWord Is Nothing Then
Set objWord = CreateObject("Word.Application"/span>)
結束 If
On Error GoTo 0
Set objDoc = objWord.Documents.Open(templateName)
objWord.Visible = True[/span
objWord.ActiveWindow.View.Type = wdNormalView
objDoc.MailMerge.OpenDataSource Name:= _
tempRoot & "Merge_Output.txt", ConfirmConversions:=False, ReadOnly _
:=True, LinkToSource:=True, AddToRecentFiles:=False, PasswordDocument:= _
""/span>, PasswordTemplate:=""/span>, WritePasswordDocument:=""/span>, _
WritePasswordTemplate:="", Revert:=False, Format:=wdOpenFormatAuto, _
連接:="", SQLStatement:="", SQLStatement1:=", SubType:= _
wdMergeSubTypeOther
objDoc.MailMerge.ViewMailMergeFieldCodes = False[/span].
objDoc.MailMerge.Execute
objDoc.CloseFalse
For Each openDoc In objWord.Documents
strOpenDoc = openDoc.Name
如果 strOpenDoc Like "Form Letters*" Then
openDoc.Activate
退出 為
End If
Next openDoc
objWord.ActiveDocument.Content.NoProofing = False[/span
objWord.ActiveDocument.SaveAs TargetDir & "" & DocBase & "_Designation" '<=====，這時檔案停止回應。
objWord.ActiveDocument.Close False
If objWord.Documents.Count = 0 Then objWord.Application.Quit
Set objDoc = Nothing
Set objWord = Nothing
uj5u.com熱心網友回復：
我沒有遇到過這個問題，但我很想嘗試一下下面的方法：
For Each openDoc In objWord.Documents
如果 openDoc.Name Like "Form Letters*" Then
With openDoc
.Content.NoProofing = False With openDoc.
.SaveAs2 FileName:=TargetDir & "" & DocBase & "_Designation", FileFormat:=wdFormatXMLDocument
.關閉 假的。
結束 與
退出 為
End If If
Next openDoc
If objWord.Documents.Count = 0 Then objWord.Application.Quit
uj5u.com熱心網友回復：
好吧，事實證明這根本不是一個代碼問題。 MS安全更新產生了一些意想不到的影響，包括導致Word在試圖另存為某些/大多數Word檔案時停止回應，無論是編程還是手動。 解除了更新，現在一切正常了。
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/324079.html
標籤：