|
みなさん、こんにちは。
過去ログを参考にさせて頂き、なんとか作成している所なのですが
どうしても詰まってしまったので教えて下さい。
エクセルのマクロから、ファイルを開いてデータを書き込んで
名前を付けて閉じるという作業をしています。
エクセルを対象にした作業は出来るのですが、ワードに対しては
開く事までしか、出来ない状態で困っています。
現在のソースは、こちらです。
なお、変数の宣言や内容については、問題無いと お考え下さい。
-------------------------------------------------------------------------------
' ワードファイルを開く
Dim oApp As Object
Set oApp = CreateObject("Word.Application")
With oApp
.Visible = True
.Documents.Open Filename:="C:\テスト1.DOC"
End With
' ワードファイルに、指定した文字列を書き込む ↓ここで、ワードに切り替えてくれません
Selection.TypeText Text:=Mid(免許番号(I), 1, 4)
Selection.TypeParagraph
Selection.TypeText Text:=Mid(免許番号(I), 5, 30)
' 名前を付けて保存する
ファイル名 = "テスト2.DOC"
Set oApp = CreateObject("Word.Application")
With oApp
.Visible = True
.Documents.Close Filename:=ファイル名
End With
-----------------------------------------------------------------------------
どうか、ご指摘下さいますよう
よろしくお願いいたします。
|
|