對Word 2016的大宏疑難解答

我正在嘗試爲Word 2016創建一個宏，該宏將根據我使用「查找和替換」功能進行更改的大約250個搜索詞列表自動編輯文檔。當我從頭到尾記錄宏並嘗試運行時，我收到一條消息，說「過程太長」。我查看了這裏的答案，並瞭解可以清理代碼和/或在代碼中創建子部分以進行故障排除。但是，我不確定我在做什麼，代碼很長。對Word 2016的大宏疑難解答

有人可以幫我嗎？的代碼

部分包含如下：

Portion of code

來源

2016-03-28 Luke Jackson

部分代碼附在下面： –

請包括代碼，而不是代碼圖片。圖片通常難以閱讀，代碼無法複製/粘貼進行測試。請花一點時間閱讀[幫助]中發佈問題的指南。 –

代碼不屬於圖像。見[這個元回答]（五）的原因列表。另外，如現在所述，你的帖子太模糊了。如果您記錄宏並得到錯誤太長，請將其分解爲單獨的操作併爲每個部分記錄宏，然後您可以編寫一個子例程，以便按順序執行這些宏。 –

打破宏進入步驟。最簡單的方法是（用你的文件的副本爲測試，所以你可以隨時把原文回來，如果你犯了一個錯誤！）：

錄製簡短的宏。它沒有關係。將其命名爲DoAllReplacements。
記錄一個宏，它會完成第一個替換塊。將其命名爲DoReplacement1。
查看宏並編輯DoReplacement1宏。將註釋塊末尾的所有文本複製到End Sub之前的行。
將編輯插入符號（光標）置於DoReplacement1 End Sub的末尾，並敲擊兩次。輸入以下文字：
```
Sub DoReplacement2() 

End Sub 
```
代碼剛纔所添加的Sub和End Sub線之間的剪貼板粘貼。編輯宏代碼以完成您的下一個替代塊。
重複上述步驟，直到您將所有替換物編碼爲止，並根據需要使用盡可能多的新例程DoReplacementX。
返回到您記錄的第一個宏（DoAllReplacements），並刪除Sub DoAllReplacements()和End Sub之間的所有代碼。將新呼叫添加到您編寫的個人DoReplacementX宏。
```
Sub DoAllReplacements() 
    DoReplacement1 
    DoReplacement2 
    DoReplacement3 
    ' Etc. until you've added them all 
End Sub 
```

退出宏代碼窗口。使用View Macros，選擇您的DoAllReplacements宏並執行它。

來源

2016-03-29 20:24:47

對Word 2016的大宏疑難解答

回答

相關問題