以编程方式创建次线程

Public Sub setBarcode(code As String)
ThisDocument.Sections(1).Range.Tables(1).Select '条形码位置
If Selection.InlineShapes.Count = 1 Then
ThisDocument.Sections(1).Range.Tables(1).Select
Selection.InlineShapes(1).Delete
End If
Set ab = Selection.InlineShapes.AddOLEObject(ClassType:="BARCODE.BarcodeCtrl.1", FileName:="", LinkToFile:=False, DisplayAsIcon:=False)
With ab.OLEFormat
.Activate
Set abObject = .Object
End With

abObject.Style = 7 '条码类型，C-39码
abObject.LineWeight = 3
abObject.Value = code '要打印的字符
'abObject.ShowData = 0
ab.Width = 240
ab.Height = 50
End Sub