软件:excel
版本:2007以上版本
最近写了个实验的vba
主要是要把excel计算内容输出成word报告
https://0rz.tw/NNpXG
上面有请好心网友帮我写了
可以顺利输出成word
不过自己实验会卡在页码这部分
希望页码可以 1.置中
2.位置调整为页面顶端至页首1.5cm
页面底端至页尾1.75cm
3.字型Arial
4.首页有页码且会随着页数增加自动增加
不知道程式码该如何加进去...一直卡关
参考的页码程式
'页码
With WrdApp
.ActiveWindow.ActivePane.View.SeekView = 10
.Selection.ParagraphFormat.Alignment = 1
.Selection.Font.Name = "标楷体"
.Selection.Fields.Add Range:=.Selection.Range, Type:=26
.ActiveWindow.ActivePane.View.SeekView = 0
End With
烦请各位帮忙 感谢~~