自动填表系统（ACCESS与WORD的应用）的问题

lmqlt　发表于：2012-06-24 18:23:35 　

复制

单位设想搞个办公自动化系统，尤其是实现从ACCESS抽取个人资料，按出国出境的表格模板（WORD格式）进行填写。参照其他高手的思路，基本解决了问题，不足的地方是：方框内打通如何实现？

Top

lmqlt 发表于：2012-06-24 18:24:23

附件

点击下载此附件

Top

cspa 发表于：2012-06-25 12:59:37

哪个方框需要打通？

Top

叶海峰发表于：2012-06-25 16:00:41

Private Sub Command19_Click()

On Error GoTo cw_Err
Dim doc As New Word.Application
Dim Tb As Word.Table
Dim i As Long

doc.Documents.Open FileName:=CurrentProject.Path & "\出国出境表格.doc"
doc.Visible = True

doc.ActiveDocument.通行证及签注.Value = True
doc.ActiveDocument.三个月一次.Value = True
doc.ActiveDocument.邮政速递.Value = True
doc.ActiveDocument.是.Value = True'其他checkbox名字可以通过在word里面进入窗体控件设计模式,查看控件名字

以下为原来的代码,不需要改动

Top

cspa 发表于：2012-06-25 16:48:13

原来是“打勾”，不是“打通”。如果每个表都是一样的选项的话，可以在WORD模板中就选好。如果要根据具体情况选择的话，应在窗体中设置相应选择项，然后根据选择再按叶总的方法改。

Top

lmqlt 发表于：2012-06-25 17:36:01

太好了，解决了打勾的问题。谢谢叶海峰及cspa。

Top

总记录：5篇页次：1/1 9 1 :

Access交流中心

自动填表系统（ACCESS与WORD的应用）的问题