If rngStory.StoryType wdMainTextStory Then 'Iterate through all stories and update fieldsįor Each rngStory In ActiveDocument.StoryRanges 'Prevent alert when updating footnotes/endnotes/comments story 'Turn off screen updating for better performance VbYesNo + vbQuestion, "Turn Off Track Changes?") Then Do you want to turn OFF track changes while updating fields?", _ If vbYes = MsgBox("Track changes is currently ON. 'Show msg if track changes is on 'Let user turn it off to prevent all updated fields marked as revisions VbOKOnly + vbInformation, "Update All Fields – Protected Document" In order to update all fields, you must first unprotect the document.", _ 'Stop if document protection prevents full update of fields MsgBox "No documents are open.", vbOKOnly, "Update All Fields" '= 'The macro updates all fields in the activedocument no matter where the fields are found 'Includes fields in headers, footers, footnotes, endnotes, shapes, etc. 'YOU ARE NOT ALLOWED TO PUBLISH THE MACRO AS YOUR OWN, IN WHOLE OR IN PART. YOU ARE WELCOME TO USE THE MACRO BUT YOU MUST KEEP THE LINE ABOVE.
'= 'Macro created 2019 by Lene Fredborg, DocTools - 'Revised August 2020 by Lene Fredborg 'THIS MACRO IS COPYRIGHT.
0 kommentar(er)
