C#/VB.NET 在Word中添加条码、二维码

发布时间：2020-12-16 01:09:32 所属栏目：百科来源：网络整理

导读：本文介绍如何通过C# 和VB.NET代码实现在Word文档中添加条码和二维码。代码中将分为在Word正文段落中、页眉页脚中等情况来添加。使用工具： Free Spire.Office for .NET （免费版）工具简介：这是Spire所有.NET平台下免费产品的集合包，包含Spire.Barcode.

本文介绍如何通过C# 和VB.NET代码实现在Word文档中添加条码和二维码。代码中将分为在Word正文段落中、页眉页脚中等情况来添加。

使用工具：Free Spire.Office for .NET （免费版）

工具简介：这是Spire所有.NET平台下免费产品的集合包，包含Spire.Barcode.dll、Spire.DataExport.dll、Spire.Pdf.dll、Spire.Doc.dll、Spire.DocViewer.Forms.dll 、Spire.PdfViewer.Forms.dll 、Spire.Presentation.dll 、Spire.XLS.dll等dll可用于操作Word/PDF/Excel/PPT等文件。

本文添加条码、二维码需要在VS程序中添加引用?Spire.Doc.dll?和?Spire.Barcode.dll?这两个dll文件。

dll添加引用效果：

注意：

1. 需要下载安装到本地指定路径，dll文件可在安装路径下的Bin文件夹下获取。

2. 生成的条码、二维码会有水印字样的文字，可通过此方法去除。

代码示例

1. 添加条码到Word

using Spire.Doc;
 Spire.Barcode;
 System.Drawing;
 System.IO;
 Spire.Doc.Documents;

namespace AddBarcode
{
    class Program
    {
        static void Main(string[] args)
        {
            //调用方法 ApplyKey(string key) 移除水印文字
            Spire.Barcode.BarcodeSettings.ApplyKey("在这里输入去除水印字样的序列号");

            创建Document对象，加载Word文档
            Document doc = new Document();
            doc.LoadFromFile(test.docx获取第2节
            Section section = doc.Sections[1];

            使用Spire.Barcode的BarcodeSettings和BarcodeGenerator类创建条码并保存为图片
            BarcodeSettings settings =  BarcodeSettings();
            settings.Type = BarCodeType.Code128;
            settings.Data = 123456789;
            settings.Data2D = ;
            settings.ShowText = false;
            settings.BarHeight = 4;
            settings.X = 0.3f;
            settings.HasBorder = true;
            settings.BorderWidth = 0.5f;
            settings.BorderColor = Color.AliceBlue;
            settings.BackColor = Color.Wheat;
            BarCodeGenerator barCodeGenerator =  BarCodeGenerator(settings);
            Image Image = barCodeGenerator.GenerateImage();
            Image.Save("Barcode.png",System.Drawing.Imaging.ImageFormat.Png);如果需要保存生成的Barcode图片，可执行此步骤代码

            添加条码到正文段落
            Paragraph paragraph = section.AddParagraph();
            paragraph.Text = 收货码：;
            paragraph.AppendPicture(Image);
            paragraph.Format.HorizontalAlignment = HorizontalAlignment.Right;

            添加条码图片到Word页脚
            HeaderFooter footer = section.HeadersFooters.Footer;
            Paragraph footerpara = footer.AddParagraph();
            footerpara.Text = 扫码识真伪：;
            footerpara.AppendPicture(Image);
            footerpara.Format.HorizontalAlignment = HorizontalAlignment.Left;

            保存文档
            doc.SaveToFile(BarCodeToWord.docx,FileFormat.Docx2013);
            System.Diagnostics.Process.Start();
        }
    }
}

条码添加效果：

VB.NET

Imports Spire.Doc
 Spire.Barcode
 System.Drawing
 System.IO
 Spire.Doc.Documents


Namespace AddBarcode
    Class Program
        Private Shared Sub Main(args As String())
            ')

            创建Document对象，加载Word文档
            Dim doc New Document()
            doc.LoadFromFile(获取第2节
            Dim section As Section = doc.Sections(使用Spire.Barcode的BarcodeSettings和BarcodeGenerator类创建条码并保存为图片
            Dim settings  BarcodeSettings()
            settings.Type = BarCodeType.Code128
            settings.Data = 
            settings.Data2D = 
            settings.ShowText = False
            settings.BarHeight = 
            settings.X = 0.3F
            settings.HasBorder = True
            settings.BorderWidth = .5F
            settings.BorderColor = Color.AliceBlue
            settings.BackColor = Color.Wheat
            Dim barCodeGenerator  BarCodeGenerator(settings)
            Dim Image As Image = barCodeGenerator.GenerateImage()
            添加条码到正文段落
            Dim paragraph As Paragraph = section.AddParagraph()
            paragraph.Text = 
            paragraph.AppendPicture(Image)
            paragraph.Format.HorizontalAlignment = HorizontalAlignment.Right

            添加条码图片到Word页脚
            Dim footer As HeaderFooter = section.HeadersFooters.Footer
            Dim footerpara  footer.AddParagraph()
            footerpara.Text = 
            footerpara.AppendPicture(Image)
            footerpara.Format.HorizontalAlignment = HorizontalAlignment.Left

            )
        End Sub
    End Class
End Namespace

2. 添加二维码到Word

 Spire.Doc.Documents;
 System;


 AddQRCode
{
    使用Spire.Barcode的BarcodeSettings和BarcodeGenerator类创建二维码并保存为图片
            BarcodeSettings settings =  BarCodeType.QRCode;
            settings.ImageWidth = 50;
            settings.ImageHeight = ;
            settings.Data = 123456;
            settings.X =0.7f;
            settings.LeftMargin = ;
            settings.ShowTextOnBottom = ;
            settings.QRCodeECL = QRCodeECL.Q;
            settings.QRCodeDataMode = QRCodeDataMode.Numeric;
            BarCodeGenerator generator =  BarCodeGenerator(settings);
            Image image = generator.GenerateImage();
            image.Save("QRCode.png",1)">如果需要保存生成的二维码图片，可执行此步骤代码

            添加二维码到正文段落
            Paragraph paragraph = section.AddParagraph();          
            paragraph.AppendPicture(image);
            paragraph.Format.HorizontalAlignment =添加二维码图片到Word页眉
            HeaderFooter header = section.HeadersFooters.Header;
            HeaderFooter footer = section.HeadersFooters.Footer;获取页脚
            Paragraph headerpara = header.AddParagraph();
            headerpara.AppendPicture(image);
            headerpara.Format.HorizontalAlignment = HorizontalAlignment.Center;
            

            QRCodeToHeader.docx);
        }
    }
}

二维码添加效果:

VB.NET

 AddQRCode
    使用Spire.Barcode的BarcodeSettings和BarcodeGenerator类创建二维码并保存为图片
             BarCodeType.QRCode
            settings.ImageWidth = 
            settings.ImageHeight = 
            settings.Data = .7F
            settings.LeftMargin = 
            settings.ShowTextOnBottom = 
            settings.QRCodeECL = QRCodeECL.Q
            settings.QRCodeDataMode = QRCodeDataMode.Numeric
            Dim generator Dim image  generator.GenerateImage()
            添加二维码到正文段落
             section.AddParagraph()
            paragraph.AppendPicture(image)
            paragraph.Format.HorizontalAlignment =添加二维码图片到Word页眉
            Dim header  section.HeadersFooters.Header
            HeaderFooter footer = section.HeadersFooters.Footer;//获取页脚
            Dim headerpara  header.AddParagraph()
            headerpara.AppendPicture(image)
            headerpara.Format.HorizontalAlignment = HorizontalAlignment.Center


            End Namespace

（完）

（编辑：李大同）

【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!