Modificando Automaticamente

[Bruno Krebs]

Dim objWord As Word.Application
Set objWord = CreateObject("Word.Application")
With objWord
    .Visible = True
    .Documents.Open ("C:\ESTUDO ROTAVIRUS\VIGILÂNCIA HOSPITALAR\RELATÓRIO DE EAG\Relatório em branco.doc")
    .ActiveDocument.Bookmarks("PID").Select
    .Selection.Text = CStr(base.Fields("PID"))
End With
objWord.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
objWord.Quit
Set objWord = Nothing

Estou usando este código para alterar automaticamente indicadores no meu documento de word. Até aí tudo bem, mas nesse código ele altera e não salva por causa daquele comando "objWord.ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges". Eu até saberia salvar o documento, só que oque eu quero é salva-lo com outro nome. Alguém saberia me dizer como??

(não sei se fui claro) Desde Já, obrigado.

[Graymalkin]

"Salvar como" em inglês fica "Save As", portanto basta usar o método de mesmo nome do objeto ActiveDocument (ou seja, objWord.ActiveDocument.SaveAs).

Abraços,

Graymalkin