-
Posts
1 -
Cadastrado em
-
Última visita
Tipo de conteúdo
Artigos
Selos
Fabricantes
Livros
Cursos
Análises
Fórum
posts postados por Victorhugoc
Sobre o Clube do Hardware
No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais
Direitos autorais
Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais
Salvar dados selecionados em um arquivo word para depois salvar em pdf
em Microsoft Office e similares
Postado
Preciso salvar partes selecionadas de um um arquivo word em outro arquivo word com marca d'agua e cabeçalho e depois salvar em PDF
Ja tenho esse codigo que mesclei pela internet, porém da erro noo final
Sub SaveCurrentPageAsANewDoc() Dim xDoc As Document Dim xNewDoc As Document Dim xFileName As String Dim xFolderPath As Variant Dim xDlg As FileDialog Dim Words As Object Set xDoc = ActiveDocument xFileName = InputBox("Enter file name here: ", "KuTools for Word") If xFileName = "" Then Exit Sub Set xDlg = Application.FileDialog(msoFileDialogFolderPicker) If xDlg.Show = -1 Then xFolderPath = xDlg.SelectedItems(1) xDoc.Bookmarks("\Page").Range.Select Selection.Copy Set Words = CreateObject("Word.Application") Words.Documents.Open "C:\Users\AVSPC03\Desktop\Produtos AVS word\Modelo1.docx" Selection.Paste Word.SaveAs xFolderPath & "\" & xFileName & ".PDF" (Nessa parte ta dando erro) Words.Close End If End Sub