Excel Do Excel Converter Word para Pdf

[joseA]

Encontrei na net o seguinte código:
 

Sub WordPDF()

Application.ScreenUpdating = False
Application.DisplayStatusBar = True
Dim W As Worksheet
Set W = ThisWorkbook.Sheets("Plan1")

Dim Fso As New FileSystemObject 'objeto do sistema
Dim Fo As Folder ' pasta
Dim F As File ' caminho

Dim Wb As Workbook 'livro
Dim N As Integer ' inteiro

Dim WordApp As New Word.Application 'criar aplicação no word
Dim WordDoc As Word.Document 'criar documento

Set Fo = Fso.GetFolder(ThisWorkbook.Path & "\Arquivo Word\") 'obter o caminho do arquivo word

For Each F In Fo.Files ' contagem dos arquivos da pasta
    N = N + 1 ' soma dos arquivos
    Application.StatusBar = "Processig..." & N & "/" & Fo.Files.Count 'contagem das conversões dos arquivos na barra y de x
    
    Set WordDoc = WordApp.Documents.Open(F.Path) 'abrindo o documento que está no caminho (Path)
    
    WordDoc.ExportAsFixedFormat ThisWorkbook.Path & "\Arquivo Pdf\" & _
VBA.Replace(F.Name, ".docx", ".pdf"), wdExportFormatPDF 'exportação do arquivo word para pdf
WordDoc.Close False

Next
MsgBox "Processo completado", vbInformation, "WORD X PDF"

Application.StatusBar = ""

End Sub

Converte quantos arquivos tiverem na pasta Arquivo Word para pdf exportando para pasta Arquivo Pdf com o mesmo nome de arquivo do Word

Gostaria de adaptar tal código que manterei apenas um arquivo Word na pasta Arquivo Word que após a conversão parra pdf será exportado para pasta Arquivo Pdf com  o nome que estará na célula A1

[Eder Neumann]

só por curiosidade, qual o objetivo disso?

[joseA]

É que tenho um arquivo Word padrão que será preenchido de forma dinâmica e salvo como pdf em outra pasta com dados de  vários estabelecimentos. Por isso o nome irá sempre mudar. Agilizar o trabalho

[Eder Neumann]

entendi, mas não muito bem...

o word é uma espécie de formulário que será preenchido caso a caso e será salvo em pdf noutro lugar, é isto?

 

[joseA]

7 horas atrás, Eder Neumann disse:

entendi, mas não muito bem...

o word é uma espécie de formulário que será preenchido caso a caso e será salvo em pdf noutro lugar, é isto?

 

Isso. Tem uma pasta de nome Arquivo Word com apenas 1 arquivo tipo formulário. Daí a ideia é colar nesse arquivo com vínculo dados que serão preenchidos no excel. Depois converter esse arquivo word para o pdf e salvar em uma pasta Arquivo Pdf sendo que o arquivo terá o nome que estará na célula A1 como exemplo (01, 02, 03...)
Não sei se fiz entender
Esse código que passei até que atende, só não consegui fazer ele nomear o arquivo pdf criado, sai sempre com o mesmo nome...

[joseA]

Bom, acabei me virando aqui e criando uma alternativa. Repliquei o "formulário" em uma planilha do excel mesmo, gravei uma macro e salvei como pdf. Pequei essa macro gravada e editei:

Sub TestePdf()
Dim LocalNome As String
Dim nome As String
nome = Plan2.Range("E9")
LocalNome = ThisWorkbook.Path & "\Arquivo Pdf\" & "\" & nome

    Plan2.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _
        LocalNome, quality:= _
        xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _
        OpenAfterPublish:=False 'True 'para abrir
UserForm1.Show
End Sub

Repare que no fim chama um UserForm. Pois bem, nesse Userform inserir um objeto WebBrowser1 com o seguinte código:

Private Sub UserForm_Initialize()
Dim LocalNome As String
Dim nome As String
Dim endereço As String
nome = Plan2.Range("E9")
LocalNome = ThisWorkbook.Path & "\Arquivo Pdf\" & nome & ".Pdf"
Me.WebBrowser1.Navigate LocalNome
End Sub

Ficou show.
Como o arquivo word é melhor para editar texto foi continuar tentando desvendar pelo word

Se alguém conseguir a solução favor reportar