FAQ: Komplette FAQ

 Sub MailMerge_example_with_ActiveBarcode()
 '
 ' MailMerge_example_with_ActiveBarcode Makro for Word2000
 ' 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("pc").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
 

 Sub barcodeetiketten()
  '
  ' Erstellen eines Etikettenbogens und automatisches
  ' Ausfüllen der Etiketten mit Barcodes.
  '
  ' 1. Etikettenbogen erstellen:
  '    Hier wird ein Bogen mit 8 Etiketten verwendet. Über Name kann der
  '    Etikettenbogentyp ausgewählt werden...
  '
  Application.MailingLabel.DefaultPrintBarCode = False
  Application.MailingLabel.CreateNewDocument Name:="Herma 4626", Address:="" _
       , AutoText:="ExtrasEtikettenErstellen1", LaserTray:=wdPrinterManualFeed
  '
  ' 2. Nun eine For Schleife um die 8 Barcodes zu erzeugen:
  '
  For i = 1 To 8
   '
   ' Erstellen des Controls:
   '
   Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
   Set ab=Selection.InlineShapes.AddOLEObject(ClassType:="BARCODE.BarcodeCtrl.1", _
         FileName:="", LinkToFile:=False, DisplayAsIcon:=False)
 
   With ab.OLEFormat
    .Activate
    Set ab = .Object
   End With
   '
   ' 3. Zuweisen der Text Property: 
   '    Dies kann natürlich auch dynamisch erfolgen um Seriennummern o.ä.
   '    zu erzeugen.
   '
   ab.Text = "987698769812"
   '
   'Nächstes Etikett...
   '
   Selection.MoveRight Unit:=wdCell
 
  Next i
 
 End Sub 

 Private Sub SetBarcode()
   'Set the barcodes content (text property)
   Barcode1.Text = Date
 End Sub
 
 Sub FilePrint() ' replaces normal printing via dialog
   ' Sets the barcode content before printing
   SetBarcode
   ' Now launch printing:
   Dialogs(wdDialogFilePrint).Show
 End Sub
 
 Sub FilePrintDefault() ' replaces defualt printing (no dialog)
   ' Sets the barcode content before printing
   SetBarcode
   ' Now launch printing:
   ActiveDocument.PrintOut Background:=False
 End Sub 

 Private Sub SetBarcode()
    'Set the barcodes content (text property)
    Barcode1.Text = Date
  End Sub
 
 Private Sub Document_New()
   SetBarcode
 End Sub 

 Set ab = Selection.InlineShapes.AddOLEObject(ClassType:="BARCODE.BarcodeCtrl.1",
          FileName:="", LinkToFile:=False, DisplayAsIcon:=False) 

 With ab.OLEFormat
      .Activate
      Set abobject = .Object
 End With
 abobject.Text = "987698769812" 

 ä={
 ö=|
 ü=}
 Ä=[
 Ö=\
 Ü=]
 ß=~