[Resolvido]Salvar copia de documento word em outra pasta

bom dia a todos !

tenho um código que abre um doc word e edita o mesmo.
porem gostaria de que esse código pudesse salvar uma copia deste documento apos edita-lo em outra pasta
já tentei o ActiveDocument.SaveAs2 mas não estou tendo resultados.

segue código para ajudar na analise , desde já muito obrigado.

Private Sub editar_Lista()

Dim DocWord As Object
Dim ActiveDocument As Object
Set DocWord = CreateObject("Word.Application")
With DocWord
.Visible = True
'.WindowState = wdWindowStateMaximize
.Documents.Add TEMPLATE:=CurrentProject.Path & "\Padrão Lista\Listas de presença.docx", NewTemplate:=False, DocumentType:=0
.ActiveDocument.bookmarks("Tit").Select
.Selection.Text = Forms!Controle_Treinamentos!Txt_titulo
'.ActiveDocument.bookmarks("data").Select
'.Selection.Text = Date


Set DocWord = Nothing
End With
Exit Sub

Boa noite
Movi-lhe a dúvida da sala Módulos e VBA para esta por se tratar de assunto Word

Avelino Sampaio , muito obrigado e desculpa a demora na em responder teu artigo me ajudou muito .