word/excel/cad中插入二维码

1.有需求为在word文档中插入二维码,寻访度娘后,大部分人推荐使用QRmaker制作。

2.找寻QRmaker,网上很多都是1.1版本,后来才知道这个版本有问题(对中文支持不好),偶然得到1.3的版本,用起来很不错,完美中文。

下载链接: https://pan.baidu.com/s/1cEYBFK 密码: eubg

3.解压,点击控件注册,打开一个word文档,通过控件(度娘控件开启方式)插入QRmaker,再插入一个button,button执行代码如下:

//转换UTF-8编码,

Option Explicit
Private Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpDefaultChar As String, ByVal lpUsedDefaultChar As Long) As Long
Private Const CP_UTF8 = 65001

Public Function UTF8_Encode(ByVal strUnicode As String) As Byte() ‘UTF-8 编码
Dim TLen As Long
Dim lngBufferSize As Long
Dim lngResult As Long
Dim bytUtf8() As Byte
TLen = Len(strUnicode)
If TLen = 0 Then Exit Function
lngBufferSize = TLen * 3 + 1
ReDim bytUtf8(lngBufferSize - 1)
lngResult = WideCharToMultiByte(CP_UTF8, 0, StrPtr(strUnicode), TLen, bytUtf8(0), lngBufferSize, vbNullString, 0)
If lngResult <> 0 Then
lngResult = lngResult - 1
ReDim Preserve bytUtf8(lngResult)
End If
UTF8_Encode = bytUtf8
End Function

Private Sub button_Click()
Dim i, j As Integer
Dim n, m, p, q As String
‘.Const fileName As String = "C:\AAAA.bmp"
m = ActiveDocument.Fields(1).Result ‘文件编号
n = ActiveDocument.Fields(2).Result ‘版本
p = ActiveDocument.Fields(3).Result ‘修改
q = ActiveDocument.Fields(4).Result ‘文件名称
With QRmaker1
‘.Refresh
.InputDataB = UTF8_Encode(m + "_" + n + "." + p + vbCrLf + q) ‘输出二维码
‘,i = .CreateQrMetaFile(1, fileName, 2)
.QrImageCopy (1)
.Height = 1
.Width = 1
End With
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.Paste
End Sub

4.搞定!

PS:CAD中插入二维码需要下载一个控件CAD_QRCode_For_AutoCAD2004_2014.exe

下载链接: https://pan.baidu.com/s/1c13iY4o 密码: eivv

以上程序及工具来源于网上,如有权限要求,请在下文留言,谢谢。

时间: 2024-10-03 14:03:04

word/excel/cad中插入二维码的相关文章

如何用web api在网页中嵌入二维码?

如何用web api在网页中嵌入二维码? 随着智能手机和平板电脑的日益普及,二维码逐渐成了链接智能终端和传统网站的桥梁.在下文中,笔者将介绍几个实时生成二维码的web api,希望能够简化web design过程中的二维码集成工作. 1. 范例一 <img src="http://qrickit.com/api/qr?d=http://www.taobao.com" > 上述代码产生如下的二维码图片: 该web api还支持下面的这些特性, 说明文字:例如addtext=H

JAVA中生成二维码图片的方法

JAVA中生成二维码的方法并不复杂,使用google的zxing包就可以实现.下面的方法包含了生成二维码.在中间附加logo.添加文字功能. 一.下载zxing的架包,并导入项目中,如下: 最主要的包都在com.google.zxing.core下.如果是maven项目,maven依赖如下: 1 <dependency> 2 <groupId>com.google.zxing</groupId> 3 <artifactId>core</artifact

【转】 Android 基于google Zxing实现对手机中的二维码进行扫描--不错

原文网址:http://blog.csdn.net/xiaanming/article/details/14450809 转载请注明出处:http://blog.csdn.net/xiaanming/article/details/14450809 我之前写了一篇关于google Zxing扫描二维码的文章,效果是仿微信的效果,有兴趣的朋友可以去看看基于google Zxing实现二维码.条形码扫描,仿微信二维码扫描效果,有时候我们有这样子的需求,需要扫描手机中有二维码的的图片,所以今天实现的就

Android 基于google Zxing实现对手机中的二维码进行扫描

转载请注明出处:http://blog.csdn.net/xiaanming/article/details/14450809 有时候我们有这样子的需求,需要扫描手机中有二维码的的图片,所以今天实现的就是对手机中的二维码图片进行扫描,我这里是直接在原来的工程上面加的这个功能,下面就简单介绍下这个小功能的实现,首先我在界面上加了一个ImageButton,图片还是用的微信的图片,下面是扫描界面的title <?xml version="1.0" encoding="utf

在.net core web项目中生成二维码

原文:在.net core web项目中生成二维码 1.添加QRCoder包引用 2. public IActionResult MakeQrCode()        { string url="https://www.baidu.com"; var generator = new QRCodeGenerator(); var codeData = generator.CreateQrCode(str,QRCodeGenerator.ECCLevel.M,true); var qrc

【swift】ios中生成二维码

ios开发中可以自己代码生成二维码,需要使用到一个框架 CoreImage CoreImage框架可以做滤镜,Gif动图,二维码等 先看效果图 下面直接贴上代码(OC也是下面一样的流程) 1 func createQRCode(){ 2 3 //建立一个滤镜 4 let qrFilter = CIFilter(name: "CIQRCodeGenerator") 5 //重设滤镜的初始值 6 qrFilter.setDefaults() 7 //通过KVC设置滤镜的内容(需要将字符串转

iOS中 扫描二维码/生成二维码详解 韩俊强的博客

最近大家总是问我有没有关于二维码的demo,为了满足大家的需求,特此研究了一番,希望能帮到大家! 每日更新关注:http://weibo.com/hanjunqiang  新浪微博 指示根视图: self.window.rootViewController = [[UINavigationController alloc]initWithRootViewController:[SecondViewController new]]; 每日更新关注:http://weibo.com/hanjunqi

.net在网页中生成二维码和条形码

二维码: 1.下载ThoughtWorks.QRCode.dll文件 2.创建Web项目,添加引用刚才下载的文件 3.在项目中添加aspx窗体,编写代码如下 <%@ Page Language="C#" AutoEventWireup="true" CodeBehind="SAOMADemo.aspx.cs" Inherits="_0729Test.SAOMADemo" %> <!DOCTYPE html&g

系统中生成二维码

平台使用方式:先将把2个DLL文件(FWFramework.Client.QRCode.dll,ThoughtWorks.QRCode.dll)拷贝到客户端目录.文件下载:http://bbs.delit.cn/forum.php?mod=attachment&aid=NjM5fDM0YmRhZGU1fDE0NDg4Njk3NjR8MHwzNzk%3D 1.生成二维码'实例化(类似NEW)dim qrcode=LoadAssembly("FWFramework.Client.QRCode