francieira,

Boa tarde!

Veja se é assim.

Tenho um formulário com uma caixa de texto e um botão.

Gostaria que o nome inserido na caixa de texto, fosse o nome do arquivo que gero no Word, em seguida salvando no caminho pré destinado.

Entao disponibilize o arquivo.

O comando seria neste modelo... preciso que o "#NOME_PROP" seja também o nome do arquivo salvo.

Private Sub btImpirmirCadProp_Click()

Dim WORD As WORD.Application
    Dim DOC As WORD.Document
    
    Set WORD = CreateObject("Word.Application")
    WORD.Visible = True
    
    Set DOC = WORD.Documents.Open("C:CIAcadastro_modelo_prop.doc")
    
    With DOC
        '*Dados locador
        .Application.Selection.Find.Text = "#NOME_PROP"
        .Application.Selection.Find.Execute
        .Application.Selection.Range = ActiveCell.Offset(0, 0).Value
        
        .SaveAs ("C:CIAcadastro_modelo_prop2.doc")
        '.Close
    End With
    
    'WORD.Quit
    Set DOC = Nothing
    Set WORD = Nothing

End Sub