消失的部分/表

我有不同的页面上一些表/章节的文档。 这个想法是,我可以有多达五个第一页上,则6 - 14出现后几页,但我的总收入将会全部进行到第一页。 该表有表单字段收集数据,并有单独的脚本以执行calcualtions。

通过点击[+]按钮,下面的宏启动。 下面的代码。

----

对错误转到UhOh
“添加额外的存款关系
Application.ScreenUpdating =假
如果ActiveDocument.ProtectionType = wdNoProtection然后
其他:ActiveDocument.Unprotect
万一
对于X = 3〜14
ActiveDocument.FormFields(“DR_Name”&X)。选择
如果Selection.Font.Hidden = TRUE然后
如果X <6于是
myTable的= ActiveDocument.Tables(4)
AROW = 2
其他
myTable的= ActiveDocument.Tables(14)
AROW = -3
如果x = 14然后转到模具
万一
如果X = 6于是

ActiveDocument.Tables(4).Rows(8)。选择
Selection.Font.Hidden =假
ActiveDocument.Sections(14).Range.Select
Selection.Font.Hidden =假
当r = 3〜11
myTable.Rows(r)的。选择
Selection.Font.Hidden = TRUE
下一个
万一
myTable.Rows(X + AROW)。选择
Selection.Font.Hidden =假
ActiveDocument.FormFields(“DR_Name”&X).Enabled = TRUE
ActiveDocument.FormFields(“DR_Acct”&X).Enabled = TRUE
ActiveDocument.FormFields(“DR_Curr”&X).Enabled = TRUE
ActiveDocument.FormFields(“DR_LYABal”&X).Enabled = TRUE
ActiveDocument.FormFields(“DR_Name”&X)。选择
转到模具
万一
下一个
死:
ActiveDocument.Protect类型:= wdAllowOnlyFormFields,NORESET:= TRUE
Application.ScreenUpdating = TRUE
退出小组
UhOh:
UhOh(“的ThisDocument / Image112_Click”)

----

代码工作。 它做什么它应该做的。 然而,正在发生的事情是出现在表中,然后当我点击它,表似乎从显示屏上消失。 我还要提到,这是用于收集有关1500信息字段,加上长篇叙事描述一个大文件(〜2MB)。

什么会导致这种显示器的问题? 虽然我排除故障,表和段,实际上,无论是由代码未隐藏正确,如果我点击所在的表应该是,它会短暂出现,然后再消失。

FWIW,我使用Office 2003,Windows 2003服务器上的Citrix薄客户机上运行 - 其中没有我可以改变。

任何想法或怜悯? 我要得到这个工作!

欢呼声中,詹姆斯·

分类:办公室 时间:2012-11-15 人气:0
分享到:

相关文章

Copyright (C) 55228885.com, All Rights Reserved.

55228885 版权所有 京ICP备15002868号

processed in 0.511 (s). 9 q(s)