[求助]在VB中怎样将处理了的*.TXT文件另存为*.DOC文件？

ssq1109

谢谢孔兄！

1．似乎还未从根本上解决，如果大小写混用，则排列组合甚多（当然这种混用的可能性极小，但作为程序不能有“侥幸”心理）。

2．原来or这样用，我其实用过：".fbd"  or ".txt"……。当然会报错。

守柔

QUOTE:

以下是引用ssq1109在2006-8-4 16:45:21的发言：

非常谢谢守柔大侠！

我刚试了一下，好像和1楼的是等效的。

我看VBA帮助文件后将1楼的一句改为：

aDoc.SaveAs aDoc.Path & "\" & aDoc.Name & ".doc", FileFormat:=wdFormatDocument '文件另存为DOC
1楼所说的第1个问题（即文件格式）解决了，但第2个问题依旧。

用Word 打开文本文件后，运行以下代码：

Sub Exampel()
MsgBox "The Document's Name:" & Me.Name & vbCrLf _
 & "The Document's Windows Caption: " & Me.ActiveWindow.Caption
End Sub

结果如下图所示：

守柔

QUOTE:

以下是引用konggs在2006-8-5 15:37:37的发言：

1.用Option compare Text

例如：

Option Explicit
Option Compare Text
Sub aaa3()
Dim a, b
a = ".txt": b = ".TXT"
If a = b Then
    MsgBox "="
End If
End Sub

2.为什么不用or?

ifelse Right(aDoc.Name, 4) = ".fbd"  or Right(aDoc.Name, 4) = ".txt" or Right(aDoc.Name, 4) = ".rtf" then

除了option compare text以外，也可以使用UCASE或者LCASE函数处理。

除了OR函数以外，如果对于更多的文件后缀名，可以尝试使用以下代码：

Sub E()
    Dim FileType As String, AllType As String
    AllType = ".RTF.FDB.TXT"
    FileType = VBA.UCase(Right(aDoc.Name, 4))
    If VBA.InStr(AllType, FileType) <> 0 Then MsgBox "YES"
End Sub

ssq1109

谢谢守柔大侠！

您的代码的确更为简洁明了，也很有效。