C#/VB.NET 在Word中添加條碼、二維碼的示例代碼

更新時(shí)間：2020年07月17日 08:35:02 作者：E-iceblue

這篇文章主要介紹了C#/VB.NET 如何在Word中添加條碼、二維碼，代碼中將分為在Word正文段落中、頁(yè)眉頁(yè)腳中等情況來(lái)添加。感興趣的朋友可以了解下

本文介紹如何通過(guò)C# 和VB.NET代碼實(shí)現(xiàn)在Word文檔中添加條碼和二維碼。代碼中將分為在Word正文段落中、頁(yè)眉頁(yè)腳中等情況來(lái)添加。

使用工具：

Free Spire.Office for .NET （免費(fèi)版）

工具簡(jiǎn)介：

這是Spire所有.NET平臺(tái)下免費(fèi)產(chǎn)品的集合包，包含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 這兩個(gè)dll文件。

dll添加引用效果：

注意：

1. 需要下載安裝到本地指定路徑，dll文件可在安裝路徑下的Bin文件夾下獲取。

2. 生成的條碼、二維碼會(huì)有水印字樣的文字，可通過(guò)此方法去除。

代碼示例

1. 添加條碼到Word

C#

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

namespace AddBarcode
{
  class Program
  {
    static void Main(string[] args)
    {
      //調(diào)用方法 ApplyKey(string key) 移除水印文字
      Spire.Barcode.BarcodeSettings.ApplyKey("在這里輸入去除水印字樣的序列號(hào)");

      //創(chuàng)建Document對(duì)象，加載Word文檔
      Document doc = new Document();
      doc.LoadFromFile("test.docx");

      //獲取第2節(jié)
      Section section = doc.Sections[1];

      //使用Spire.Barcode的BarcodeSettings和BarcodeGenerator類創(chuàng)建條碼并保存為圖片
      BarcodeSettings settings = new BarcodeSettings();
      settings.Type = BarCodeType.Code128;
      settings.Data = "123456789";
      settings.Data2D = "123456789";
      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 = new BarCodeGenerator(settings);
      Image Image = barCodeGenerator.GenerateImage();
      //Image.Save("Barcode.png", System.Drawing.Imaging.ImageFormat.Png);//如果需要保存生成的Barcode圖片，可執(zhí)行此步驟代碼

      //添加條碼到正文段落
      Paragraph paragraph = section.AddParagraph();
      paragraph.Text = "收貨碼：";
      paragraph.AppendPicture(Image);
      paragraph.Format.HorizontalAlignment = HorizontalAlignment.Right;

      //添加條碼圖片到Word頁(yè)腳
      HeaderFooter footer = section.HeadersFooters.Footer;
      Paragraph footerpara = footer.AddParagraph();
      footerpara.Text = "掃碼識(shí)真?zhèn)危?;
      footerpara.AppendPicture(Image);
      footerpara.Format.HorizontalAlignment = HorizontalAlignment.Left;

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

VB.NET

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


Namespace AddBarcode
  Class Program
    Private Shared Sub Main(args As String())
      '調(diào)用方法 ApplyKey(string key) 移除水印文字
      Spire.Barcode.BarcodeSettings.ApplyKey("在這里輸入去除水印字樣的序列號(hào)")

      '創(chuàng)建Document對(duì)象，加載Word文檔
      Dim doc As New Document()
      doc.LoadFromFile("test.docx")

      '獲取第2節(jié)
      Dim section As Section = doc.Sections(1)

      '使用Spire.Barcode的BarcodeSettings和BarcodeGenerator類創(chuàng)建條碼并保存為圖片
      Dim settings As New BarcodeSettings()
      settings.Type = BarCodeType.Code128
      settings.Data = "123456789"
      settings.Data2D = "123456789"
      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
      Dim barCodeGenerator As New BarCodeGenerator(settings)
      Dim Image As Image = barCodeGenerator.GenerateImage()
      'Image.Save("Barcode.png", System.Drawing.Imaging.ImageFormat.Png);//如果需要保存生成的Barcode圖片，可執(zhí)行此步驟代碼

      '添加條碼到正文段落
      Dim paragraph As Paragraph = section.AddParagraph()
      paragraph.Text = "收貨碼："
      paragraph.AppendPicture(Image)
      paragraph.Format.HorizontalAlignment = HorizontalAlignment.Right

      '添加條碼圖片到Word頁(yè)腳
      Dim footer As HeaderFooter = section.HeadersFooters.Footer
      Dim footerpara As Paragraph = footer.AddParagraph()
      footerpara.Text = "掃碼識(shí)真?zhèn)危?
      footerpara.AppendPicture(Image)
      footerpara.Format.HorizontalAlignment = HorizontalAlignment.Left

      '保存文檔
      doc.SaveToFile("BarCodeToWord.docx", FileFormat.Docx2013)
      System.Diagnostics.Process.Start("BarCodeToWord.docx")
    End Sub
  End Class
End Namespace

條碼添加效果：

2. 添加二維碼到Word

C#

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


namespace AddQRCode
{
  class Program
  {
    static void Main(string[] args)
    {
      //調(diào)用方法 ApplyKey(string key) 移除水印文字
      Spire.Barcode.BarcodeSettings.ApplyKey("在這里輸入去除水印字樣的序列號(hào)");

      //創(chuàng)建Document對(duì)象，加載Word文檔
      Document doc = new Document();
      doc.LoadFromFile("test.docx");

      //獲取第2節(jié)
      Section section = doc.Sections[1];

      //使用Spire.Barcode的BarcodeSettings和BarcodeGenerator類創(chuàng)建二維碼并保存為圖片
      BarcodeSettings settings = new BarcodeSettings();
      settings.Type = BarCodeType.QRCode;
      settings.ImageWidth = 50;
      settings.ImageHeight = 50;
      settings.Data = "123456";
      settings.Data2D = "123456";
      settings.X =0.7f;
      settings.LeftMargin = 1;
      settings.ShowTextOnBottom = true;
      settings.QRCodeECL = QRCodeECL.Q;
      settings.QRCodeDataMode = QRCodeDataMode.Numeric;
      BarCodeGenerator generator = new BarCodeGenerator(settings);
      Image image = generator.GenerateImage();
      //image.Save("QRCode.png", System.Drawing.Imaging.ImageFormat.Png);//如果需要保存生成的二維碼圖片，可執(zhí)行此步驟代碼

      //添加二維碼到正文段落
      Paragraph paragraph = section.AddParagraph();     
      paragraph.AppendPicture(image);
      paragraph.Format.HorizontalAlignment = HorizontalAlignment.Right;

      //添加二維碼圖片到Word頁(yè)眉
      HeaderFooter header = section.HeadersFooters.Header;
      //HeaderFooter footer = section.HeadersFooters.Footer;//獲取頁(yè)腳
      Paragraph headerpara = header.AddParagraph();
      headerpara.AppendPicture(image);
      headerpara.Format.HorizontalAlignment = HorizontalAlignment.Center;
      

      //保存文檔
      doc.SaveToFile("QRCodeToHeader.docx", FileFormat.Docx2013);
      System.Diagnostics.Process.Start("QRCodeToHeader.docx");
    }
  }
}

VB.NET

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


Namespace AddQRCode
  Class Program
    Private Shared Sub Main(args As String())
      '調(diào)用方法 ApplyKey(string key) 移除水印文字
      Spire.Barcode.BarcodeSettings.ApplyKey("在這里輸入去除水印字樣的序列號(hào)")

      '創(chuàng)建Document對(duì)象，加載Word文檔
      Dim doc As New Document()
      doc.LoadFromFile("test.docx")

      '獲取第2節(jié)
      Dim section As Section = doc.Sections(1)

      '使用Spire.Barcode的BarcodeSettings和BarcodeGenerator類創(chuàng)建二維碼并保存為圖片
      Dim settings As New BarcodeSettings()
      settings.Type = BarCodeType.QRCode
      settings.ImageWidth = 50
      settings.ImageHeight = 50
      settings.Data = "123456"
      settings.Data2D = "123456"
      settings.X = 0.7F
      settings.LeftMargin = 1
      settings.ShowTextOnBottom = True
      settings.QRCodeECL = QRCodeECL.Q
      settings.QRCodeDataMode = QRCodeDataMode.Numeric
      Dim generator As New BarCodeGenerator(settings)
      Dim image As Image = generator.GenerateImage()
      'image.Save("QRCode.png", System.Drawing.Imaging.ImageFormat.Png);//如果需要保存生成的二維碼圖片，可執(zhí)行此步驟代碼

      '添加二維碼到正文段落
      Dim paragraph As Paragraph = section.AddParagraph()
      paragraph.AppendPicture(image)
      paragraph.Format.HorizontalAlignment = HorizontalAlignment.Right

      '添加二維碼圖片到Word頁(yè)眉
      Dim header As HeaderFooter = section.HeadersFooters.Header
      'HeaderFooter footer = section.HeadersFooters.Footer;//獲取頁(yè)腳
      Dim headerpara As Paragraph = header.AddParagraph()
      headerpara.AppendPicture(image)
      headerpara.Format.HorizontalAlignment = HorizontalAlignment.Center


      '保存文檔
      doc.SaveToFile("QRCodeToHeader.docx", FileFormat.Docx2013)
      System.Diagnostics.Process.Start("QRCodeToHeader.docx")
    End Sub
  End Class
End Namespace

二維碼添加效果：