If ActiveDocument.Fields.Count >= 1 Then With ActiveDocument.Fields(1) .Update .ShowCodes = False End WithEnd If