word一键删除文档中所有空白页vba宏代码
Selection.GoTo What:=wdGoToPage, Which:=wdGoToFirst, count:=(p - 1), Name:="" '跳转到上一页第一行。Selection.GoTo What:=wdGoToPage, Which:=wdGoToFirst, count:=p, Name:="" '跳转到最后一页第一行。Selection.MoveDown Unit:=wdLine, count:=(l - 1), Extend:=
