Viivakoodien käyttö ja automatisointi VBA:lla Word

Viivakoodien käyttö ja automatisointi VBA:n avulla

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

VisualBasic for Applications (VBA) -sovelluksella voit ratkaista monia ongelmia Wordissa. Tässä näytämme, kuinka ActiveBarcode-ohjausobjekti upotetaan, käytetään ja poistetaan VBA:n avulla:

ActiveBarcode-ohjausobjektin upottaminen asiakirjaan:
Tässä esimerkissä viivakoodiohjain sijoitetaan kohdistimen kohdalle. Sitten voit muokata objektia muuttujan ab avulla:

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

Aseta objektin vakiominaisuudet (korkeus, leveys) muuttujan ab avulla:

ab.Width = 200
ab.Height = 120

Voit käyttää viivakoodiobjektin ominaisuuksia ja menetelmiä käyttämällä ominaisuutta OLEFormat.Object:

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

Voit myös käyttää siistimpää tapaa päästä käsiksi ominaisuuksiin luomalla ja käyttämällä muuttujaa, esimerkiksi nimeltään abObject:

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

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

Seuraavalla kutsulla voit muuntaa viivakoodiobjektin InlineShape-muotoon. Huomaa, että viivakoodia ei voi muuttaa muuntamisen jälkeen.

ab.ConvertToShape

Jos et enää tarvitse ohjausobjektia, voit poistaa sen asiakirjasta:

 ab.Delete

Vinkki: Jos Windowsin on käsiteltävä tulevia tapahtumia (usein nimeltään KeepWindowsAlive) makron sisällä, voit pakottaa tämän käyttämällä seuraavaa VBA-funktiota:

DoEvents

Tämä voi olla tarpeen esimerkiksi silloin, kun ohjausyksikkö joutuu piirtämään itsensä uudelleen.

Word-makro (VBA) viivakoodien lisäämiseen sivuille.
- Word 365, 2024, 2021, 2019, 2016, 2013, 2010
Tämä makro näyttää, kuinka lisätään yksi viivakoodi jokaiselle sivulle, joka sisältää muuttuvan sisällön ja sivunumeron.

Käytä viivakoodeja Word-postitusyhdistelmässä

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

►

Avaa olemassa oleva postitusyhdistelmädokumentti tai luo uusi.

Lisää viivakoodiobjekti postitusyhdistelmädokumenttiin. Sijoita se haluamaasi kohtaan dokumentissa ja määritä objektin ominaisuudet, kuten viivakoodin tyyppi ja koko.

Tämä näyttää esimerkiksi seuraavalta kuvakaappaukselta. Huomaa viivakoodiobjektin nimi, joka on korostettu tässä keltaisella. Yleensä se on Barcode1. ActiveBarcode: Barcode, Word

Postin yhdistämiseen tarvitaan makro. Voit lisätä seuraavan makron. Kopioi se leikepöydälle ja liitä se sieltä Wordin Visual Basic for Applications -editoriin:

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

Tulos näyttää tältä. Kuvakaappauksessa näet myös, mihin makro on lisätty. ActiveBarcode: Barcode, Word

Säädä nyt makro postitusyhdistelmädokumenttiisi:

Jos viivakoodiobjektisi nimi ei ole Barcode1, muuta se makrossa – kuvakaappauksessa vasemmalla oleva keltainen merkki.

Muuta nyt tietolähteestä kentän nimi, jota käytetään viivakoodissa. Tässä esimerkissä käytetään tuotetunnusta (Productcode) – oikealla oleva keltainen merkki kuvakaappauksessa. Muuta nimi lainausmerkkien sisällä. ActiveBarcode: Barcode, Word

Tallenna asiakirja ja käynnistä makro testitulostusta varten.

Vinkki: Aloita testitulostus pienellä tietomäärällä, jotta virhetapauksissa tulostusvirheitä syntyy vähemmän. ActiveBarcode: Barcode, Word

Valmis.

Jos olet sijoittanut makron Normal.dot-tiedostoon eikä itse asiakirjaan, asiakirja ei saa olla suunnittelutilassa, kun suoritat makron. Muussa tapauksessa syntyy virhe. Siksi sinun on poistettava suunnittelutila käytöstä ennen makron suorittamista.