选中的A、B两个文本块，如何一键对调？

找耳朵的雷

用ctrl键，同时选中了A、B两块文本，如何按一下宏按钮，使A、B对调位置？ 宏怎么写？

c81

word本身有一个交换段落功能，很简单的：

比如AB两段，A在上，B在下面，要它们交换的话，全选B，拖到A最前面松开鼠标即可实现对换目的。

守柔

以下是引用[I]找耳朵的雷[/I]在2005-12-23 17:06:55的发言：[BR]用ctrl键，同时选中了A、B两块文本，如何按一下宏按钮，使A、B对调位置？ 宏怎么写？

Option Explicit '注意:运行此过程(GetmultiRange2)前必须引用MSForms '即VBE/工具/引用:Microsoft Forms 2.0 Object Library (C:\WINNT\system32\FM20.DLL) Sub GetmultiRange2() Dim MyData As DataObject, MyString As String, MyText() As String Dim myRange1 As Range, myRange2 As Range, strText1 As String, strText2 As String Dim lngStart1 As Long, lngStart2 As Long, lngEnd1 As Long, lngEnd2 As Long Dim LenText2 As Integer On Error Resume Next '忽略错误 Application.ScreenUpdating = False '关闭屏幕更新 With Selection If .Type = wdSelectionIP Then Exit Sub '如果未选中则退出程序 Set MyData = New DataObject '引用新的DataOject .Copy '选定内容复制 MyData.GetFromClipboard '从剪贴板复制数据到 DataObject MyString = MyData.GetText(1) '获得DataObject的无格式文本 MyText = VBA.Split(MyString, vbCrLf) '取得一个以VBCRLF为分隔符的数组 If UBound(MyText) <> 2 Then Exit Sub '两段非连续文本的数组上标为2 lngStart2 = .Start '取得第二个选块的开始位置(WORD默认) lngEnd2 = .End '取得第二个选块的结束位置 strText2 = .Text '取得第二个选块的文本 strText1 = MyText(0) '取得第一个选块的文本值 .Delete '删除选定内容,光标移到第一个选块开始位置 lngStart1 = .Start '取得第一选块的开始位置 lngEnd1 = .Start + Len(MyText(0)) '取得第一个选块的结束位置 With ActiveDocument .Undo 1 '撤消删除 Set myRange1 = .Range(lngStart1, lngEnd1) '取得第一个选块的RANGE对象 Set myRange2 = .Range(lngStart2, lngEnd2) '取得第二个选块的RANGE对象 myRange2 = strText1 '从第二个选块开始写入新的文本,否则将会改变文档RANGE对象 myRange1 = strText2 '将第一个选块处重新写入新的文本,即交换后的文本 End With End With Application.ScreenUpdating = True '恢复屏幕更新 End Sub 注意事项： 除了上述引用外，请注意，非连续文本只可以选中两处，多选无效；另外，请不要选择段落标记，否则可能会产生交换时的错误；请顺序选定，即第一选块应先选，并位置于第二选块的文档分布的前面（第一选块的位置应该处于第二选块之前，不可反选）

konggs

老大这么辛苦，居然楼主也不来顶一下？

If UBound(MyText) 2 Then Exit Sub '两段非连续文本的数组上标为2
老大此处好像忘了“<>”

老大，关于MSForms的知识，在哪里能看此帮助？

守柔

以下是引用[I]konggs[/I]在2006-1-10 11:57:53的发言：[BR]

老大这么辛苦，居然楼主也不来顶一下？

If UBound(MyText) 2 Then Exit Sub '两段非连续文本的数组上标为2
老大此处好像忘了“<>”

老大，关于MSForms的知识，在哪里能看此帮助？

谢谢KONGGS 我怀疑代码在粘贴到网页过程中被“筛选”过，我在竞赛区有些网友的回答中，也发现过类似情况。

找耳朵的雷

以下是引用[I]konggs[/I]在2006-1-10 11:57:53的发言：[BR]

老大这么辛苦，居然楼主也不来顶一下？

If UBound(MyText) 2 Then Exit Sub '两段非连续文本的数组上标为2
老大此处好像忘了“<>”

老大，关于MSForms的知识，在哪里能看此帮助？

不好意思，我跚跚来迟了，前几天进不了本坛，我才是第一次看到回贴。谢谢守老大！！！！！！！！！！！！！