Instead of directly using the `Range.Fields.Count` method within the loop, you can store the field count values in variables before the loop begins. This way, you avoid repeated method calls for each iteration. fnf
Set xRevisions = worddoc.RevisionsFor Each xRev in xRevisions
  currentFieldCount = xRevisions.Item(xRev.Index).Range.Fields.Count
  nextFieldCount = xRevisions.Item(xRev.Index + 1).Range.Fields.Count
  If currentFieldCount <> 0 Or nextFieldCount <> 0 Then
    ' Your logic here
  End If
Next