- 博客(3)
- 收藏
- 关注
原创 word文档封面不显示页码双面页码vba宏代码
.BuildingBlockEntries("普通数字").Insert Where:=Selection.Range, RichText:= _).BuildingBlockEntries("普通数字").Insert Where:=Selection.Range, RichText:= _True'设置页码为普通数字,需要word版本支持普通数字页码格式。True'设置页码为普通数字,需要word版本支持普通数字页码格式。Sub 有封面双页码()' 有封面双页码 宏。
2023-02-14 20:31:11
247
原创 word文档年月日落款放在一行vba代码
Selection.ParagraphFormat.CharacterUnitFirstLineIndent = s - 2 '首行缩进减少2字数。.Text = "[ ]([0-9 ]@年[0-9 ]@月[0-9 ]@日^13)" '删除年月日前的空格。Selection.MoveUp Unit:=wdLine, count:=1 '向上一行。.Text = "
2023-02-11 11:40:31
159
原创 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:=wdExtend '移动光标选择这一页。
2023-02-11 11:23:50
1050
1
空空如也
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人