Este fórum está sendo desativado

[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

já tenho esse código que mesclei pela internet, porém da erro no final

Código: Selecionar todos

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