Reply To: xml property of ActiveDocument object and UTF-8

[LeeHart]

Change the ActiveDocument.Save line to this:

Set rng = ActiveDocument.Range
rng.SelectAll

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.

Lee

Reply