EXCEL记录精确导入WORD模板VBA示例

说明：

1 建议用OFFICE2007

2 条码库数据导入时注意按合同号和型号排序

3 先点击生成检验记录，查看检验记录中电压电流参数和软件版本部分数据是否正

4 点击输出到WORD按钮

遇到问题汇总：

1 WORD中输入数据会导致文件样式变化

答：在待输入数据出用空格留出空间，再插入无边框形式的文本框。

2 无法在WORD重复选小方框框中打钩

答：在文本框中输钩，选中该钩——格式中文版式——文本加圈——选框。或在其

3 无法批量输入数据

答：用EXCEL建立数据缓冲表，并用在其中用VBA调用WORD模板，生成备份缓冲表单同号保存WORD文件，关闭该文件，清空模板中文本框，删除缓冲表中第一行数据记

4 EXCEL设计模式打开和关闭

按ALT+F11 ，点工具栏设计模式按钮图标来切换。

5 文本框自动循环选择

答：WORD文档中每一个文本框就是一个Document.Shapes对象，该对象有名称，也有Document.Shapes（1）.Select，就是选中第一个文本框了，语句格式Selection.M 的位置（通过按光标键数出来的的），语句格式Selection.TypeText Text:=“数字，就可以实现自动填写数。这样做要求要填写的位置必须是空字符。如果不知文本

6 ★★★★★无法在WORD或EXCEL中调用相互对应控件

答：首先启用宏，点左上角WIN图标选择EXCEL或WORD选项中找安全设置，alt+f11,版本）object library,然后插入模块

7编译过程中发现问题

答：遇到报错信息"对象不支持该属性或方法"，因为代码前少了一个点（注意对象

8 EXCEL单元格中有/号时会显示变为日期

答：在导入数据前将单元格格式设为文本。

9 精确定位填入字符，

答：用特征导引字符替换法。

10 在按钮控件中输入代码，出现Range等函数取不到值。

答：将代码写在其他函数中，按钮对象中用CALL函数 调用函数

11 删除重复项

方法1：在弹出的“高级筛选”对话框中选择“将筛选结果复制到其他

的数据(注意:此处千万不要与原数据所处的单元格相重合，否则数据表将会混乱)，

但会出现行被删除情况，导致下次复制黏贴是报区域选择错误。2007版有删除重复方法2：用条件定位法，按CTRL+G快捷进入定位，如：选择空值，则会选中所有空置

版本部分数据是否正确，如是标准直接下拉复制

形式的文本框。

—文本加圈——选框。或在其上覆盖透明文本框中输入钩，按CTRL和方向键微调方位。

ORD模板，生成备份缓冲表单，切换回缓冲表，填入第一行缓冲数据到模板文件中对应文本框，按合，删除缓冲表中第一行数据记录，再重复上述步骤导入下一组数据生成对应文件。

es对象，该对象有名称，也有编号，名称每个都不同，但编号是按顺序的，其中语句格式

框了，语句格式Selection.MoveRight Unit:=wdCharacter, Count:=39，是确定了文本框第39个字符tion.TypeText Text:=“数字”，在该位置就是写入的字符。将这三个语句联合使用，用个循环语句必须是空字符。如果不知文本框顺序，可以用填入序号法，再拖放到指定位置。

选项中找安全设置，alt+f11,工具引用,勾选microsoft excel（或WORD） 11.0 （取决与具体OFFICE 代码前少了一个点（注意对象参数方法应用规则）

结果复制到其他位置”一项，并点击“复制到”选择框后面的范围按钮来选择一块区域以存放筛选后

重合，否则数据表将会混乱)，最后，勾选“选择不重复的记录”复选框后，点击“确定”按钮即可，

选择错误。2007版有删除重复项按钮。

选择空值，则会选中所有空置项，右键任一选中项，选删除——整行。