Использование и автоматизация штрих-кодов с помощью VBA в Word

Вы можете использовать VisualBasic для приложений (VBA) для решения многих задач в Word. Здесь мы продемонстрируем, как встроить, использовать и удалить элемент управления ActiveBarcode с помощью VBA:

Включение элемента управления ActiveBarcode в документ:
В данном примере элемент управления штрих-кодом будет размещен в позиции курсора. Затем вы можете изменить объект с помощью переменной ab:

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

Установите стандартные свойства (высота, ширина) объекта с помощью переменной ab:

ab.Width = 200
ab.Height = 120

Вы можете получить доступ к свойствам и методам объекта штрих-кода с помощью свойства OLEFormat.Object:

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

Вы также можете использовать более понятный способ доступа к свойствам, создав и используя переменную, например, с именем abObject:

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

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

С помощью следующего вызова вы можете преобразовать объект штрих-кода в InlineShape. Обратите внимание, что после преобразования штрих-код не подлежит изменению.

ab.ConvertToShape

Если элемент управления больше не требуется, его можно удалить из документа:

 ab.Delete

Подсказка: если необходимо, чтобы Windows обрабатывала предстоящие события (часто называемые KeepWindowsAlive) в макросе, вы можете принудительно выполнить это с помощью следующей функции VBA:

DoEvents

Это может потребоваться, например, если элемент управления должен перерисовать себя заново.