同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码:
Subtest()
Selection.Find.Text=
"关键字
Selection.Find.Execute
Selection.Paragraphs(1).Range.Copy
Documents.Add
wordvba如何提取文章段落求高手给解答
同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码:
Subtest()
Selection.Find.Text=
"关键字
Selection.Find.Execute
Selection.Paragraphs(1).Range.Copy
Documents.Add
ThisDocument.Paragraphs(3)ThisDocument.Paragraphs(3).Range.SelectSelection.Font.Size = 12Selection.Font.ColorIndex = wdRed上面语句表示文档的第三段落的内容,供你参考。