[求助]怎样修改代码避免下列问题？

ssq1109

在VB中适当引用后用下列语句使WORD打开一文件：

Dim wdApp As Word.Application
Dim aDoc As Document
Set wdApp = New Word.Application
Set aDoc = wdApp.Documents.Open(Filename:=Form1.Filename.Text)

我今天操作的一文件（是一文本文件）可能是因编码格式的问题用上法打开后在WORD中是乱码，于是我单独用WORD再打开此文件时弹出如图的菜单：

 

如直接按默认方式打开，文件也是乱码，但当在菜单上选“纯文本”时，显示正常。

那么怎样修改以上代码实现：不论要打开的文本文件的编码格式是什么，都自动按上面菜单的“纯文本”方式打开呢？

konggs

摘自帮助：

expression.Open(FileName, ConfirmConversions, ReadOnly, AddToRecentFiles, PasswordDocument, PasswordTemplate, Revert, WritePasswordDocument, WritePasswordTemplate, Format, Encoding, Visible, OpenConflictDocument, OpenAndRepair, DocumentDirection, NoEncodingDialog)

Format     Variant 类型，可选。打开文档时使用的文件转换器。可以是下列 WdOpenFormat 常量之一。

WdOpenFormat 可以是下列 WdOpenFormat 常量之一：

wdOpenFormatAllWord

wdOpenFormatAuto 默认值。

wdOpenFormatDocument

wdOpenFormatEncodedText

wdOpenFormatRTF

wdOpenFormatTemplate

wdOpenFormatText

wdOpenFormatUnicodeText

wdOpenFormatWebPages

若要指定外部文件格式，请将 OpenFormat 属性应用于 FileConverter 对象，以便确定要用于此参数的值。

ssq1109

谢谢孔兄提示！我已成功解决这一问题。