求助！需在WORD中用代码的问题

lauan

1、如何用代码找出当前WORD文档中的第一个含“〔”的段落，并将段落的文字赋值给某一对象；
2、如何用代码找出当前WORD文档中所有宋体二号字的文字，并将各段落的文字赋值给某一对象，并删除段落标记。

pureshadow

并将段落的文字赋值给某一对象......木有懂是啥意思诶
楼主啊，宏可以录制的，录出来的代码又整齐又不会错，除了复杂点的说，吼吼。。。

lauan

比如：
1）文档A中有一段表示文号的：江府〔2007〕33号，我想将这一段找出来（所以要找文档中第一个含"〔"的段落），并且用宏复制到文档B中的第一个表的第一行第二个单元格；
2）文档A中另几段用宋体二号字来定义的文件标题，我想将这用宋体二号字的这几段合并并用宏复制到文档B的第一个表第3行第3个单元格。
该如何写代码？