Sub ChangeTheAuthorOfTrackedChanges()
'Changes an author name on comments and tracked changes in a Word document.
'Requires a reference to the Microsoft ActiveX Data Objects 6.1 Library.
Dim objFile As Object, objShell As Object, objStream As Object
Dim strFullName, strTempPath, strFile, strDefault
Dim strNames, strOldAuthor, strOldInitials, strNewAuthor, strNewInitials
Dim strOldContent, strNewContent, strFind, strReplace, varTime
On Error Resume Next
Emphasis begins and ends according to 17 rules in the specification, but here is a summary in three rules:
-
Use either asterisks or underscores to emphasize a character next to a space, punctuation, or the beginning or end of a line. Put an emphasis mark immediately next to a character, with no space between, as in
_this!_
for this!- Exception. Special punctuation marks override this rule, including a backslash (
\
), backtick (`
), and square brackets ([ ]
) which cause an asterisk or underscore to be rendered as a character and ignored as an emphasis mark.
- Exception. Special punctuation marks override this rule, including a backslash (
-
Use an asterisk to emphasize letters and numbers next to letters and numbers, as in
*as*terisk
for asterisk. By contrast, an underscore is not an emphasis mark between letters and numbers, as in not_italic.