Reply to: xml property of ActiveDocument object and UTF-8July 14, 2010 at 7:19 pm
Change the ActiveDocument.Save line to this:
Set rng = ActiveDocument.Range
If (rng.ReadOnlyContainer = false) Then ActiveDocument.Save
(Again the declaration and cleanup of the rng variable is not included.)
This avoids the Save As dialog if the file is readonly.