word段落的移动

ben168 · 发表于 2022-3-30 10:48

本帖最后由 ben168 于 2022-3-31 19:39 编辑

请教一下：想移动word段落（回车键区分），如第四段内容移到第二段
需要保留原段落的字体格式（如颜色，大小）

PS.
用以下剪切的形式，执行次数多了，会无规律的在.paste的语句会提示无效，不知道是什么原因
Doc.Paragraphs(4).Range.Cut
Doc.Paragraphs(1).Range.InsertParagraphBefore
Doc.Paragraphs(1).Range.Paste

用以下语句暂时解决
oDoc1.Paragraphs(7).Range.FormattedText = oDoc1.Paragraphs(1).Range.FormattedText

413191246se · 发表于 2022-3-30 17:11

Sub test()
ActiveDocument.Paragraphs(4).Range.Cut
Selection.HomeKey Unit:=wdStory
Selection.Paste
End Sub

ben168 · 发表于 2022-3-30 18:31

413191246se 发表于 2022-3-30 17:11
Sub test()
ActiveDocument.Paragraphs(4).Range.Cut
Selection.HomeKey Unit:=wdStory

使用 Selection.Paste 时，会无规律出现 4605 命令无效的出错信息

413191246se · 发表于 2022-3-30 23:38

楼主，请将 Word 主界面和 VBE 编辑环境各半显示，然后，按 F8 键，每次按一下，逐步调试程序，仔细观察光标位置，找出出错原因。

ben168 · 发表于 2022-3-31 08:44

413191246se 发表于 2022-3-30 23:38
楼主，请将 Word 主界面和 VBE 编辑环境各半显示，然后，按 F8 键，每次按一下，逐步调试程序，仔细观察光 ...

单步调试过，有时顺利执行完毕，有时会在.paste语句提示命令无效

		自动登录	找回密码
密码			免费注册

[已解决] word段落的移动