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文件大小