设置页边距出错。

dafanshu1 · 发表于 2016-3-2 15:32

loze2000 发表于 2016-3-2 11:48
遇到通用的问题，寻找答案中

这可能是VBA的一个bug吧，通过录制的代码再运行一次居然也会溢出错误的。
但我后来在代码前加如下一句，先设置第1节的页顶边距，这样错误就消失了：
ActiveDocument.Sections(1).PageSetup.TopMargin = 1
你试试有没有效吧。

loze2000 · 发表于 2016-3-3 07:28

dafanshu1 发表于 2016-3-2 15:32
这可能是VBA的一个bug吧，通过录制的代码再运行一次居然也会溢出错误的。
但我后来在代码前加如下一句， ...

谢谢指导，有结论了汇来向大家汇报。

loze2000 · 发表于 2016-3-3 07:55

dafanshu1 发表于 2016-3-2 15:32
这可能是VBA的一个bug吧，通过录制的代码再运行一次居然也会溢出错误的。
但我后来在代码前加如下一句， ...

好像还不是bug。但是背后的逻辑关系我还是没有弄清楚。
当前焦点在文字环绕型表格框内，没有选中内容。运行该宏的时候就会报错。
是的意思是选中的对象是“图文框段落”。
晕，还没搞清楚。

dafanshu1 · 发表于 2016-3-3 08:52

还未弄懂你的意思，这宏是设置页边距，跟表格框图文框没有关系吧。不如把报错的文件传上来看看吧。

dafanshu1 · 发表于 2016-3-3 08:54

loze2000 发表于 2016-3-3 07:55
好像还不是bug。但是背后的逻辑关系我还是没有弄清楚。
当前焦点在文字环绕型表格框内，没有选中内容。 ...

还未弄懂你的意思，这宏是设置页边距，跟表格框图文框没有关系吧。不如把报错的文件传上来看看吧。

ghoob · 发表于 2017-4-10 19:31

word 怎没用代码设置页边距。

ghoob · 发表于 2017-4-10 19:33

本帖最后由 ghoob 于 2017-4-10 19:43 编辑

目的是一个图表占一页，目前的方案是历遍word文档所有页，一次性设置定页边距，怎么写代码？

2015级6班.rar (5.67 KB, 下载次数: 2)

各位大侠有没更好的方法。
下面是求助

dogingate · 发表于 2018-7-10 09:47

我也遇到了4608这个错误，看来如果文档有内容的话，只能针对每一节设置页边距啊，不能对整个文档设置

		自动登录	找回密码
密码			免费注册