BO:
首先点“工具”“宏”“宏”“创建”然后清除已经有的几行代码。复制下面的代码到其中!SUb删除空行()i=1doactivedocument.paragraphs(i).range.selectiftrim(selection.text)=chr(13)thenselection.deleteelseselection.movedowni=i+1endifloopuntili=activedocument.paragraphs.countendSUb保存后,返回Word视图,点“工具”“宏”“宏”....