Preciso de um codigo que abra o arquivo word logo em seguida abre o arquivo salvar como PDF para mim poder escolher o local e o nome do arquivo e depois que eu salvar ele fecha o word sem salvar as alterações.

fabrycioo,

Bom dia!

Veja se é assim.

fabrycioo,

Bom dia!

Você não deve inserir mais de um tópico com a mesma demanda/situação. Esse seu tópico já está respondido em outro tópico que você postou com conteúdo muito semelhante. Eu mesmo o respondi.

Se um dos tópicos não atende mais ao que você queria, por gentileza, solicite a um moderador que exclua o tópico.

Seria mais o menos isso porem preciso que seja em pdf e que eu posso escolher o nome para salvar o arquivo

CaminhoPDF = Application.GetSaveAsFilename(FileFilter:="Documento PDF (*.pdf), *.pdf")

seria mais o menos isso porém tentei executar e quando salva não aparece o arquivo isso tudo em formato de commandobutton
se possível junto com esse código .

Private Sub btn_montar_contrato_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:Planilha VBAPlanilha ExcelVBAcontrato.docx")
        With DOC
        End With
End Sub