Word宏以確定文件是否含有突出

Question

我想寫當用戶點擊保存，顯示彈出一個宏（我把它作爲子的FileSave（））如果文檔中包含的任何突出。到目前爲止，所有消息框都能很好地工作。不幸的是，我無法弄清if語句使用哪些條件來檢查文檔是否包含突出顯示。

誰能幫我用VBA的這幾行？

Answer 1

您只需通過這種方式文檔內容中搜索突出顯示的文本：

Sub SearchAnyHighlight() 

Dim hiliRng As Range 
Set hiliRng = ActiveDocument.Content 

With hiliRng.Find 
    .Highlight = True 
    .Execute 
End With 

If hiliRng.Find.Found Then 
    'to inform that something was found 
    MsgBox "You can't close Active Document" 
    'to remove all highlighted area <-- added after edition 
    With hiliRng.Find 
     .Replacement.Highlight = False 
     .Execute "", Replace:=wdReplaceAll, Forward:=True, _ 
      ReplaceWith:="", Format:=True 
    End With 
End If 

End Sub