vbaword另存为pdf文件大小

1.vba word转pdf 的 FileFormat是几

应该是17

以下为参考文件

Word 开发人员参考

WdSaveFormat 枚举

指定要在保存文档时使用的格式。

版本信息 已添加版本：

名称 值 说明

wdFormatDocument 0 Microsoft Word 格式。

wdFormatDOSText 4 Microsoft DOS 文本格式。

wdFormatDOSTextLineBreaks 5 Microsoft DOS 文本格式，并且保留换行符。

wdFormatEncodedText 7 编码文本格式。

wdFormatFilteredHTML 10 筛选的 HTML 格式。

wdFormatHTML 8 标准 HTML 格式。

wdFormatRTF 6 RTF 格式。

wdFormatTemplate 1 Word 模板格式。

wdFormatText 2 Microsoft Windows 文本格式。

wdFormatTextLineBreaks 3 Windows 文本格式，并且保留换行符。

wdFormatUnicodeText 7 Unicode 文本格式。

wdFormatWebArchive 9 Web 档案格式。

wdFormatXML 11 可扩展标记语言 （XML） 格式。

wdFormatDocument97 0 Microsoft Word 97 文档格式。

wdFormatDocumentDefault 16 Word 默认文档文件格式。对于 Word 2010，这是 DOCX 格式。

wdFormatPDF 17 PDF 格式。

wdFormatTemplate97 1 Word 97 模板格式。

wdFormatXMLDocument 12 XML 文档格式。

wdFormatXMLDocumentMacroEnabled 13 启用了宏的 XML 文档格式。

wdFormatXMLTemplate 14 XML 模板格式。

wdFormatXMLTemplateMacroEnabled 15 启用了宏的 XML 模板格式。

wdFormatXPS 18 XPS 格式。

? 2010 Microsoft Corporation。保留所有权利。

2.EXCEL VBA 将工作薄内所有工作表存为一个PDF文件

可以通过录制宏得到一段代码，稍加修改后即可使用，如下图示：

代码：

Option Explicit

Sub EtoPDFs()

'

'另存为PDF

' '全选工作表

Sheets.Select

'另存为PDF文件'ThisWorkbook.Name'部分因为不知道你的工作簿后缀是什么，否则可以通过mid或者left函数修改保存的名字

ActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:= _

ThisWorkbook.Path & "\" & ThisWorkbook.Name & ".pdf", Quality _

:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, _

OpenAfterPublish:=True

End Sub

3.如何利用VBA将一个Excel中的每一个工作表都保存为一个PDF文件,

如果要每个SHEET存一个文件，需要循环把每个SHEET先移出来，再另存为PDF。

代码如下，供参考。Sub 折表存PDF()Dim MyWorkDim MySheetDim MyPathMyWork = ActiveWorkbook.NameMyPath = ActiveWorkbook.PathFor Each MySheet In SheetsMySheet.CopyChDir MyPathActiveSheet.ExportAsFixedFormat Type:=xlTypePDF, Filename:=MySheet.Name & ".pdf", Quality:=xlQualityStandard, IncludeDocProperties:=True, IgnorePrintAreas:=False, OpenAfterPublish:=FalseActiveWindow.Close FalseWindows(MyWork).ActivateNextEnd Sub。

4.word文件制成pdf文件,文件容量太大了,如何把它缩小

Adobe Acrobat 压缩pdf如图示操作

打开pdf后，选择文件---另存为---

前者“缩小大小的pdf”针对文本内容的；

后者"优化扫描版的pdf"针对扫描版的；

一般点击后保持默认参数进行压缩即可

也可以用pdfshark，压缩模式分为网页、邮件、移动设备等，很容易

该软件体积很少，网上有下载

制作pdf时

建议安装单独的pdf虚拟打印机（pdffactory、ultra pdf等），可以将任意文档打印/转换成pdf，只要应用程序提供有打印文档的选项。

通过这种方法生成的pdf文件可以完美保留文档的版式和内容，而且生成的文件体积小。

转载请注明出处51数据库 » vbaword另存为pdf文件大小