使用说明:
在开发者工具功能区中点击宏文件
名字随意,点击创建
在编辑页面中复制代码,点击执行后就能快速导出每张页面为JPG格式了
如果功能区无选项则请点击 文件---》选项----》自定义功能区 找到开发工具打勾并保存
宏代码:
Sub export()
Dim DiagramServices As Integer
DiagramServices = ActiveDocument.DiagramServicesEnabled
ActiveDocument.DiagramServicesEnabled = visServiceVersion140 + visServiceVersion150
For i = 1 To Application.ActiveDocument.Pages.Count
Application.ActiveWindow.Page = Application.ActiveDocument.Pages.Item(i)
Application.Settings.SetRasterExportResolution visRasterUseScreenResolution, 96#, 96#, visRasterPixelsPerInch
Application.Settings.SetRasterExportSize visRasterFitToSourceSize, 1.583333, 1.1875, visRasterInch
Application.Settings.RasterExportColorFormat = visRasterRGB
Application.Settings.RasterExportOperation = visRasterBaseline
Application.Settings.RasterExportRotation = visRasterNoRotation
Application.Settings.RasterExportFlip = visRasterNoFlip
Application.Settings.RasterExportBackgroundColor = 16777215
Application.Settings.RasterExportQuality = 100
Application.ActiveWindow.Page.export ActiveDocument.Path + "\" + Application.ActiveWindow.Page.Name + ".jpg"
Next
ActiveDocument.DiagramServicesEnabled = DiagramServices
End Sub