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