WORD2003《双面试卷设置工具》

csnAlex · 发表于 2010-9-9 18:03

原帖：http://club.excelhome.net/thread-619851-1-1.html

将双面试卷模板.dot 放入 C:\Documents and Settings\Administrator\Application Data\Microsoft\Word\STARTUP
红色字部分根据实际情况修改。

打开WORD会出现新工具栏：
新工具栏.GIF

1,2,4,3是插入ABCD选项用的，插入的选项会根据所在的栏宽调整，平均分布。（一般都是相同栏宽的）
“设置”用于调整第一个选项距左边文字边界的位置，每次新建一个文件时需要设置一次，默认值0.8厘米。“取消”也默认设置0.8厘米！！

点击“双面密封线”，首先提问“页面设置”

之后加入设置好的密封线格式，如果页面高度不足24.7厘米（密封线组合框的高度），退出程序。

再提示分栏，每栏宽度根据页面大小自动修改。

再提示加入页码，页码根据分栏情况而定，1栏的话页脚只有1个页码，2栏的话页脚有2个页码。

完成的效果如下：（这个例子没有分栏）

最后是模板：

双面试卷模板.rar (27.08 KB, 下载次数: 319)

[ 本帖最后由 csnAlex 于 2010-9-9 18:06 编辑 ]

tangqingfu · 发表于 2010-9-9 19:52

谢谢csnAlex兄的工具和代码，代码解决了我多个问题！在测试csnAlex兄的代码时，执行到提问“页面设置”

还是出现相同提示
运行时错误‘4605’：
RelativeHorizontalPoisition方法或属性无效因为绘图操作无法应用于当前所选内容
定位在这一句：
.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
插入的密封线不能上下居中
不知问题出在哪里？
测试于System: Windows XP Word: 2003 SP3

[ 本帖最后由 tangqingfu 于 2010-9-9 19:57 编辑 ]

csnAlex · 发表于 2010-9-9 21:00

建议你在Visual Basic编辑器的“工具”->“引用”里检查是否有错误或多余的。
最好把Normal.dot也删了。

tangqingfu · 发表于 2010-9-10 07:02

谢谢csnAlex兄，在另一台电脑中可以通过，可能是和csnAlex兄说的有关，请问如何判断“引用”中有错误或多余的项，是不是指一些原来的引用由于删除或移动的原因,原本勾选的项目现在不用了,将它们删除?到时出现错误的电脑上再试试。

csnAlex · 发表于 2010-9-10 09:19

没办法用VBA判断，因为错误的引用会导致判断用的代码无法执行。只能人工判断。

tangqingfu · 发表于 2010-9-14 18:19

原帖由 csnAlex 于 2010-9-9 21:00 发表
787912
建议你在Visual Basic编辑器的“工具”->“引用”里检查是否有错误或多余的。
最好把Normal.dot也删了。

在两台出现2楼所述问题的电脑上进行如下操作：
将Normal.dot删除后，再重启Word，勾选引用的项目也如同csnAlex兄图中的所勾选的四个项目，另加一个项目是“Normal”，其他的项目均未勾选，还是出现2楼提到的情况，不知问题出在哪里？

[ 本帖最后由 tangqingfu 于 2010-9-14 18:24 编辑 ]

csnAlex · 发表于 2010-9-14 22:22

注意，引用的是动态链接库，不要引用自己写的内容。自己写的是通过加载项加载的。

tangqingfu · 发表于 2010-9-15 09:49

自己写的内容并未引用，引用的内容只有6楼所说的5个项目，测试时还是出现相同提示
运行时错误‘4605’：
RelativeHorizontalPoisition方法或属性无效因为绘图操作无法应用于当前所选内容
定位在这一句：
.RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
插入的密封线不能上下居中
不知问题出在哪里？
在一台重新安装系统的电脑上测试也出现同样的问题（WinXP+Office 2003)
郁闷……

[ 本帖最后由 tangqingfu 于 2010-9-15 10:09 编辑 ]

tangqingfu · 发表于 2010-9-16 17:11

请教csnAlex兄：
能否将提问“页面设置”这一步骤做更人性化的修改：
页面设置中的“上边距”、“下边距”、“内边距”和“外边距”的数值为可输入、可修改的文本，并定义文本框中的数值为默认值，用户根据个人需要更改各边距数值。

[ 本帖最后由 tangqingfu 于 2010-9-17 06:27 编辑 ]

csnAlex · 发表于 2010-9-19 10:56

原帖由 tangqingfu 于 2010-9-16 17:11 发表
请教csnAlex兄：
能否将提问“页面设置”这一步骤做更人性化的修改：
页面设置中的“上边距”、“下边距”、“内边距”和“外边距”的数值为可输入、可修改的文本，并定义文本框中的数值为默认值，用户根据个人需要 ...

我个人认为根据自己的常用设置来修改以下代码即可。如果要加窗体，不如直接用WORD的“页面设置”好了。

      '页面设置
      sok = "是否要执行如下的页面设置：" & vbCrLf & vbCrLf _
         & " 上边距：2.5厘米" & vbCrLf _
         & " 下边距：2.5厘米" & vbCrLf _
         & " 外边距：4厘米" & vbCrLf _
         & " 内边距：1.5厘米"
      iok = MsgBox(sok, vbYesNo + vbQuestion, "试卷设置工具")
      If iok = vbYes Then
         With ActiveDocument.PageSetup
            .TopMargin = CentimetersToPoints(2.5)    '上边距
            .BottomMargin = CentimetersToPoints(2.5) '下边距
            .LeftMargin = CentimetersToPoints(4)       '左边距(外侧)
            .RightMargin = CentimetersToPoints(1.5)    '右边距(内侧)
            .Gutter = CentimetersToPoints(0)          '装订线
            .HeaderDistance = CentimetersToPoints(1.5)  '页眉距边距
            .FooterDistance = CentimetersToPoints(1.5)  '页脚距边界
            .OddAndEvenPagesHeaderFooter = True       '奇偶页不同
            .DifferentFirstPageHeaderFooter = False    '首页不同
            .MirrorMargins = True                      '对称页边距
         End With
      End If

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

[分享] WORD2003《双面试卷设置工具》