word vbaでOLEオブジェクト使用後の実行時エラー”４３８”の処置がわからない。

Question

旧オフコン系で作成された帳票データを、word上で展開しプリントアウトするためのプログラムをWordVBAで記述しました。この帳票に、バーコードを出力する必要があり、フリーソフトのPSYBCLBL.PsyBcLblCtrl.1を使用して下記のコードを作成しました（バーコード生成の部分だけですが）が、下から２行目のSet文で、
実行時エラー”４３８”オブジェクトはこのプロパテイまたはメソッドをサポートしていません。
のエラーとなり、対処方法がわからず苦慮しております。（バーコードは目的の文書上に選択状態のまま表示はされております。この選択状態のままが問題とはおもうのですが！その下のRnage（０，０）Selectで解放されるとおもっておりましたが、ダメでした。

Word VBA
：
Dim ab As Object
Set ab = objdoc.Shapes.AddOLEObject(ClassType:="PSYBCLBL.PsyBcLblCtrl.1", _
FileName:="", LinkToFile:=False, DisplayAsIcon:=False)
ab.Width = 200
ab.Height = 120
ab.Top = 200
ab.Left = 100

Dim abObject As Object
Set abObject = ab.OLEFormat.Object
abObject.Style = 6
abObject.Value = outData(0, 4)

objdoc.Range(0, 0).Select
Set objselection = objdoc.Selection
objselection.TypeText = "test"コード

間違い指摘いただければ幸いです。

Comments

[YT0014]

objdocのset処理をご提示ください。
もし、WordのDocumentオブジェクトなのでしたら、Selectionというプロパティは存在しないと思うのですが。
https://docs.microsoft.com/ja-jp/office/vba/api/word.document