Selecting fields/section

[TRM]

How do I approve the changes of all the fields
(docvariable fields, mergefields) which are on the first
section/page of a template?

Here is what I have right now, but I have tried SEVERAL
combinations! The rest of the document needs to keep the
changes tracked/marked - but the title page needs "ok'd".

Thanks!

Dim ofield As Field
oDoc.Sections(1).Range.Select
For Each ofield In ActiveDocument.Range
oDoc.Range.Revisions.AcceptAll
Next

 

[DA]

Hi TRM

Try the following instead:

With ActiveDocument
For lngCounter = 1 To .Sections(1).Range.Fields.Count
.Fields(lngCounter).Select
Selection.Range.Revisions.AcceptAll
Next
End With

Hope that helps,
Dennis

 

[TRM]

So far this seems to be working! Thanks so much for your
help!