如何从源文档中查找所有特征字符，并灵活地复制段落到指定的另一个文档的特定位置

ETAlien

源文档 及 需生成文档 如附件所示。本人接触过excel的vba，首次使用word的代码，请各位高人指点！本人思路如下：
第一步：需从源文档的所有测试框里面检测“【】”符号并且前三个字是“共用段”，符合要求才进入第二步；
第二步：从源文档复制含有“【】”的自然段的内容（不包含【】内的内容），并获取括号内的特征数字，如“5.2.1”。
（第三步的前提：需生成文档的表格已经如附件所示设置好，就是“主要问题”一列原来是空的。）
第三步：在需生成文档中定位待复制的位置（1、定位到指定表格，列：“主要问题”，行：与特征数字一样的行，如“5.2.1”）。
第四步：将复制的内容拷贝到第三步定位的地方。

ETAlien

为各位查看方面，特截图。内容与附件一样。请直接看下层楼

ETAlien

为了更加好地理解目的，请参考图片所示的解释。

ETAlien

在网上找到一些参考，将目前的进度贴上，希望各位高手指点：
Sub exe()
    Application.ScreenUpdating = False
        With ActiveDocument.Content.Find
            .Text = "】*^13" '查找“】”符号到“段落标记”之间的字符
            .MatchWildcards = True '允许查找通配符
            Do While .Execute '查找到特征字符时，复制段落
                With .Parent
                    .SetRange .Start + 1, .End
                    .Select
                End With
                Selection.Copy
               
                '请在此添加代码：1、找到同文件夹下的“生成文档”；2、在生成文档中找到指定位置；3、黏贴
           '另外，该段代码只能找到第一个符合特征的字段，求解中。
            Loop
        End With
    Application.ScreenUpdating = True
End Sub

ETAlien

Sub exe()
    Dim s1 As String
    Dim s2 As String
    Application.ScreenUpdating = False
        With ActiveDocument.Content.Find
            .Text = "】*^13"
            .MatchWildcards = True
            Do While .Execute
                With .Parent
                    .SetRange .Start + 1, .End
                    .Select
                End With
                s2 = Selection
               
                '储存特征数字
                With ActiveDocument.Content.Find
                    .Text = "【*】"
                    .MatchWildcards = True
                    Do While .Execute
                        With .Parent
                            .SetRange .Start + 1, .End - 1
                            .Select
                        End With
                        s1 = Selection '存储特征数字于s1变量，
                    Loop
                End With
               
                     Windows("需生成文档 [兼容模式]").Activate '集合所要求的成员不存在
                With ActiveDocument.Content.Find
                    .Text = s1
                    .MatchWildcards = True '允许查找通配符
                End With
               
                Selection.MoveDown Unit:=wdLine, Count:=1 '右移一位，并粘贴内容
                Selection.PasteAndFormat (wdPasteDefault)
               
                Windows("源文档 [兼容模式]").Activate
            Loop
        End With
    Application.ScreenUpdating = True
End Sub

ETAlien

目前测试进度如上楼代码，代码显性出现的问题：
1、需激活第二个文档（需生成文档）时，出现错误：集合所要求的成员不存在，后续语句无法调试。
2、解决1问题后，该段代码是否能将源文档所有【】特征的文字按要求黏贴到第二个文档？根据之前的测试，未能检测到第二个【】特征字段。
坐等高手指点！

琳云满天

我也有相同的问题，同时请教