Office中国论坛/Access中国论坛

标题: 求助：关于WORD2003宏的另存为使用问题 [打印本页]

作者: ycxjy 时间: 2008-1-16 19:48
标题: 求助：关于WORD2003宏的另存为使用问题
因工作需要，我要把很多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的默认保存目录是“我的文档”，可以改成其它位置，但是一个固定的位置，依然无法实现我的要求。
实在想不出什么办法了，希望当家的和各路朋友指点，万分感谢，也祝好人一生平安，幸福！

作者: 小菜 时间: 2010-7-21 13:26
在哪个文件夹打开的文档，另存时只要不重新指定路径，就保存在这个文档所在的文件夹中呀

欢迎光临 Office中国论坛/Access中国论坛 (http://www.office-cn.net/)