[问题求助] vbs能不能使用vba的MsoEncoding常量

普大喜奔

用vbs编写代码 使用word.application的Documents.Open 方法打开word文件 其中有一个参数是Encoding，微软的文档说该参数可以是任何有效的 MsoEncoding 常量，我想把该参数设置为msoEncodingSimplifiedChineseGBK，但又不知道这个常量的数值，在vbs脚本里直接引用恐怕又不行，该如何处理呢？

普大喜奔

今天星期六 问的不是时候。。。

yu2n

【查询VBA常量】
1. 打开Word，按 Alt + F11 进入Word VBA。
2. 按 Ctrl + G 打开 “立即窗口” ，输入要查询的常量，然后按回车。例如：

?msoEncodingSimplifiedChineseGBK
复制代码

3. 得到返回值 936

【在VBS中使用VBA常量】
在VBS代码头部(函数头部)定义该常量，如下：

Const msoEncodingSimplifiedChineseGBK = 936
复制代码

普大喜奔

回复 3# yu2n
office版本不一样，是不是函数的参数也不一样啊，我这是version 12.0，对应的是word 2003 还是2010、2013？
我在微软网站上看的open参数是2013的，有可能对不上号所以报错了

普大喜奔

回复 3# yu2n

createobject("word.application").Documents.Open dir & "\1.doc",0,1,,,,,,,,,936,,,,,0
复制代码

结果提示错误：参数个数不正确或参数无效 文件打开了，还是有选择编码的对话框

yu2n

回复 5# 普大喜奔
印象中doc文件本身不区分编码，最起码用Word打开时不需要指定编码。
建议这样写。
下面的例子是读出 D:\1.doc 的文档内容：

Set objWord = Word_Init()
Set objDoc = objWord.Documents.Open("D:\1.doc")
strContent = objDoc.Content
objDoc.Close False
objWord.Quit
Msgbox "Word 的内容是：" & strContent
复制代码

objWord 对象可以这样创建：

' 创建 Word 对象
Function Word_Init()
  Const msoAutomationSecurityForceDisable = 3
  Set objWord = CreateObject("Word.Application")
  If Not Err.Number = 0 Then
    Msgbox "错误：无法创建 Word 对象，你可能没有安装 Office 。"
    WScript.Quit(999)
  End If
  If Not objWord.Application.Version >= 12.0 Then
    Msgbox "警告：请使用 Office 2007 以上版本。"
  End If
  ' 隐藏运行，屏蔽提示
  objWord.Visible = False
  objWord.DisplayAlerts = False
  ' 禁用以编程方式打开的所有文件中的所有宏，而不显示任何安全警告。
  ' VBA打开文件时（临时）禁用宏
  ' http://club.excelhome.net/thread-1001802-1-1.html
  objWord.AutomationSecurity = msoAutomationSecurityForceDisable
  Set Word_Init = objWord
End Function
复制代码

普大喜奔

回复 6# yu2n
是我搞错了 我把文件转换器和编码搞混了 以为用参数指定编码可以避免打开那个选择编码的窗口 文件转换器是没法屏蔽的好像

yu2n

回复 7# 普大喜奔

在 Word 中打开 Doc 文档，应该是不会出现选择编码窗口的。

除非你打开的是其他类型的文件，比如文本(txt/vbs/log/bat)文件。