Selecionar qual arquivo abrir e onde salvar um arquivo em VBA

[BeatrizFQ123]

Boa tarde pessoal,

Estou fazendo uma macro que lê dados do excel e preenche automaticamente algumas coisas no word. Contudo, estou tendo dificuldades pois quero escolher qual o arquivo do WORD que eu quero abrir e no final quero que dê a opção da pessoa escolher onde salvar o arquivo do Word.

Desde já, muito obrigada.

[Alyson Ronnan Martins]

Para escolher qual arquivo do word vai abrir tenta esse comando: 

Public Sub fnAbrirWordSalvar()
    Dim CaixaDialogo As FileDialog
    Set wordapp = CreateObject("word.Application")
        wordapp.Visible = True
    'Set worddoc = wordapp.Documents.Open("C:\Users\Alyson\Documents\Teste.docx")
    Set CaixaDialogo = wordapp.FileDialog(msoFileDialogOpen)
    With CaixaDialogo
        .InitialFileName = "C:\Users\Alyson\Documents\"
        .Show
        .Execute
    End With
    '--------------------------------------------
    'Comando aqui dentro para editar o word
    '--------------------------------------------
    
    
    '--------------------------------------------
    'Caixa para salvar o arquivo:
    '--------------------------------------------
    Set CaixaDialogo = wordapp.FileDialog(msoFileDialogSaveAs)
    With CaixaDialogo
        .InitialFileName = "C:\Users\Alyson\Documents\"
        .Show
        .Execute
    End With
    wordapp.Quit
End Sub