求助：关于WORD2003宏的另存为使用问题

ycxjy

因工作需要，我要把很多WORD文档都转换成RTF格式，但它们都在不同的目录里，于是我编写了一段宏，代码如下：
Sub autoopen()
    Dim strDocName As String
    Dim intPos As Integer
           
    strDocName = ActiveDocument.Name
    intPos = InStrRev(strDocName, ".")
   
    If intPos = 0 Then
       strDocName = InputBox("Please enter the name " & _
       "of your document.")
    Else
        strDocName = Left(strDocName, intPos - 1)
        strDocName = strDocName & ".rtf"
    End If

    ActiveDocument.SaveAs FileName:=strDocName, _
        FileFormat:=wdFormatRTF
End Sub

上述代码可以执行，打开一份DOC文档后，就会自动另为一份RTF格式同名文件。

但问题是：每次都自动把RTF文件保存在“我的文档”文件夹里，可是我希望程序能自动把新生成的RTF文件保存在DOC文档所在的当前文件夹里。
我研究了一下，发现是WORD的默认保存目录是“我的文档”，可以改成其它位置，但是一个固定的位置，依然无法实现我的要求。
实在想不出什么办法了，希望当家的和各路朋友指点，万分感谢，也祝好人一生平安，幸福！

小菜

在哪个文件夹打开的文档，另存时只要不重新指定路径，就保存在这个文档所在的文件夹中呀