C#/VB.NET 在Word中添加條碼、二維碼-有解無憂

本文介紹如何通過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;
using Spire.Barcode;
using System.Drawing;
using System.IO;
using 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 = 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圖片，可執行此步驟代碼

            //添加條碼到正文段落
            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("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())
            '呼叫方法 ApplyKey(string key) 移除水印文字
            Spire.Barcode.BarcodeSettings.ApplyKey("在這里輸入去除水印字樣的序列號")

            '創建Document物件，加載Word檔案
            Dim doc As New Document()
            doc.LoadFromFile("test.docx")

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

            '使用Spire.Barcode的BarcodeSettings和BarcodeGenerator類創建條碼并保存為圖片
            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圖片，可執行此步驟代碼

            '添加條碼到正文段落
            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 As Paragraph = footer.AddParagraph()
            footerpara.Text = "掃碼識真偽："
            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

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)
        {
            //呼叫方法 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 = 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);//如果需要保存生成的二維碼圖片，可執行此步驟代碼

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

            //添加二維碼圖片到Word頁眉
            HeaderFooter header = section.HeadersFooters.Header;
            //HeaderFooter footer = section.HeadersFooters.Footer;//獲取頁腳
            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())
            '呼叫方法 ApplyKey(string key) 移除水印文字
            Spire.Barcode.BarcodeSettings.ApplyKey("在這里輸入去除水印字樣的序列號")

            '創建Document物件，加載Word檔案
            Dim doc As New Document()
            doc.LoadFromFile("test.docx")

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

            '使用Spire.Barcode的BarcodeSettings和BarcodeGenerator類創建二維碼并保存為圖片
            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);//如果需要保存生成的二維碼圖片，可執行此步驟代碼

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

            '添加二維碼圖片到Word頁眉
            Dim header As HeaderFooter = section.HeadersFooters.Header
            'HeaderFooter footer = section.HeadersFooters.Footer;//獲取頁腳
            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

（完）

轉載請註明出處，本文鏈接：https://www.uj5u.com/net/4873.html

標籤：C#

上一篇：水一貼，用任何一種語言匯出oracle存盤程序（視圖）腳本

下一篇：參考物件的指標傳遞