문서를 닫기 전에 텍스트의 강조를 해제하는 방법

Question

나는 숫자를 계산해야한다는 요구 사항이 있습니다. 문장의 단어의. 없다면. 문장의 단어가 20 개 이상이면 강조해야합니다. 사용자가 문서를 닫을 때 &. 이 강조 표시는 사라져야합니다. 아래는 내가 사용한 코드입니다. 아니. 단어 &을 입력 한 다음 올바르게 강조 표시하십시오. 그러나 사용자가 해당 문서를 닫을 때 강조 표시를 해제하는 방법은 무엇입니까?

Sub Count_of_words() 
' 
' Count Macro 
' 
' 
    Dim s As Range 
    For Each s In Selection.Sentences 
     If s.Words.count > 20 Then 
      With s.Font 
       .Underline = wdUnderlineWavy 
       .UnderlineColor = wdColorRed 
      End With   
     End If 
    Next 
End Sub 

Answer 1

당신은 Document_Close() 이벤트 사용할 수 있습니다 - 그것은 단지 넣어 코드를, 그리고 그것을 문서가 닫히기 전에 실행됩니다 - 당신은 대신 .Underline = wdUnderlineWavy의, 원래의 코드를 사용하고 .UnderlineColor = wdColorRed 텍스트를 강조 표시하지 않는 값을 사용하십시오. 이벤트 프로시 저는 모듈 파일이 아닌 ThisDocument 파일에 있어야합니다 (프로젝트 탐색기에서 찾을 수 있음). 따라서 기본적으로 ThisDocument를 열고 프로 시저를 작성하십시오. Document_Close() 이벤트를 사용하여 템플리트에 이벤트를 저장하고 프로 시저를 작성하십시오.