Word Salvar dados selecionados em um arquivo word para depois salvar em pdf

[Victorhugoc]

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

    
 

[AfonsoMira]

Boas @Victorhugoc ,
Experimente trocar:

Word.SaveAs xFolderPath & "\" & xFileName & ".PDF"   (Nessa parte ta dando erro)

 

Por:

ActiveDocument.ExportAsFixedFormat OutputFileName:= _
            xFolderPath & "\" & xFileName & ".pdf", _
            ExportFormat:=wdExportFormatPDF, _
            OpenAfterExport:=False, _
            OptimizeFor:=wdExportOptimizeForPrint, _
            Range:=wdExportAllDocument, _
            IncludeDocProps:=True, _
            CreateBookmarks:=wdExportCreateWordBookmarks, _
            BitmapMissingFonts:=True