Страницы: 1
RSS
Постраничное сохранение документа в формате PDF
 
Форумчане, доброго времени суток!

Прошу подсказать что делаю не так.
Имеется документ Visio, со 100 листами, необходимо каждый лист сохранить в отдельный PDF файл и назвать первыми 2мя символами листа.
Есть следущий макрос :

Sub savetopdf()

Dim ws As Worksheet
For Each ws In ActiveWorkbook.Worksheets
   ws.ExportAsFixedFormat Type:=xlTypePDF, Filename:="C:\Users\Desktop" & "\" & Left(s.Name, 2)
Next
End Sub



Update:

Разобрался со всем, кому если нужно вот код:



Sub savetopdf()

Dim DiagramServices As Integer
DiagramServices = ActiveDocument.DiagramServicesEnabled
ActiveDocument.DiagramServicesEnabled = visServiceVersion140 + visServiceVersion150
Dim j As Integer
For j = 3 To 83
Application.ActiveWindow.Page = Application.ActiveDocument.Pages.ItemU(j)
Application.ActiveDocument.ExportAsFixedFormat visFixedFormatPDF, "C:\" & Left(ActiveWindow.Page.Name, 2) & ".pdf", visDocExIntentPrint, visPrintCurrentPage, 46, 46, False, True, False, False, False
Next j
ActiveDocument.DiagramServicesEnabled = DiagramServices
End Sub
Изменено: Walkish - 26.04.2018 11:45:30
Страницы: 1
Наверх