Microsoft Word宏來計數評論

Question

我是一名教學設計師，我通過添加註釋來編輯Word文檔。我問是否可以找到一個Word宏，幫助我計算這些評論並對它們進行分類。 感謝您的幫助

Answer 1

這裏有一個Sub根據您的類別數項：

Sub CountComments() 
    Dim spelling, grammar, rephrasing, technical, other As Integer 
    spelling = 0 
    grammar = 0 
    rephrasing = 0 
    technical = 0 
    other = 0 

    Dim comment As comment 
    For Each comment In ActiveDocument.Comments 

     Dim firstWord As String 
     firstWord = Split(comment.Range.Text, " ")(0) 

     Select Case LCase(firstWord) 
      Case "spelling" 
       spelling = spelling + 1 
      Case "grammar" 
       grammar = grammar + 1 
      Case "rephrasing" 
       rephrasing = rephrasing + 1 
      Case "technical" 
       technical = technical + 1 
      Case Else 
       other = other + 1 
     End Select 
    Next 

    MsgBox _ 
     "Spelling:" & spelling & _ 
     "; Grammar:" & grammar & _ 
     "; Rephrasing:" & rephrasing & _ 
     "; Technical:" & technical & _ 
     "; Other:" & other, , "Comment category summary" 
End Sub