把"花芳香"和下文出现的第一个加粗的文字之间的内容合成1段并复制到剪贴板

wt29106

玫瑰 ，蔷薇科，蔷薇属（Rosa rugosa Thunb．）
玫瑰原产我国，栽培历史已久。既是优良的花灌木，又是重要的香料植物。
[形态特征] 落叶直立丛生灌木，茎枝灰褐色，密生刚毛与倒刺，羽状复叶，小叶5-9，椭圆形至椭圆状倒卵形，钝锯齿，质厚，有皱纹，上面亮绿色，下面灰绿色，被柔毛或刺毛，叶柄及叶轴疏生小皮刺及腺毛。托叶大部与叶柄连合，具细锯齿。花单生或3-6朵集生，花径6-8厘米，花芳香，密被茸毛及刺毛，花瓣紫红或白色，单瓣或重瓣。蔷薇果扁球形，红色，尊片宿存。花期5-9月，果期9一10月。
常见变种有：
紫玫瑰f．typica花玫瑰紫色。
红玫瑰f．rosea花玫瑰红色。
白玫瑰f．alba花白色。
重瓣紫玫瑰f.plena花玫瑰紫色，重瓣，香气馥郁，品质优良，多不结实，各地广为栽培。
重瓣白玫瑰f.albo-plena花白色，重瓣。
[分布]原产辽宁、山东等地，现栽培分布各地，以山东、江苏、浙江、广东为多，山东平阴，北京妙蜂山涧沟、河南商水县周口镇及浙江吴兴等地都是玫瑰的有名产地。朝鲜、日本及欧美均有栽培。
[习性] 玫瑰系温带树种，耐寒，耐旱，对土壤要求不严，在微碱性土地能生长，在富含腐殖质、排水良好的中性或微酸性轻壤土上生长和开花最好，最喜光，在庇荫下生长不良，开花稀少，不耐积水，受涝则下部叶片黄落，萌蘖性很强，生长迅速。

玫瑰的生态与种类
玫瑰原产于东方，但如今大概已遍布全世界，主要出现于温带。原始的品种包括野生玫瑰共有250种不同种类，而混种与变种则有成千上万种。现今有三十多种称为「香味玫瑰」，但其中只有三种是其它玫瑰的「亲代」，由于花香优雅，而以大片面积栽种。第一种是红玫瑰（R.gallica），最易繁殖，原产于高加索，常称为「法国玫瑰」、「普罗因玫瑰」（Provins rose）或「安娜托利亚玫瑰」（Rose of Anatolia）。第二种老玫瑰是千叶玫瑰（R.centifolia），原产于波斯，常称为「普罗斯旺玫瑰」（Provence rose）或伊斯帕罕玫瑰（Rose of Ispahan），是红玫瑰的子代，为苔苏玫瑰与卷心玫瑰的亲代。第三种老玫瑰是大马士革玫瑰（R.damascena），原产于叙利亚，香味扑鼻，是最常供蒸馏精油的玫瑰，也最具医疗价值。
被复制到剪贴板的内容为：
，密被茸毛及刺毛，花瓣紫红或白色，单瓣或重瓣。蔷薇果扁球形，红色，尊片宿存。花期5-9月，果期9一10月。常见变种有： 紫玫瑰f．typica花玫瑰紫色。红玫瑰f．rosea花玫瑰红色。白玫瑰f．alba花白色。

413191246se

* 楼主，请使用代码前选定“花芳香”三个字（可以选定任意字数）：

1. Sub aaaa_Copy2Clipboard()
   
2.     Dim i&
   
3.     With Selection
   
4.         If .Type = wdSelectionIP Then MsgBox "Not-Selected!", 0 + 16: End
   
5.         i = Len(.Text)
   
6.         Do
   
7.             .MoveEnd
   
8.         Loop Until .Characters.Last.Bold = True
   
9.         .MoveStart 1, i
   
10.         .MoveEnd 1, -1
    
11.         .Find.Execute "[^13^11]", , , 1, , , , , , "", 2
    
12.         .Copy
    
13.         ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges
    
14.     End With
    
15. End Sub

复制代码

wt29106

413191246se 发表于 2020-6-11 23:17
* 楼主，请使用代码前选定“花芳香”三个字（可以选定任意字数）：

感谢413191246se老师的帮助，代码能准确复制，不过并没有将所复制内容的段落合并成一段，不知道哪里需要调试一下，还是我电脑的问题

wt29106

413191246se 发表于 2020-6-11 23:17
* 楼主，请使用代码前选定“花芳香”三个字（可以选定任意字数）：

还有个问题想问下老师，如果选定内容本身是加粗的或者该行后的文字也有加粗的，比如花芳香，密被茸毛及刺毛，花瓣紫红或白色，单瓣或重瓣。蔷薇果扁球形，红色，尊片宿存。花期5-9月，果期9一10月。
常见变种有：
紫玫瑰f．typica花玫瑰紫色。
红玫瑰f．rosea花玫瑰红色。
白玫瑰f．alba花白色。
重瓣紫玫瑰选定的“花芳香”本身就是加粗的，选定词所在行也有加粗的词语，我想把选定词所在行的内容（不论是否有加粗的内容都复制）从下一行开始复制到第一个加粗的文字。例子中要复制的内容就是：
，密被茸毛及刺毛，花瓣紫红或白色，单瓣或重瓣。蔷薇果扁球形，红色，尊片宿存。花期5-9月，果期9一10月。
常见变种有：
紫玫瑰f．typica花玫瑰紫色。
红玫瑰f．rosea花玫瑰红色。
白玫瑰f．alba花如果是这样的要求代码该如何修改呢

413191246se

* 楼主，我的代码针对你一楼附件经过反复测试是正确的、完全达到你的要求，请重新测试一下。
* 请将新的要求写在下一楼，提供原文，说明要达到的效果。你上一楼的描述我未看懂。

wt29106

413191246se 发表于 2020-6-12 15:17
* 楼主，我的代码针对你一楼附件经过反复测试是正确的、完全达到你的要求，请重新测试一下。
* 请将新的要 ...

用word打开就好了，之前是用wps，问题解决了。再次感谢。新的问题在下一楼，附件一并附上。

wt29106

希望复制原文档里的涉及安全生产方面的问题项和对应的单位名称

413191246se

楼主，不好意思，昨晚或前晚，我已经看过了你这个最新问题的帖子，但我觉得太乱，看不懂！本人智商也是欠费的，故爱莫能助啊！只好请 楼主 期待各位老师、大神出手了。

wt29106

413191246se 发表于 2020-6-13 01:02
楼主，不好意思，昨晚或前晚，我已经看过了你这个最新问题的帖子，但我觉得太乱，看不懂！本人智商也是欠费 ...

感谢413191246se老师的帮助，受益良多。

413191246se

楼主，你的原/新问题已经解决（刚开始看着很烦乱，没心情细看；后来总算看明白了，就好办了！请见你的另一帖。