执行替换宏命令后无法继续选定当前段落

xoyyt

各位大神，晚上好！
小弟最近在配合ANKI软件，需要把DOCX文档中已选定段落中的红色字体替换为{{c1::……}}的格式，录制了查找替换宏，在替换过程中没有问题。
但是为了配合鼠标命令，需要在执行替换命令后，将替换完成的段落进行复制，再粘贴到其他程序中，所以我在上述宏命令当中增加了Selection.Copy
现在遇到的问题是，一旦执行到Selection.Copy时，会进行系统报错，提示“未选定任何文字”，请问此事何解。（令我困惑的是之前用这个命令并没有出现什么问题，不知道为何突然就不行了）
具体代码如下：
Sub 宏1()
    Selection.Find.ClearFormatting
    Selection.Find.Font.Color = wdColorRed
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .Text = ""
        .Replacement.Text = "{{c1::^&}}"
        .Forward = True
        .Wrap = wdFindStop
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.Copy


操作环境：word 2019

xoyyt

求帮助

413191246se

楼主，我觉得你还是话没说明白，你是想选定一个段落就复制到新文档中去？然后再选定另一段落？

xoyyt

413191246se 发表于 2020-6-23 23:37
楼主，我觉得你还是话没说明白，你是想选定一个段落就复制到新文档中去？然后再选定另一段落？

大神好，是手动选定当前段落，运用宏的替换命令对段落中红色字体进行特殊字符的添加后，对已替换的当前段落（即为执行宏命令前选定的段落）进行复制，以便我粘贴到其他软件当中。

xoyyt

xoyyt 发表于 2020-6-24 09:53
大神好，是手动选定当前段落，运用宏的替换命令对段落中红色字体进行特殊字符的添加后，对已替换的当前段 ...

步骤为：
选定段落（手动）——替换（宏）——复制（宏）——粘贴到其他软件（手动）。本次想用宏命令实现中间两步的内容，即替换后进行复制。但是这个宏之前是能用的，后来不知道为何就一直在Selection.Copy那一步报错（未选定文字）

413191246se

楼主：
1、你提供的附件，结尾不少都是手动换行符（^l）而不是段落标记（^p）。你知道现在有几个段落吗？
2、如果每一个段落都用鼠标选择后执行你的代码，运行结果正确！
3、但是如果没有任何选择，光标还是一个插入点。当它在文首时，替换后将全文所有段落中的红色部分替换，但是光标指针仍然在文首，这时想复制，就会出错（因为没有选定任何一个字符，仍然是一个插入点）。
4、请 楼主 在你的代码第一行前面加入下面这个语句，就可以不用鼠标勾选了，只须将鼠标放在该段落中，再执行你的代码即可：
Selection.Expand 4

xoyyt

413191246se 发表于 2020-6-25 12:47
楼主：
1、你提供的附件，结尾不少都是手动换行符（^l）而不是段落标记（^p）。你知道现在有几个段落吗？
...

已重新上传附件，还望大神帮助解惑。目前并不能执行复制

413191246se

请 楼主 重新阅读第 6 楼文字，我已经没有什么可说的了。

xoyyt

413191246se 发表于 2020-6-28 22:59
请 楼主 重新阅读第 6 楼文字，我已经没有什么可说的了。

谢谢