如何用VBA实现文件另存,文件名文档内指定

whitewood

如何用VBA实现文件另存

详细见附件说明

谢谢!!!

agbWlRgr.zip (2.48 KB, 下载次数: 32)

2005-12-12 17:41 上传

点击文件名下载附件
如何用VBA实现文件另存,紧急求助

[此贴子已经被作者于2005-12-12 17:43:26编辑过]

konggs

Sub 孤独一叶()
Dim astr As String
astr = ActiveDocument.Range(Start:=1, End:=10)

' ActiveDocument.SaveAs FileName:="c:\测试另存.doc" '固定名称
ActiveDocument.SaveAs FileName:="c:\" & astr '取前九个字符
End Sub

whitewood

以下是引用konggs在2005-12-12 18:27:10的发言：

Sub 孤独一叶()
Dim astr As String
astr = ActiveDocument.Range(Start:=1, End:=10)

' ActiveDocument.SaveAs FileName:="c:\测试另存.doc" '固定名称
ActiveDocument.SaveAs FileName:="c:\" & astr '取前九个字符
End Sub

谢谢,但是这个能否确定是哪一行的呢?

konggs

具体一点。

whitewood

就按附件这样操作

可以么？

谢谢！！！

konggs

兄弟，你的问题对我比较难。

如果我取出了文本框中的字，你可以又要问取文档中的文字。

你为什么不直接放一小段正式的东西呢？

编程又不是什么简单的事，想了半天又不是楼主所要的，效率很吗？

whitewood

谢谢啊

因为我这个文档是从PDF格式转化过来的,所以那个文件名是在文本框里面

而且文件数量很多

用Aren这个软件可以命名

但会比较麻烦

所以想看VBA是否可以直接解决这个问题

konggs

噢是这样，

那我真的没有办法了

whitewood

Sub 孤独一叶()
Dim astr As String
astr = ActiveDocument.Range(Start:=1, End:=10)

' ActiveDocument.SaveAs FileName:="c:\测试另存.doc" '固定名称
ActiveDocument.SaveAs FileName:="c:\" & astr '取前九个字符
End Sub

这个运行时指到的是第一行,保存名字为第一行的前九个字符

那如何让它运行时指定到特定的行,比如一楼附件的第三行

konggs

第一，word中好像没有行的概念。

第二，文本框中不能算为正文档的行，所以无法。