目的：讓word修訂插入的內容在接受修訂后保留痕跡。

1. 打開批注的word文件

2. 同時按住：Alt+F11，然后右鍵：Normal -->插入–> 模塊

3. 在出現的代碼框中插入以下代碼（如下圖）

Sub 保留修訂痕跡()
'
' 保留修訂痕跡 宏
'
'Dim rngTemp As RangeDim revTemp As RevisionDo While TrueSet revTemp = Selection.NextRevision(Wrap:=False)If Not (revTemp Is Nothing) ThenIf revTemp.Type = wdRevisionInsert Then  '如果是新增，則該內容顏色變為藍色revTemp.Range.Font.ColorIndex = wdBlueSelection.Font.Underline = wdUnderlineSinglerevTemp.AcceptEnd IfElseMsgBox Prompt:="已無修訂"Exit DoEnd IfLoopEnd Sub

4. 鼠標放到代碼的任意一行，按：F5 運行代碼

5. 先別關閉這個界面，直接查看word文檔里，修訂的內容是不是變成藍色了

如果插入的內容沒有全部變藍，把word文檔劃到第一頁，再次執行步驟4即可

6. 這個時候在word文檔里，接受所有修訂即可

7. 查看此時的word文檔是否符合您的要求

8. 保存，退出。