當從PowerPoint動作按鈕打開時，Word宏未正確運行

我有一個Word模板（來自其建議），其中包含一個autonew宏，用於在書籤處插入參考編號並將操作按鈕（提交）參考號作爲文件名的一部分並關閉Word。通過Windows資源管理器打開模板時，此功能非常完美。當從PowerPoint動作按鈕打開時，Word宏未正確運行

我們還有一個PowerPoint顯示，帶有操作設置超鏈接到各種文檔。該鏈接將打開上述模板，但不會插入參考編號。另外，當點擊「提交」按鈕時，該文件將另存爲包含參考編號的另一個模板。

我不確定問題是Word還是PowerPoint相關。 Word模板的代碼是

Sub AutoNew() 

REF = System.PrivateProfileString("L:\Local\Lab\Section - Support Services\Health and Safety\H&S Suggestions\Settings.Txt", _ 
     "MacroSettings", "REF") 

If REF = "" Then 
    REF = 1 
Else 
    REF = REF + 1 
End If 

System.PrivateProfileString("L:\Local\Lab\Section - Support Services\Health and Safety\H&S Suggestions\Settings.Txt", "MacroSettings", _ 
     "REF") = REF 

ActiveDocument.Bookmarks("REF").Range.InsertBefore Format(REF, "000#") 


End Sub 


Private Sub CommandButton1_Click() 

REF = System.PrivateProfileString("L:\Local\Lab\Section - Support Services\Health and Safety\H&S Suggestions\Settings.Txt", _ 
     "MacroSettings", "REF") 

ActiveDocument.SaveAs FileName:="L:\Local\Lab\Section - Support Services\Health and Safety\H&S Suggestions\Suggestion " & Format(REF, "000#.doc") 
Application.Quit 

End Sub

任何幫助或指針將不勝感激，好像它的工作原理我想用於各種其他模板。

來源

2010-11-04 Jonny B

從描述中，很難準確瞭解發生了什麼，但它聽起來像AUTONEW可能無法在特定組合中運行。

您可以通過使用某些日誌記錄或MSGBOX調用來確認在何時運行宏的確切內容。

檢查Autonew的文檔這裏

http://support.microsoft.com/kb/211659

聽起來像如果宏保存在正常，這聽起來並不像這裏的情況也不會運行，但它是值得一提。

您可能還會考慮使用AutoOpen宏並檢查其他元素，以確保這是一個全新的文檔，而不是已保存的文檔（如檢查Document.Fullname屬性的內容）。

來源

2010-11-04 18:11:05 DarinH

感謝查看日誌等後，我解決了問題出在用於打開word文檔的powerpoint宏。 – 2010-11-05 14:21:49

在查看日誌記錄等後感謝我解決了這個問題，它存在於用於打開word文檔的powerpoint宏中。第一部分實際上是打開模板本身，而不是基於它的文檔（bascially打開模板進行編輯）。我只需要確定需要其他代碼來創建文檔。希望第二個問題是相關的，因爲它尋找一個不存在的參考號碼。 – 2010-11-05 14:29:36

啊，是的，沒有事件想到，因爲我幾乎從來沒有使用這個論點。啓動word如winword.exe/t {templatefilename}以基於命名模板創建一個新文檔。這應該開始正確啓動AUTONEW宏。 – DarinH 2010-11-05 19:45:23

當從PowerPoint動作按鈕打開時，Word宏未正確運行

回答

相關問題