victorhco

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 já 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

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 já 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