回复 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
复制代码
|