VBA ile barkodları kullanma ve otomatikleştirme Word

VBA ile barkodları kullanma ve otomatikleştirme

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

Word'de birçok şeyi çözmek için VisualBasic for Applications (VBA) kullanabilirsiniz. Burada size ActiveBarcode kontrolünü VBA ile nasıl gömeceğinizi, kullanacağınızı ve sileceğinizi göstereceğiz:

ActiveBarcode Kontrolünü bir belgeye gömme:
Bu örnekte, imleç konumuna bir barkod kontrolü yerleştirilecektir. Daha sonra ab değişkenini kullanarak nesneyi değiştirebilirsiniz:

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

ab değişkenini kullanarak nesnenin standart özelliklerini (yükseklik, genişlik) ayarlayın:

ab.Width = 200
ab.Height = 120

Barkod nesnesinin özelliklerine ve metotlarına OLEFormat.Object özelliğini kullanarak erişebilirsiniz:

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

Ayrıca, abObject adında bir değişken oluşturup kullanarak özelliklere erişmek için daha temiz bir yol kullanabilirsiniz:

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

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

Aşağıdaki çağrıyı kullanarak barkod nesnesini bir InlineShape'e dönüştürebilirsiniz. Dönüştürme işleminden sonra barkodu değiştiremeyeceğinizi unutmayın.

ab.ConvertToShape

Kontrole artık ihtiyacınız yoksa belgeden silebilirsiniz:

 ab.Delete

İpucu: Windows'un yaklaşan olayları (genellikle KeepWindowsAlive olarak adlandırılır) bir makro içinde işlemesi gerekiyorsa, aşağıdaki VBA işlevini kullanarak bunu zorlayabilirsiniz:

DoEvents

Bu, örneğin Kontrolün kendisini yeni çizmesi gerekiyorsa gerekli olabilir.

Sayfalara barkod eklemek için Word Makrosu (VBA).
için Word 365, 2024, 2021, 2019, 2016, 2013, 2010
Bu makro, değişken bir içerik ve bir sayfa numarası içeren her sayfaya bir barkodun nasıl ekleneceğini gösterir.

Word adres mektup birleştirmede barkodları kullanma

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

►

Mevcut bir adres mektup birleştirme belgesini açın veya yeni bir belge oluşturun.

Barkod Nesnesini adres mektup birleştirme belgenize ekleyin. Belgede istediğiniz yere yerleştirin ve barkod türü ve boyutu gibi nesnenin Özelliklerini ayarlayın.

Bu, örneğin aşağıdaki ekran görüntüsü gibi görünecektir. Barkod nesnesinin adına dikkat edin - burada sarı renkle vurgulanmıştır. Genellikle bu Barcode1 olacaktır. ActiveBarcode: Barcode, Word

Adres mektup birleştirme için bir makro gereklidir. Aşağıdaki makroyu ekleyebilirsiniz. Panoya kopyalayın ve oradan Word'ün Visual Basic for Applications düzenleyicisine yapıştırın:

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

Sonuç şu şekilde görünür. Ekran görüntüsünde makronun nereye eklendiğini de görebilirsiniz. ActiveBarcode: Barcode, Word

Şimdi makroyu posta birleştirme belgenize göre ayarlayın:

Barkod nesnenizin adı Barcode1 değilse, bunu makroda değiştirin - ekran görüntüsünde sol sarı işaret.

Şimdi veri kaynağınızdan barkod için kullanılacak alan adını değiştirin. Bu örnekte Productcode kullanılmıştır - ekran görüntüsünde sağdaki sarı işaret. Tırnak işaretleri içindeki adı değiştirin. ActiveBarcode: Barcode, Word

Belgeyi kaydedin ve test baskısı için makroyu başlatın.

İpucu: Test çıktısını az miktarda veri ile başlatın, böylece bir hata durumunda daha az yanlış baskı olur. ActiveBarcode: Barcode, Word

Tamamdır.

Makroyu belgenin kendisi yerine Normal.dot içine yerleştirdiyseniz, makroyu çalıştırdığınızda belge tasarım modunda olmamalıdır. Aksi takdirde bir hatayla sonuçlanacaktır. Bu nedenle, makroyu çalıştırmadan önce tasarım modunu kapatın.