Menggunakan dan mengotomatisasi barcode dengan VBA di Word

Menggunakan dan mengotomatisasi barcode dengan VBA

Word 365, 2024, 2021, 2019, 2016, 2013, 2010, 2007, 2003

Anda dapat menggunakan Visual Basic for Applications (VBA) untuk menyelesaikan banyak hal di Word. Di sini kami akan menunjukkan kepada Anda cara menyisipkan, menggunakan, dan menghapus kontrol ActiveBarcode dengan VBA:

Menyisipkan Kontrol ActiveBarcode ke dalam dokumen:
Dalam contoh ini, kontrol barcode akan ditempatkan di posisi kursor. Kemudian Anda dapat memodifikasi objek menggunakan variabel ab:

Dim ab As Object
Set ab = Selection.InlineShapes.AddOLEObject(ClassType:="ACTIVEBARCODE.BarcodeCtrl.1",
  FileName:="", LinkToFile:=False, DisplayAsIcon:=False)

Tentukan properti standar (tinggi, lebar) objek menggunakan variabel ab:

ab.Width = 200
ab.Height = 120

Anda dapat mengakses properti dan metode objek barcode dengan menggunakan properti OLEFormat.Object:

ab.OLEFormat.Object.Type = 6
ab.OLEFormat.Object.Text = "987698769812"

Anda juga dapat menggunakan cara yang lebih bersih untuk mengakses properti dengan membuat dan menggunakan variabel, misalnya bernama abObject:

Dim abObject As Object
With ab.OLEFormat
  .Activate
  Set abObject = .Object
End With

abObject.Type = 6
abObject.Text = "987698769812"

Dengan menggunakan panggilan berikut, Anda dapat mengubah objek barcode menjadi InlineShape. Perhatikan bahwa Anda tidak dapat mengubah barcode setelah konversi.

ab.ConvertToShape

Jika Anda tidak memerlukan kontrol tersebut lagi, Anda dapat menghapusnya dari dokumen:

 ab.Delete

Tips: Jika Windows perlu memproses peristiwa yang akan datang (sering disebut sebagai KeepWindowsAlive) dalam sebuah makro, Anda dapat memaksakan hal ini dengan menggunakan fungsi VBA berikut:

DoEvents

Hal ini mungkin diperlukan, misalnya jika Kontrol harus menggambar dirinya sendiri ulang.

Makro Word (VBA) untuk menambahkan kode batang ke halaman.
untuk Word 365, 2024, 2021, 2019, 2016, 2013, 2010
Makro ini menunjukkan cara menambahkan satu kode batang ke setiap halaman yang berisi konten variabel dan nomor halaman.

Gunakan kode batang dalam penggabungan surat di Word

Word 365, 2024, 2021, 2019, 2016, 2013, 2010, 2007, 2003

►

Buka dokumen mail merge yang sudah ada atau buat yang baru.

Tambahkan objek barcode ke dokumen mail merge Anda. Letakkan objek tersebut di posisi yang diinginkan dalam dokumen dan atur properti objek, seperti jenis barcode dan ukurannya.

Ini akan terlihat seperti tangkapan layar berikut, misalnya. Perhatikan nama objek barcode - yang ditandai dengan warna kuning di sini. Biasanya ini akan menjadi Barcode1. ActiveBarcode: Barcode, Word

Makro diperlukan untuk penggabungan surat. Anda dapat menambahkan makro berikut. Salin makro tersebut ke Clipboard dan tempelkan dari sana ke editor Visual Basic for Applications (VBA) di Word:

Sub MailMerge_example_with_ActiveBarcode()
 ' Macro shows how to print barcodes in a mail merge.
 if MsgBox("Do you want to print mail merged documents?", vbYesNo, "Question") = vbYes Then
   'counter to zero
   num = 0
   'first record is number one
   ActiveDocument.MailMerge.DataSource.ActiveRecord = 1
   Do
    ' Fill ActiveBarcode text property now
    ActiveDocument.Barcode1.Text = ActiveDocument.MailMerge.DataSource.DataFields("Productcode").Value
    ' do not prompt for printing...
    Options.PrintBackground = True
    ' print page
    ActiveDocument.PrintOut
    ' recognize old record
    lastone = ActiveDocument.MailMerge.DataSource.ActiveRecord
    ' select next record
    ActiveDocument.MailMerge.DataSource.ActiveRecord = wdNextRecord
    'count
    num = num + 1
    ' check if there are new ones
   Loop While ActiveDocument.MailMerge.DataSource.ActiveRecord <> lastone
   ' notify user
   MsgBox (Str(num) + " pages printed!")
 End If
 End Sub

Hasilnya terlihat seperti ini. Pada tangkapan layar, Anda juga dapat melihat di mana makro tersebut dimasukkan. ActiveBarcode: Barcode, Word

Sekarang sesuaikan makro dengan dokumen penggabungan surat Anda:

Jika nama objek barcode Anda bukan Barcode1, ubah namanya di dalam makro - tanda kuning di sebelah kiri pada tangkapan layar.

Sekarang Anda mengubah nama bidang dari sumber data Anda, yang akan digunakan untuk barcode. Dalam contoh ini, Productcode digunakan - tanda kuning di sebelah kanan pada tangkapan layar. Ubah nama di dalam tanda kutip. ActiveBarcode: Barcode, Word

Simpan dokumen dan jalankan makro untuk mencetak uji coba.

Tips: Mulailah cetakan uji dengan jumlah data yang kecil agar jumlah cetakan yang salah lebih sedikit jika terjadi kesalahan. ActiveBarcode: Barcode, Word

Selesai.

Jika Anda telah menempatkan makro di Normal.dot daripada di dokumen itu sendiri, dokumen tersebut tidak boleh berada dalam mode desain saat Anda menjalankan makro. Melakukan hal tersebut akan menyebabkan kesalahan. Oleh karena itu, matikan mode desain sebelum menjalankan makro.