repaint the document

[sven2000]

Hi!

When I send text to the document from a UserForm, then document does
not repaint and the new text is not shown. Whet helps is to force a
repaint by dragging the UserForm over the document.

I would expect to use something similar to 'myRange.Delete' but so far
no luck.

Dim myRange As Range
Set myRange = ThisDocument.Range(Start:=ThisDocument.Range.Start,
End:=ThisDocument.Range.End)
'myRange.Update ' does not work
'myRange.Repaint ' does not work

 

[Doug Robbins - Word MVP]

Use:

With ActiveDocument
.PrintPreview
.ClosePrintPreview
End With


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP, originally posted via msnews.microsoft.com