VBAにアクセスするテキストと位置の画像を含むWordヘッダーを作成する

Question

Word文書のヘッダーを正しく設定するためにvbaにアクセスできない。私はこれを持っている。

oDoc.PageSetup.DifferentFirstPageHeaderFooter = True 
oDoc.Sections(1).Headers(wdHeaderFooterFirstPage).Range.InlineShapes.AddPicture "C:\Users\mr.helpless\Pictures\doody.jpg" 
oDoc.Sections(1).Headers(wdHeaderFooterFirstPage).Range.Text = "hello there" 
oDoc.Sections(1).Headers(wdHeaderFooterPrimary).Range.Text = "whooo hooo!" 

今のところ、最初のページの画像がテキストに置き換えられます（次のページは問題ありません）。

私は絵やテキストを持っている必要があります - と私はテキストは、通常の余白を中心としながら、左約半分インチの画像をオフセットする必要があります。

どうすればいいですか？基本的には、ロゴ付きのレターヘッドをセットする必要があります。

文字列 MYTEXT = "こんにちは"

With oDoc.Sections(1).Headers(wdHeaderFooterFirstPage) 
    .Shapes.AddPicture Filename:="C:\Users\mr.helpless\Pictures\doody.jpg", LinkToFile:=False, SaveWithDocument:=True 
    .Range.Collapse 
    .Range.InsertAfter (myText) 
    .Range.Font.Name = "Helvetica" 
    .Range.Font.Size = 8 
    .Range.Font.Bold = True 
    .Range.Paragraphs.Alignment = wdAlignParagraphCenter 
End With 

として更新

薄暗いMYTEXT私はそれの半分は今、私はちょうど-.5する画像を配置する必要があり、行ってんですマージンまでソリューション完了

は単に「左：= - 35」を追加し、そのような（または任意の値作品）のような絵

.Shapes.AddPicture Filename:="C:\Users\mr.helpless\Pictures\doody.jpg", LinkToFile:=False, SaveWithDocument:=True, Left:=-35 

Answer 1

すべてが元のスレッドで更新されます。 .Range Collapseを使用して画像と共にテキストを追加し、Left：=（value）を入力して必要な場所に移動しました。

Answer 2

は、あなたがするWordでマクロを記録しようとしているに大まかな再配置 - コードをAccessに渡し、正しいオブジェクトとサイズで編集しますか？