需要一次次地移动不同文本追加到其他位置，如何宏操作？

找耳朵的雷

我经常从网上收集文字资料，因为收集的资料比较零碎，相关的文字不可能正好符合顺序要求，所以我需要整理，把相关文字资料移动到一个主题下。

示例
==================
以下是我收集的原始资料，收集的主题是3个山东江苏福建，资料无序地在下面
=================
山东
江苏
福建

2月23日,福建省红十字会六届二次常务理事会和理事会在福州于山宾馆召开
山东省2006年专科统计表。
关于下发江苏广播电视大学开放教育有关专业教学指导中心教研组成员名单的通知 (2006-07-14)
8月3日,山东省工程会在济南召开。
2001年7月省委书记、省长、省政府等领导批示启动中国江苏网建设工程。
订阅《福建耗材资讯》杂志请在下面填写您的e-mail地址,然后按相应的按钮
韩寓群省长为“中国山东”政府门户网站新版开通致辞
菲律宾:《联合日报》江苏政协委员提议试行“省管县”体制
开展福建省大型科学仪器设备调查的通知

===============
我需要整理成下面这样，即，把有关一个主题的资料移动到该主题下，我平时就是手动剪切和粘贴，如果距离长，会很麻烦。
======================
山东
山东省2006年专科统计表。
8月3日,山东省工程会在济南召开。
韩寓群省长为“中国山东”政府门户网站新版开通致辞
江苏
菲律宾:《联合日报》江苏政协委员提议试行“省管县”体制
2001年7月省委书记、省长、省政府等领导批示启动中国江苏网建设工程。
关于下发江苏广播电视大学开放教育有关专业教学指导中心教研组成员名单的通知 (2006-07-14)
福建
2月23日,福建省红十字会六届二次常务理事会和理事会在福州于山宾馆召开
开展福建省大型科学仪器设备调查的通知
订阅《福建耗材资讯》杂志请在下面填写您的e-mail地址,然后按相应的按钮

问题：为了使操作智能一点。我需要有这样的宏操作：
先人工判断并寻找有关一个主题的资料，反白选中[比如是 山东省2006年专科统计表。]，然后按一个快捷健，反白选中的文字就自动剪切到主题“山东”的后面了(最好是另起一行放置)，当然应该能定义一个能接受剪切过来的文本的任意位置。再次反白选中其他资料[比如是 8月3日,山东省工程会在济南召开。] 按一个快捷健，反白选中的文字就自动剪切追加到上一个资料的后面(最好是另起一行放置)，比如在本例中就是放在“山东省2006年专科统计表。”的下面。以此类推。

c81

将30多个省市自治区名收集起来，与“内容”区比较，可是“内容”区可能出现几个地名怎么办？

守柔

说起来简单，做起来难。别看你的要求不高，使用VBA直接可以完成楼主的要求。

但是，它需要有一定的约定，比如，主题的样式设置或者说，如何区分主题、固定主题（我想，每个文档的主题不是一致的，所以，我认为要有样式设置，以利于区分）。

资料，只要资料中不包括无效内容（如图片、表格等），应该是比较好处理的。

请楼主上传一个代表性的附件，我可以示范一下，请注意，设置一下主题的固定样式或者格式，以有别于其他正文资料。