
2025-04-18 05:59:13
精选答案
同时按Alt和F11进入宏界面,点菜单的插入,模块,粘贴如下代码:
Subtest()
Selection.Find.Text=
"关键字
Selection.Find.Execute
Selection.Paragraphs(1).Range.Copy
Documents.Add
2025-04-18 05:59:13
其他答案
ThisDocument.Paragraphs(3)ThisDocument.Paragraphs(3).Range.SelectSelection.Font.Size = 12Selection.Font.ColorIndex = wdRed上面语句表示文档的第三段落的内容,供你参考。