C＃/ VB.NETを使用してWordにバーコードとQRコードを追加する方法

この記事では、C＃およびVB.NETコードを使用してWord文書にバーコードとQRコードを追加する方法を紹介します。コードは、Wordの本文の段落、ヘッダー、フッターなどに追加されます。

**使用したツール：Free Spire.Office for .NET**

ツールの紹介：これは、Spire.Barcode.dll、Spire.DataExport.dll、Spire.Pdf.dll、Spire.Doc.dll、Spire.DocViewer.Formsを含むSpireのすべての.NETプラットフォームでの無料製品のコレクションパッケージです。dll、Spire.PdfViewer.Forms.dll、Spire.Presentation.dll、Spire.XLS.dllおよびその他のdllを使用して、Word / PDF / Excel / PowerPointおよびその他のファイルを操作できます。

この記事でバーコードとQRコードを追加するには、2つのdllファイルSpire.Doc.dllとSpire.Barcode.dllをVSプログラムに追加する必要があります。その前に、ツールを**[ダウンロード](https://www.e-iceblue.com/Download/office-for-net-free.html)**して、ローカルで指定されたパスにインストールする必要があります。dllファイルは、インストールパスの下のBinフォルダーにあります。
Dllを参照に追加した結果は以下になります：
![01.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/278784/d8c9dd0e-5f83-454c-13a3-81ed028fce29.png)

##コード一覧
###**C#**
###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("C:\\Users\\Administrator\\Desktop\\test.docx");

            //第二のセクションを取得する
            Section section = doc.Sections[1];

            //バーコードを作成し、それらを画像として保存する
            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);//生成されたバーコード画像を保存するには、この行のコードを実行します

            //本文の段落にバーコードを追加する
            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");
        }
    }
}
```
バーコードを追加した結果：
![02.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/278784/6f22a16e-b0d5-c6e8-f922-c538ac338916.png)

###**VB.NET**

```
Imports Spire.Doc
Imports Spire.Barcode
Imports System.Drawing
Imports System.IO
Imports Spire.Doc.Documents
 
Namespace AddBarcode
    Class Program
        Shared  Sub Main(ByVal args() As String)
            'メソッドApplyKey（string key）を呼び出して、透かしテキストを削除します
            Spire.Barcode.BarcodeSettings.ApplyKey("ここに透かしを削除したシリアル番号を入力してください")
 
            'Documentオブジェクトを作成し、Word文書をロードする
            Document doc  =  New Document()
            doc.LoadFromFile("C:\\Users\\Administrator\\Desktop\\test.docx")
 
            '第二のセクションを取得する
            Dim section As Section =  doc.Sections(1) 
 
            'バーコードを作成し、それらを画像として保存する
            Dim settings As BarcodeSettings =  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 BarCodeGenerator =  New BarCodeGenerator(settings) 
            Dim Image As Image =  barCodeGenerator.GenerateImage() 
            'Image.Save("Barcode.png", System.Drawing.Imaging.ImageFormat.Png);//生成されたバーコード画像を保存するには、この行のコードを実行します
 
            '本文の段落にバーコードを追加する
            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にQRコードを追加する

###**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)
        {
            //メソッドApplyKey（string key）を呼び出して、透かしテキストを削除する
            Spire.Barcode.BarcodeSettings.ApplyKey("ここに透かしを削除したシリアル番号を入力してください");

            //Documentオブジェクトを作成し、Word文書をロードする
            Document doc = new Document();
            doc.LoadFromFile("C:\\Users\\Administrator\\Desktop\\test.docx");

            //セクション2を取得する
            Section section = doc.Sections[1];

            //QRコードを作成し、画像として保存する
            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);//生成されたQRコード画像を保存には、この行のコードを実行してください

            //本文の段落にQRコードを追加する
            Paragraph paragraph = section.AddParagraph();
            paragraph.AppendPicture(image);
            paragraph.Format.HorizontalAlignment = HorizontalAlignment.Right;

            //WordヘッダーにQRコード画像を追加する
            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");
        }
    }
}
```

QRコードを追加した結果：
![03.png](https://qiita-image-store.s3.ap-northeast-1.amazonaws.com/0/278784/ec49d442-4b2c-f52a-e2b9-9c6f078be542.png)

###**VB.NET**

```
Imports Spire.Doc
Imports Spire.Barcode
Imports System.Drawing
Imports System.IO
Imports Spire.Doc.Documents
Imports System
 
 
Namespace AddQRCode
    Class Program
        Shared  Sub Main(ByVal args() As String)
            'メソッドApplyKey（string key）を呼び出して、透かしテキストを削除する
            Spire.Barcode.BarcodeSettings.ApplyKey("ここに透かしを削除したシリアル番号を入力してください")
 
            'Documentオブジェクトを作成し、Word文書をロードする
            Document doc  =  New Document()
            doc.LoadFromFile("C:\\Users\\Administrator\\Desktop\\test.docx")
 
            'セクション2を取得する
            Dim section As Section =  doc.Sections(0) 
 
            'QRコードを作成し、画像として保存する
            Dim settings As BarcodeSettings =  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 BarCodeGenerator =  New BarCodeGenerator(settings) 
            Dim image As Image =  generator.GenerateImage() 
            'image.Save("QRCode.png", System.Drawing.Imaging.ImageFormat.Png);//生成されたQRコード画像を保存には、この行のコードを実行してください
 
            '本文の段落にQRコードを追加する
            Dim paragraph As Paragraph =  section.AddParagraph() 
            paragraph.AppendPicture(image)
            paragraph.Format.HorizontalAlignment = HorizontalAlignment.Right
 
            'WordヘッダーにQRコード画像を追加する
            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
```
##結語
以上は今回のWordにバーコードとQRコードを追加する方法でした、最後まで読んでいただきありがとうございます。