お世話になります。
先ほど、No.15462にて質問したばかりなのですが（汗
エクセルへのバーコード貼り付けは魔界さまからのアドバイスによりうまくできました。
同様にワードにも貼り付けを行いたいのですが、オブジェクトを挿入する方法を探せずにいます。ヒントなどいただけませんでしょうか。

　'Word の起動処理
   Dim wdApp As Word.Application
   Dim wdDoc As Word.Document  
   Set wdApp = CreateObject("Word.Application")
   '既存のファイルを開く
   Set wdDoc = wdApp.Documents.Open("d:\test.doc")
   'Wordを表示
   wdApp.Visible = True  
　 '文書の書き込み例
   wdDoc.Activate
  
wdDocに対してオブジェクトを追加する命令をかくと思うのですが、その部分をどのように記述すればいいのかわかりません。

※エクセルの場合は以下としました。
Set objBarCode = xlBook.ActiveSheet.OLEObjects.Add(ClassType:="BARCODE.BarCodeCtrl.1", _
                Link:=False, DisplayAsIcon:=False, _
                Left:=lngLeft, Top:=lngTop, Width:=intWidth, _
                Height:=intHeight)
    
すいませんが、よろしくお願いします。

> エクセルへのバーコード貼り付けは魔界さまからのアドバイスによりうまくできました。
http://yaplog.jp/orator/archive/20

> 同様にワードにも貼り付けを行いたいのですが、オブジェクトを挿入する方法を探せずにいます。
「マクロの記録」を使えば分かりませんか?

> ヒントなどいただけませんでしょうか。
Shapes または InlineShapes の AddOLEControl メソッドで
"BARCODE.BarCodeCtrl" を作成できます。

あとは、そのシェイプに対して「.OLEFormat.Object.Style = 7」のような感じで。

魔界の仮面弁士さま
お名前の件、大変失礼いたしました。

ワードマクロの記録もあまり活用したことがなく、思いつきませんでした。

アドバイスいただいた内容で実装することができました。

大変助かりました。ありがとうございましたm(__)m。