首页 诗词 字典 板报 句子 名言 友答 励志 学校 网站地图
当前位置: 首页 > 教程频道 > 开发语言 > VBA >

word vba 能不能保存word中的图片,该如何处理

2012-02-29 
word vba 能不能保存word中的图片RT,不改变插入图片的二进制数据。如果可以的话如何操作?[解决办法]给楼主

word vba 能不能保存word中的图片
RT,不改变插入图片的二进制数据。
如果可以的话如何操作?

[解决办法]
给楼主一个思路 希望能帮你解决问题
首先把文档另存为网页文件 文件名.html 路径自己定义
然后到这个路径下的文件名.files 文件夹中找到图片 名字一般为image001,image002 等 并将所需文件复制到其他地方
将文件名.html 删除之

另附上相关命令的格式:
SaveAs 方法
参阅应用于示例特性使用新的名称或格式来保存指定文档。此方法的一些参数与“文件”菜单的“另存为”对话框中的选项相对应。

expression.SaveAs(FileName, FileFormat, LockComments, Password, AddToRecentFiles, WritePassword, ReadOnlyRecommended, EmbedTrueTypeFonts, SaveNativePictureFormat, SaveFormsData, SaveAsAOCELetter, Encoding, InsertLineBreaks, AllowSubstitutions, LineEnding, AddBiDiMarks)
expression 必需。该表达式返回一个 Document 对象。

FileName Variant 类型,可选。文档名称。默认值是当前文件夹和文件名。如果从未保存过此文档,则将使用默认的文件名(例如,文档 1.doc)。如果已有文件名指定的文档,则覆盖此文档,而且在覆盖前不提醒用户。

FileFormat Variant 类型,可选。保存文档所使用的格式。可以是任意 WdSaveFormat 常量。若要将文档保存为另一种格式,请为 FileConverter 对象的 SaveFormat 属性指定相应的值。

WdSaveFormat 可以是下列 WdSaveFormat 常量之一: 
wdFormatDocument 另存为 Microsoft Word 文档。默认值。 
wdFormatDOSText 将文本保存为无格式文本。将所有分节符、分页符和换行符转换为段落标记。使用 ANSI 字符集。使用该格式在 Word 和以 DOS 为基础的程序之间共享文档。 
wdFormatDOSTextLineBreaks 将文本保存为无格式文本。将所有换行符、分节符和分页符转换为段落标记。当需要保留换行符时,使用该格式,例如,当将文档转换为适用于电子邮件系统的文档时。 
wdFormatEncodedText 保存为编码文本文件。可用 Encoding 参数指定要用的代码页。 
wdFormatFilteredHTML 使用最小级联样式表格式保存带有 HTML 标记的文本。结果文档可用 Web 浏览器查看。 
wdFormatHTML 将所有文本和格式都保存为 HTML 标记,以便可以在 Web 浏览器上查看结果文档。 
wdFormatRTF 保存所有格式。将格式转换为其他程序可以读取或理解的指令(包括兼容的 Microsoft 程序)。 
wdFormatTemplate 保存为 Word 模板。 
wdFormatText 保存没有格式的文本。将所有分节符、分页符和换行符转换为段落标记。使用 ANSI 字符集。如果目的程序不能读取其他可用的文件格式,则使用该格式。 
wdFormatTextLineBreaks 将文本保存为无格式文本。将所有换行符、分节符和分页符转换为段落标记。当需要保留换行符时,使用该格式,例如,当将文档转换为适用于电子邮件系统的文档时。 
wdFormatUnicodeText 保存为 Unicode 文本文件。将文本转换为普通字符编码标准,包括 Unicode 2.0、Mac OS、Windows、EUC 和 ISO-8859 系列。 
wdFormatWebArchive 将文本、图像和格式另存为单个文件网页。 
wdFormatXML 使用可扩展标记语言 (XML) 和 Word XML 架构保存文本和格式。 
Other File Types 若要保存为不包括常量的文件类型,可用 FileConverters 对象获取 SaveFormat 属性,然后将 FileFormat 参数设为 SaveFormat 属性的值。 

LockComments Variant 类型,可选。如果为 True,则锁定文档备注。默认值是 False。

Password Variant 类型,可选。用于打开文档的密码字符串。(请参阅下面的“说明”。)

AddToRecentFiles Variant 类型,可选。如果为 True,则将文档添加至“文件”菜单中最近使用的文件列表中。默认值为 True。

WritePassword Variant 类型,可选。用于保存对文档所做的修改的密码字符串。(请参阅下面的“说明”。)

ReadOnlyRecommended Variant 类型,可选。如果为 True,在每次打开文档时,Microsoft Word 将建议用户采用只读方式。默认值为 False。

EmbedTrueTypeFonts Variant 类型,可选。如果为 True,则将文档与 TrueType 字体一起保存。如果忽略,则 EmbedTrueTypeFonts 参数将假定为 EmbedTrueTypeFonts 属性的值。

SaveNativePictureFormat Variant 类型,可选。如果为 True,则对于从其他系统平台(例如 Macintosh)导入的图形,将仅保存其 Windows 版本。

SaveFormsData Variant 类型,可选。如果为 True,则将用户在窗体中输入的数据保存为数据记录。

SaveAsAOCELetter Variant 类型,可选。如果文档包含附加的邮件,当此属性值为 True 时,将文档存为 AOCE 信函(同时保存邮件)。

Encoding MsoEncoding 类型,可选。将文档另存为编码文本文件时所使用的代码页或字符集。默认值为系统代码页。

MsoEncoding 可以是下列 MsoEncoding 常量之一: 
msoEncodingArabic 
msoEncodingArabicASMO 
msoEncodingArabicAutoDetect 不用于该方法。 
msoEncodingArabicTransparentASMO 
msoEncodingAutoDetect 不用于该方法。 
msoEncodingBaltic 
msoEncodingCentralEuropean 
msoEncodingCyrillic 
msoEncodingCyrillicAutoDetect 不用于该方法。 
msoEncodingEBCDICArabic 
msoEncodingEBCDICDenmarkNorway 
msoEncodingEBCDICFinlandSweden 
msoEncodingEBCDICFrance 
msoEncodingEBCDICGermany 
msoEncodingEBCDICGreek 
msoEncodingEBCDICGreekModern 
msoEncodingEBCDICHebrew 
msoEncodingEBCDICIcelandic 
msoEncodingEBCDICInternational 
msoEncodingEBCDICItaly 
msoEncodingEBCDICJapaneseKatakanaExtended 
msoEncodingEBCDICJapaneseKatakanaExtendedAndJapanese 
msoEncodingEBCDICJapaneseLatinExtendedAndJapanese 


msoEncodingEBCDICKoreanExtended 
msoEncodingEBCDICKoreanExtendedAndKorean 
msoEncodingEBCDICLatinAmericaSpain 
msoEncodingEBCDICMultilingualROECELatin2 
msoEncodingEBCDICRussian 
msoEncodingEBCDICSerbianBulgarian 
msoEncodingEBCDICSimplifiedChineseExtendedAndSimplifiedChinese 
msoEncodingEBCDICThai 
msoEncodingEBCDICTurkish 
msoEncodingEBCDICTurkishLatin5 
msoEncodingEBCDICUnitedKingdom 
msoEncodingEBCDICUSCanada 
msoEncodingEBCDICUSCanadaAndJapanese 
msoEncodingEBCDICUSCanadaAndTraditionalChinese 
msoEncodingEUCChineseSimplifiedChinese 
msoEncodingEUCJapanese 
msoEncodingEUCKorean 
msoEncodingEUCTaiwaneseTraditionalChinese 
msoEncodingEuropa3 
msoEncodingExtAlphaLowercase 
msoEncodingGreek 
msoEncodingGreekAutoDetect 不用于该方法。 
msoEncodingHebrew 
msoEncodingHZGBSimplifiedChinese 
msoEncodingIA5German 
msoEncodingIA5IRV 
msoEncodingIA5Norwegian 
msoEncodingIA5Swedish 
msoEncodingISO2022CNSimplifiedChinese 
msoEncodingISO2022CNTraditionalChinese 
msoEncodingISO2022JPJISX02011989 
msoEncodingISO2022JPJISX02021984 
msoEncodingISO2022JPNoHalfwidthKatakana 
msoEncodingISO2022KR 
msoEncodingISO6937NonSpacingAccent 
msoEncodingISO885915Latin9 
msoEncodingISO88591Latin1 
msoEncodingISO88592CentralEurope 
msoEncodingISO88593Latin3 
msoEncodingISO88594Baltic 
msoEncodingISO88595Cyrillic 
msoEncodingISO88596Arabic 
msoEncodingISO88597Greek 
msoEncodingISO88598Hebrew 
msoEncodingISO88599Turkish 
msoEncodingJapaneseAutoDetect 不用于该方法。 
msoEncodingJapaneseShiftJIS 
msoEncodingKOI8R 
msoEncodingKOI8U 
msoEncodingKorean 
msoEncodingKoreanAutoDetect 不用于该方法。 
msoEncodingKoreanJohab 
msoEncodingMacArabic 
msoEncodingMacCroatia 
msoEncodingMacCyrillic 
msoEncodingMacGreek1 
msoEncodingMacHebrew 
msoEncodingMacIcelandic 
msoEncodingMacJapanese 
msoEncodingMacKorean 
msoEncodingMacLatin2 
msoEncodingMacRoman 
msoEncodingMacRomania 
msoEncodingMacSimplifiedChineseGB2312 
msoEncodingMacTraditionalChineseBig5 
msoEncodingMacTurkish 
msoEncodingMacUkraine 
msoEncodingOEMArabic 
msoEncodingOEMBaltic 
msoEncodingOEMCanadianFrench 
msoEncodingOEMCyrillic 
msoEncodingOEMCyrillicII 
msoEncodingOEMGreek437G 
msoEncodingOEMHebrew 
msoEncodingOEMIcelandic 
msoEncodingOEMModernGreek 
msoEncodingOEMMultilingualLatinI 
msoEncodingOEMMultilingualLatinII 
msoEncodingOEMNordic 
msoEncodingOEMPortuguese 
msoEncodingOEMTurkish 
msoEncodingOEMUnitedStates 
msoEncodingSimplifiedChineseAutoDetect 不用于该方法。 
msoEncodingSimplifiedChineseGBK 
msoEncodingT61 
msoEncodingTaiwanCNS 
msoEncodingTaiwanEten 
msoEncodingTaiwanIBM5550 
msoEncodingTaiwanTCA 
msoEncodingTaiwanTeleText 
msoEncodingTaiwanWang 
msoEncodingThai 
msoEncodingTraditionalChineseAutoDetect 不用于该方法。 
msoEncodingTraditionalChineseBig5 
msoEncodingTurkish 
msoEncodingUnicodeBigEndian 
msoEncodingUnicodeLittleEndian 
msoEncodingUSASCII 
msoEncodingUTF7 
msoEncodingUTF8 
msoEncodingVietnamese 
msoEncodingWestern 

InsertLineBreaks Variant 类型,可选。在将文档保存为文本文件时,如果为 True,在每一行文本后插入换行符。

AllowSubstitutions Variant 类型,可选。在将文档保存为文本文件时,如果为 True,使 Word 可以将一些符号替换为相似的文本。例如,将版权符号显示为 (c)。默认值是 False。



LineEnding Variant 类型,可选。Word 在另存为文本文件的文档中标记换行符和分段符的方式。可以是任何 WdLineEndingType 常量。

WdLineEndingType 可以是下列 WdLineEndingType 常量之一: 
wdCRLF 默认值。 
wdCROnly 
wdLFCR 不用于该方法。 
wdLFOnly 不用于该方法。 
wdLSPS 不用于该方法。 

AddBiDiMarks Variant 类型,可选。如果为 True,则为输出文件添加控制符,以保留原始文档中文本的双向版式。

SaveFormat 属性
参阅应用于示例特性返回指定文档或文件转换器的文件格式。该值将是指定一个外部文件转换器或一个 WdSaveFormat 常量的唯一数字。Long 类型,只读。

WdSaveFormat 可以是下列 WdSaveFormat 常量之一: 
wdFormatDocument 
wdFormatDOSText 
wdFormatDOSTextLineBreaks 
wdFormatEncodedText 
wdFormatHTML
wdFormatRTF 
wdFormatTemplate 
wdFormatText 
wdFormatTextLineBreaks 
wdFormatUnicodeText 

expression.SaveFormat
expression 必需。该表达式返回“应用于”列表中的一个对象。

说明
使用 SaveAs 方法的 FileFormat 参数的 SaveFormat 属性值可用没有对应的 WdSaveFormat 常量的文件格式保存文档。

示例
如果活动文档为 RTF 格式的文档,本示例将其另存为 Microsoft Word 文档。

If ActiveDocument.SaveFormat = wdFormatRTF Then
ActiveDocument.SaveAs FileFormat:=wdFormatDocument
End If

本示例新建一篇文档并在表格中列出可用于保存文档的转换器及其相应的 SaveFormat 值。

Sub FileConverterList()
Dim cnvFile As FileConverter
Dim docNew As Document

'Create a new document and set a tab stop
Set docNew = Documents.Add
docNew.Paragraphs.Format.TabStops.Add _
Position:=InchesToPoints(3)

'List all the converters in the FileConverters collection
With docNew.Content
.InsertAfter "Name" & vbTab & "Number"
.InsertParagraphAfter
For Each cnvFile In FileConverters
If cnvFile.CanSave = True Then
.InsertAfter cnvFile.FormatName & vbTab & _
cnvFile.SaveFormat
.InsertParagraphAfter
End If
Next
.ConvertToTable
End With

End Sub

热点排行