Word VBA教程:OpenEncoding属性

返回用于打开指定文档的编码。MsoEncoding,只读。

MsoEncoding 可以是这些 MsoEncoding 常量之一;但是,不能使用有 AutoDetect 前缀的常量。这些常量由ReloadAs方法使用。
msoEncodingOEMMultilingualLatinI
msoEncodingOEMNordic
msoEncodingOEMTurkish
msoEncodingSimplifiedChineseAutoDetect
msoEncodingT61
msoEncodingTaiwanEten
msoEncodingTaiwanTCA
msoEncodingTaiwanWang
msoEncodingTraditionalChineseAutoDetect
msoEncodingTurkish
msoEncodingUnicodeLittleEndian
msoEncodingUTF7
msoEncodingVietnamese
msoEncodingEBCDICJapaneseKatakanaExtended
msoEncodingEBCDICJapaneseLatinExtendedAndJapanese
msoEncodingEBCDICKoreanExtendedAndKorean
msoEncodingEBCDICMultilingualROECELatin2
msoEncodingEBCDICSerbianBulgarian
msoEncodingEBCDICThai
msoEncodingEBCDICTurkishLatin5
msoEncodingEBCDICUSCanada
msoEncodingEBCDICUSCanadaAndTraditionalChinese
msoEncodingOEMModernGreek
msoEncodingOEMMultilingualLatinII
msoEncodingOEMPortuguese
msoEncodingOEMUnitedStates
msoEncodingSimplifiedChineseGBK
msoEncodingTaiwanCNS
msoEncodingTaiwanIBM5550
msoEncodingTaiwanTeleText
msoEncodingThai
msoEncodingTraditionalChineseBig5
msoEncodingUnicodeBigEndian
msoEncodingUSASCII
msoEncodingUTF8
msoEncodingWestern
msoEncodingArabic
msoEncodingArabicASMO
msoEncodingArabicAutoDetect
msoEncodingArabicTransparentASMO
msoEncodingAutoDetect
msoEncodingBaltic
msoEncodingCentralEuropean
msoEncodingCyrillic
msoEncodingCyrillicAutoDetect
msoEncodingEBCDICArabic
msoEncodingEBCDICDenmarkNorway
msoEncodingEBCDICFinlandSweden
msoEncodingEBCDICFrance
msoEncodingEBCDICGermany
msoEncodingEBCDICGreek
msoEncodingEBCDICGreekModern
msoEncodingEBCDICHebrew
msoEncodingEBCDICIcelandic
msoEncodingEBCDICInternational
msoEncodingEBCDICItaly
msoEncodingEBCDICJapaneseKatakanaExtendedAndJapanese
msoEncodingEBCDICKoreanExtended
msoEncodingEBCDICLatinAmericaSpain
msoEncodingEBCDICRussian
msoEncodingEBCDICSimplifiedChineseExtendedAndSimplifiedChinese
msoEncodingEBCDICTurkish
msoEncodingEBCDICUnitedKingdom
msoEncodingEBCDICUSCanadaAndJapanese
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

expression.OpenEncoding

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

VBA示例

本示例实现的功能是:测试当前文档是否使用编码 UTF7 打开。


If ActiveDocument.OpenEncoding = msoEncodingUTF7 Then
    MsgBox "This is a UTF7-encoded text file!"
Else
    MsgBox "This is not a UTF7-encoded text file!"
End If

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号