.Sections(1).Footers(1).LinkToPrevious?=?False?
With?.Sections(1).Footers(1).PageNumbers?
.RestartNumberingAtSection?=?True?.StartingNumber?=?1?
.Add?PageNumberAlignment:=wdAlignPageNumberCenter,?FirstPage:=True?
End?With?
End?With?
End?Sub??
5、实现图形的精确旋转?
Sub?图形旋转()?
Dim?blnIsInlineShape?As?Boolean?
If?Selection.Type?=?wdSelectionInlineShape?Then?
blnIsInlineShape?=?True?
Selection.InlineShapes(1).ConvertToShape?
End?If?
Dim?intTurn?As?Integer?
intTurn?=?InputBox("请输入图形要旋转的角度值"?&?vbCrLf?&?"正数表示顺时针，负数表示逆时针 。",?"图形旋转",?30)?
Selection.ShapeRange.IncrementRotation?intTurn?
End?Sub?
推荐阅读
- 大列巴面包的做法
- 望海潮有哪些表现手法 望海潮运用了哪些表现手法
- win10重置此电脑后果
- 小米11ultra和一加9pro哪个好 小米11ultra和一加9pro对比
- 白条额度被降怎么恢复
- 飞机托运行李规定 这4点需要牢记
- 焦磷酸钠用途
- 什么是管理环境
- 内存编辑器使用补充