|
|
|
|
Título da Dica: Fazer UNDO no Word
|
|
|
|
Postada em 20/4/2004 por Rochª
Executa o UNDO do word.
Dim word1 As Object Set word1 = CreateObject("word.application") word1.Visible = True word1.Documents.Open "c:\documento.doc"
word1.Document.Undo(1)
Onde o parametro 1 é o numero de retocessos.
Rochª
|
|
|
|
|