text 查尾跑完以后缺失的文献2018年7月2日

Posted 2021-05-02

Sub notCite()
  selection.HomeKey wdStory
  With selection.Find
  .Text = "?\[[0-9,\- ]@\]?"
  .Wrap = wdFindStop
  .MatchWildcards = True
  .Replacement.Text = ""
  Do
  .Execute
  If Not .Found Then
  Exit Do
    Else
    MsgBox selection.Fields.count
    If selection.Fields.count = 0 Then
      selection.Range.HighlightColorIndex = wdRed
    End If
  End If
  Loop
End With
End sub