Hallo zusammen,

ich bin was VBA angeht eher ein Neuling. Bin eher im Bereich C# unterwegs.

Jedenfalls arbeite ich gerade als Vertretung in einem Kundenprojekt und der Kunde möchte den TBarCode9 in einer Wordvorlage haben.

Das einbinden des Barcodes funktioniert wunderbar. Allerdings ist mir jetzt aufgefallen, dass eine Function vor einfügen des Barcodes noch funktioniert. Danach aber nicht mehr.

Ich habe das ganze soweit runterredziert wie nur möglich. Das hier ist schon der ganze Code.

Kann mir irgendjemand helfen? Ich habe keine Ahnung an was das liegt. Vielen Dank schon mal für hilfreiche Antworten.

    Dim tbc As TBarCode9
    activeDocument.TrackRevisions = False  '<---- Ich werde noch erkannt
   
    Set shp = activeDocument.Shapes.AddOLEObject(ClassType:="TBarCode9.TBarCode9", Left:=20, Top:=100, Width:=24, Height:=246)
    Set tbc = shp.OLEFormat.Object
 
    tbc.Text = "Dies ist ein TEst"
      
    activeDocument.TrackRevisions = False ' <---- Ich werde nicht mehr erkannt :(