高手：Word 中这样的代码如何实现（无法通过录制宏得到）
Word 中支持内容移动的操作，就是选定一段内容后，通过鼠标可以将其拖动到另外的地方，同时按住 Ctrl 键盘话，保留原内容。
请问，这样的操作如果通过代码来实现，如何才能做到？本想通过录制宏来得到，但Word在录制宏却时不支持鼠标的操作。（为什么需要这样拖动的拷贝方式呢，因为这种方式不影响剪贴板。）
问题点数：0、回复次数：3Top
1 楼DawnPine（拂晓的松）回复于 2005-06-07 09:35:12 得分 0
哈哈
这里也有你的帖
为什么不能用剪贴板?Top
2 楼ciniddvon（ciniddvon）回复于 2005-07-08 17:06:16 得分 0
Selection.MoveUp Unit:=wdParagraph, Count:=2, Extend:=wdExtend
向下移动选择 2段
Selection.MoveDown Unit:=wdParagraph, Count:=2, Extend:=wdExtend
向下移动选择 2段
Unit:=wdLine Unit:=wdWindow Unit:=wdCharacter
移动行 字符 窗口Top
3 楼ciniddvon（ciniddvon）回复于 2005-07-08 17:07:49 得分 0
这是我的一个选中 某点 到文末的程序段
Selection.HomeKey Unit:=wdStory
With Selection.Find
.Text = "一覧"
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = True
.Execute
j = 1
For i = 1 To 10
If Selection.Style <> ActiveDocument.Styles("見出し 1") Then
.Execute
Else
i = 11
End If
Next
Selection.ExtendMode = True
Selection.EndKey Unit:=wdStory
Selection.ExtendMode = False
Selection.MoveUp Unit:=wdParagraph, Count:=1, Extend:=wdExtend
End WithTop
