Salvar dados selecionados em um arquivo word para depois salvar em pdf
Enviado: 22 Jun 2022 às 10:40
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
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