vbs能不能使用vba的MsoEncoding常量

普大喜奔

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

普大喜奔

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

yu2n

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

1. ?msoEncodingSimplifiedChineseGBK

复制代码

3. 得到返回值 936

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

1. Const msoEncodingSimplifiedChineseGBK = 936

复制代码

普大喜奔

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

普大喜奔

回复 3# yu2n

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

复制代码

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

yu2n

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

1. 
   
2. Set objWord = Word_Init()
   
3. Set objDoc = objWord.Documents.Open("D:\1.doc")
   
4. strContent = objDoc.Content
   
5. objDoc.Close False
   
6. objWord.Quit
   
7. Msgbox "Word 的内容是：" & strContent
   

复制代码

objWord 对象可以这样创建：

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

复制代码

普大喜奔

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

yu2n

回复 7# 普大喜奔

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

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