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

pinda

现在有一个新问题,如果我选定的是两块内容,但保存后只是后面一个内容,怎么改程序,使文件名为两块内容的合并?

守柔

以下第一个代码，是一个偿试，它解决了如何取得多个（N个）文字选定区域的所有内容。第二个代码，简洁明了，直接以粘贴方式进行另存为。

'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋ '* Created By 守柔(ShouRou)@ExcelHome 2005-2-23 5:37:54 '仅测试于System: Windows NT Word: 10.0 Language: 2052 '^The Code CopyIn [ThisDocument-ThisDocument]^' '* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－

'注意:运行此过程(ExampleToSaveAs)前必须引用MSForms '即VBE/工具/引用:Microsoft Forms 2.0 Object Library (C:\WINNT\system32\FM20.DLL) Sub ExampleToSaveAs() Dim MyData As DataObject, MyString As String Dim MyText() As String, aString As Variant, FileName As String If Selection.Type = wdSelectionIP Then Exit Sub '如果未选中则退出程序 Set MyData = New DataObject '引用新的DataOject Selection.Copy '选定内容复制 MyData.GetFromClipboard '从剪贴板复制数据到 DataObject MyString = MyData.GetText(1) '获得DataObject的无格式文本 MyText = VBA.Split(MyString, vbCrLf) '取得一个以VBCRLF为分隔符的数组 For Each aString In MyText '在该数组中循环 FileName = FileName & aString '取得文件名 Next MyData.Clear '清空DataObject On Error Resume Next '设置错误陷阱 ActiveDocument.SaveAs FileName '另存文件 '如果不能正确另存为,提示错误! If Err.Number <> 0 Then Err.Clear: MsgBox "非法文件名!", vbOKOnly + vbCritical, "Warning" End Sub '---------------------- Sub Example() On Error Resume Next '忽略错误 '如果未选定内容则退出 If Selection.Type = wdSelectionIP Then Exit Sub Selection.Copy '复制 SendKeys "^v{Enter}", False '预置粘贴 Application.Run "FileSaveAs" '运行另存为命令 End Sub '----------------------

pinda

守版主,我运行第二个程式,他保存的还是选定的第一个内容,不是选定的两个内容的合并.请看一下.

用SELECTION.TEXT是不是只能选定一块区域啊?

cxffxc

sub sample

dim Mystr as string

mystr=selection.text & date

activedocument.saveas mystr

end sub

这样是不是更合理些

守柔

以下是引用pinda在2005-2-23 13:15:00的发言：

守版主,我运行第二个程式,他保存的还是选定的第一个内容,不是选定的两个内容的合并.请看一下.

用SELECTION.TEXT是不是只能选定一块区域啊?

您把文档附件传上来，我给你看一下，应该不会的。

selection.text在有二块以上区域时，与文档的SELECTION是有区别的，但常规方法无法提取出来，所以我采用了两个方法。或者您再试一下，理论和实际中，我都通过。

pinda

TCXFFXC,谢谢您的关注，的确您的方法更为简单明了。而我要的也正是这个效果。谢谢。

另，你的用户名好怪，为了不打错，我上下拖动，对照了好几次。呵呵

TO：尊敬的守版主，谢谢您无私的帮助。CXFFXC应该已经解决了问题，但为了把我们的问题，进一步解决，我们还有必要再继续下去。谢谢。

swAS5PFl.rar (11.04 KB, 下载次数: 12)

2005-2-23 15:07 上传

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