Repeat macro until no more fields

macropod · #2 01-20-2016, 04:13 AM

You could use code like:

Code:

Sub ShadeFields()
Dim Fld As Field
For Each Fld In ActiveDocument.Fields
  With Fld
    If .Type = wdFieldMergeField Then
      With .Result.Shading
        .Texture = wdTextureNone
        .ForegroundPatternColor = wdColorAutomatic
        .BackgroundPatternColor = wdColorAutomatic
      End With
    End If
  End With
Next
End Sub

but if the aim includes displaying/hiding field shading, you might need to adjust that via File|Options|Advanced>Show document content>Field shading. That too could be changed via code.

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Macro to keep formatted form fields after mail merge or replace text with formatted form fields	jer85	Word VBA	2	04-05-2015 10:00 PM
Repeat formula 5 times and repeat?	Jenny345	Excel	4	06-14-2013 04:37 PM
Text will repeat in the fields	ypurcaro	Word	1	02-07-2013 01:46 AM
need macro for quiz (?) repeat of wrong answers with shuffle	braveshark	PowerPoint	0	10-02-2012 06:10 AM
Using fields to repeat data throughout a document	Brasada	Word	0	07-20-2010 02:37 PM