에서 VBA를 사용한 바코드 사용 및 자동화 Word

응용 프로그램용 비주얼 베이직(VBA)을 사용하여 Word에서 많은 작업을 해결할 수 있습니다. 여기에서는 VBA를 사용하여 ActiveBarcode 컨트롤을 임베드, 사용 및 삭제하는 방법을 보여드리겠습니다:

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

예를 들어 컨트롤을 새로 그려야 하는 경우와 같이 필요할 수 있습니다.