Usando e automatizando códigos de barras com VBA em Word

Pode utilizar o VisualBasic for Applications (VBA) para resolver muitas coisas no Word. Aqui vamos mostrar-lhe como incorporar, utilizar e eliminar o controlo ActiveBarcode com VBA:

Incorporar o Controlo ActiveBarcode num documento:
Neste exemplo, será colocado um controlo de código de barras na posição dos cursores. Em seguida, pode modificar o objeto utilizando a variável ab:

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

Defina as propriedades padrão (altura, largura) do objeto utilizando a variável ab:

ab.Width = 200
ab.Height = 120

Pode aceder às propriedades e métodos do objeto código de barras utilizando a propriedade OLEFormat.Object:

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

Também pode utilizar uma forma mais simples de aceder às propriedades, criando e utilizando uma variável, por exemplo, denominada abObject:

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

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

Utilizando a seguinte chamada, é possível converter o objeto código de barras num InlineShape. Note-se que não é possível alterar o código de barras após a conversão.

ab.ConvertToShape

Se já não precisar do controlo, pode eliminá-lo do documento:

 ab.Delete

Sugestão: Se for necessário que o Windows processe eventos futuros (frequentemente designados por "KeepWindowsAlive") numa macro, pode forçá-lo utilizando a seguinte função VBA:

DoEvents

Isto pode ser necessário, por exemplo, se o Controlo tiver de se desenhar de novo.