WORD2003《双面试卷设置工具》

csnAlex

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

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

打开WORD会出现新工具栏：


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


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


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

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


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


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


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

2010-9-9 18:03 上传

点击文件名下载附件

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

tangqingfu

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

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

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

csnAlex

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

tangqingfu

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

csnAlex

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

tangqingfu

原帖由 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

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

tangqingfu

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

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

tangqingfu

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

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

csnAlex

原帖由 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