投稿日 | : 2004/05/12(Wed) 22:04 |
投稿者 | : 花ちゃん |
Eメール | : |
URL | : |
タイトル | : Re: 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