VBからWordを呼び出して印刷設定でヘッダー部に指定の文字を
表示させたいのですが、うまくいきません。
どなたか、VBからWordの印刷設定を行う関数等ご存知のかた
教えていただけませんでしょうか。

わかりづらい文章で申し訳ありませんがよろしくお願い致します。

> VBからWordを呼び出して印刷設定でヘッダー部に指定の文字を
> 表示させたいのですが、うまくいきません。
どこまでできて、どこがどのようにうまくいかないのでしょうか？

> どなたか、VBからWordの印刷設定を行う関数等ご存知のかた
> 教えていただけませんでしょうか。

知りたい操作をマクロに記録して、そのマクロを見てみましたか？

Private Sub Command1_Click()
    Dim wdApp   As Word.Application
    Dim wdDoc   As Word.Document
    Set wdApp = New Word.Application
    Set wdDoc = wdApp.Documents.Add
    wdApp.Visible = True
    
    wdDoc.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
    wdApp.Selection.TypeText Text:="ヘッダーを記入します"
    wdDoc.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
        
    '終了は Word から行って下さい。
    Set wdDoc = Nothing
    Set wdApp = Nothing
End Sub

> > VBからWordを呼び出して印刷設定でヘッダー部に指定の文字を
> > 表示させたいのですが、うまくいきません。
> どこまでできて、どこがどのようにうまくいかないのでしょうか？

ワードを起動させるところまではできているのですが、
印刷設定の方法がわからず、質問させていただきました。

> > どなたか、VBからWordの印刷設定を行う関数等ご存知のかた
> > 教えていただけませんでしょうか。
>
> 知りたい操作をマクロに記録して、そのマクロを見てみましたか？
>
> Private Sub Command1_Click()
>     Dim wdApp   As Word.Application
>     Dim wdDoc   As Word.Document
>     Set wdApp = New Word.Application
>     Set wdDoc = wdApp.Documents.Add
>     wdApp.Visible = True
>    
>     wdDoc.ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
>     wdApp.Selection.TypeText Text:="ヘッダーを記入します"
>     wdDoc.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
>        
>     '終了は Word から行って下さい。
>     Set wdDoc = Nothing
>     Set wdApp = Nothing
> End Sub

この方法で一度試してみます。
あいまいな表現ですみませんでした。
花ちゃんさんありがとうございました。

何度ももうしわけありません。

VBからWordオブジェクトを利用した印刷方法に、ついてなのですが。
すでに表示させているwordアプリケーション内のヘッダー部フッター部
に指定の文字を表示させたいと考えております。

花ちゃんさんに教えていただいた方法ですと新規にワードアプリケーション
が表示されるようでして。
どなたかおわかりでしたらご教授お願いいたします。
よろしくお願い致します。

Set wdApp = New Word.Application
を
Set wdApp = GetObject(, "Word.Application")
にしてみるとか。

> 花ちゃんさんに教えていただいた方法ですと新規にワードアプリケーション
> が表示されるようでして。

ここの Excel & Word 関係をご覧下さい。

　　'新しい文書を開く
　　'Set wdDoc = wdApp.Documents.Add
　　'既存のファイルを開く場合
　　Set wdDoc = wdApp.Documents.Open(App.Path & "\Test.doc")

何度も質問してすみませんした＾＾；
Excel & Word のぺーじを参考に
もう一度考えてみます。

花ちゃんさん、nanashiさんどうもありがとうございました。