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

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...

É 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

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

Veja essa referência: http://www.tomasvasquez.com.br/forum/viewtopic.php?f=17&t=769&start=10

Seria porque a célula está formatada como texto. Para teste formate uma célula como texto e digite como você exemplificou. Neste caso você teria que limpar formatos, ir em F2 (modo de edição) e Enter para validar a fórmula. Teste ai.

Uma sugestão seria ativar a planilha, classificar e voltar para outra planilha. Mas dessa maneira você classifica sem ativar a planilha, seria só adaptar: Sub classificar() Plan1.Range("A2:AD65000").Sort Plan1.Range("A2"), xlAscending End Sub

Selecione o intervalo A2:C10 menu>formatar>linha>reexibir, depois menu>formatar>coluna>reexibir.