在ms office 中制作二维码及应用举例.pdfVIP

在MS Office 中制作二维码及应用举例 周友胜 摘要：本文就以常用的OFFICE2003 为基础进行QR 二维码设计制件，仅需简单安装 一控件即可，适合以 Windows+MS Office (2003、2007、2010、2013,32 位)的办公环境 使用，无需安装额外的任何软件。 关键字：QR 二维码、QRmaker.ocx 控件、邮件合并 本交所讨论的为 QR 二维码，以“QRmaker.ocx ”控件为核心制作生成二维码，此 控件为日本denso 公司制作，现在可网上下载无限制功能使用。 QR 二维码是由日本丰田子公司 Denso Wave 于1994 年发明并开始使用的一种矩阵 二维码符号。QR 码不仅信息容量大、可靠性高、成本低，还可表示汉字及图像等多种 文字信息、其保密防伪性强而且使用非常方便。 二维码和手机摄像头的配合将产生多种多样的应用，比如我们可以在自己的名片上 印上二维码，别人只需用安装二维码识别软件的摄像手机轻松一拍，名片上的各种资料 就全部输入手机；在学校日常工作中，我们也可以制作有二维码的各种证件资料，如录 取通知书、毕业证书、借书证、学籍登记表等。 虽然现在有不少制作二维码并能批量打印的软件，但需安装较复杂和收费软件，本 文就以常用的OFFICE2003 为基础进行QR 二维码设计制件，仅需简单安装一控件即可， 适合以Windows+ MS Office (2003、2007、2010、2013,32 位)的办公环境使用，无需安 装额外的任何软件。通过网络搜索，发现此类的资料非常少和零碎，本文就以完整的实 例进行相关的探讨和尝试。 在进行制作前，首先要下载 QRmaker.ocx 控件，一共有五个文件“QRmaker.ocx、 vssver.scc 、QRmaker.lic 、QRmaker.oca 、QRmaker.tlb ”，把上列文件 复制 到 C:\WINDOWS\system32 文件夹下面，64 位系统复制到C:\Windows\SysWOW64 文件夹 内。Windows XP 系统在命令窗口执行 “regsvr32 QRmaker.ocx ”注册控件便可使用。 在 windows 7\8 要以管理员身份运行 “CMD.EXE ”命令窗口，执行 “regsvr32 QRmaker.ocx ”注册命令方可正常注册。经测试控件可在windows 98\2000\xp\7\8(32 和 64 位)和office2000\2003\2007\2010\2013(仅32 位) 中正常使用，因QRmaker.ocx 是32 位 控件，只能在32 位软件中调用。本文以windows XP 和Office2003 环境进行应用举例， 所有代码均可在后继新版本软件中运行。 一、在PowerPoint 中制作生成二维码小工具 首先运行 PowerPoint ，打开 “工具→宏→安全性”，把安全级设为低。其次，打开 “视图→工具栏→控件工具箱”，在“其它控件”中找到“QRMaker Control ”，点后鼠 标会变成十字，在空白区域画一个二维码控件。再在控件工具箱添加一个文本框和两个 命令按钮。选择文本框（TextBox ），打开属性面板，把文本框（TextBox ）的MultiLine 的值改为 True ，设置文本框为多行文本显示；再打 ScrollBars 的值改为 fmscrollBarsVertical ，设置文本框具有垂直滚动条。把命令按钮 1 （CommandButton1 ） 的Caption 属性修改为“显示二维码”，把命令按钮2 （CommandButton2 ）的Caption 属 性修改为“二维码保存为图片”。布局如图1 1 图1 双击命令按钮1 （CommandButton1 ），打开VBA 编辑器，添加以下代码。 Private Sub CommandButton1_Click() Dim i As Integer Dim n As String n = TextBox1.Text W