在线等：把选定的内容复制后作为文件名保存

bth168

把选定的内容复制后作为文件名保存，代码如何写？

Selection.Copy ActiveDocument.SaveAs FileName:=？？？？？, FileFormat:= _ wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _ True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _ False, SaveNativePictureFormat:=False, SaveFormsData:=False, _ SaveAsAOCELetter:=False

　问号处该如何写？用录制的方法不对，每次保存时都用录制的文件名，而不是新复制的内容作为粘贴对象

[此贴子已经被作者于2004-10-27 16:01:46编辑过]

asdf1001

Selection.Text 即可,如果选中多个单元格则只是第一个单元格的内容

asdf1001

连copy都不用.

建议直接引用单元格

bth168

好象不对，提示出错啦。忘记说明了，我这是在WORD下的文件保存

[此贴子已经被作者于2004-10-27 16:24:23编辑过]

守柔

对于单元格必须去除一个字符位置，对于选定区域中如果包含标记等以及一些特殊的字符均需要予以判断，否则以此为文件名，当然要出错了。无需复制是正确的，直接使用SELECTION（或者SELECTION.TEXT)亦可,但必需得去除可能包括单元格段落标记和段落标记的最后一个字符,则需要使用range 对象或者使用MID函数.

pinda

顶，不知道有没有人解决？我也想知道这个程式。可惜我对VBA不懂

pinda

Sub c() ActiveDocument.SaveAs FileName:=Selection.Text, FileFormat:= _ wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _ True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _ False, SaveNativePictureFormat:=False, SaveFormsData:=False, _ SaveAsAOCELetter:=False End Sub

自己解决了。哈哈。谢谢守ROU的指点！

[此贴子已经被作者于2004-12-27 21:12:22编辑过]

pinda

现在我又有一个新问题，

如果选定的内容和以前的文件名重复，新生成的文件会把原文件覆盖掉，这可是大家不想的。所以我想在选定的内容后加数字1。这个程式如何写？

盼各路高手支个招啊。谢谢！！

守柔

定义一个STRING,随手写一下，供参考

如：sub sample

dim Mystr as string

mystr=selection.text & 1

activedocument.saveas mystr

end sub

pinda

经调试，守版主的程式完美无缺。

向守版主致以崇高的敬意！！！！