Прошу подсказать что делаю не так. Имеется документ 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