[[20071004191108]]　『Wordの起動印刷』（藁掴）　ページの最後に飛ぶ

『Wordの起動印刷』（藁掴）

 Excelシートのある部分を範囲指定します。（手操作でやります。）
 Excelのマクロから、Wordを起動して新しいシートに、貼付ける。
 印刷します。
 Wordをシート保存せずに閉じます。
 起動前のExcelに戻ります。（何もしないので戻ると思いますが）

 自分でも少し調べたのですが、
 'ExcelからWordを起動する
 Application.ActivateMicrosoftAppxlMicrosoftWord
 ここからすでに動かないもので、宜しくお願い致します｡

 起動したいワードのドキュメントの指定はどのようにしますか？
 ワードのどの部分をエクセルにコピーしたいのですか？
 (MARBIN)

 エクセルVBAから指定のドキュメントを開いて閉じる
 サンプルです。

 '参照設定：Microsoft Word *** Object
 '※***はワードのバージョンによる

 Sub WD()
  Dim MyWd As Word.Application
  Dim MyDoc As Word.Document
  Dim DocName As String
   DocName = "ドキュメントのフルパス"
   Set MyWd = CreateObject("Word.Application")
   Set MyDoc = MyWd.Documents.Open(DocName)
   '処理
   MyDoc.Close
   MyWd.Quit
 End Sub
 (MARBIN)

 MARBINさんやってみましたら、エラーせず処理中のカーソルが多少の
 時間砂時計になり終了します。Word起動しません。
 読み込むファイルが無い場合は、ファイルがありませんとエラーします。（藁掴）
 Sub WD()
  Dim MyWd As Word.Application
  Dim MyDoc As Word.Document
  Dim DocName As String
   DocName = "c:\test.doc"
   Set MyWd = CreateObject("Word.Application")
   Set MyDoc = MyWd.Documents.Open(DocName)
   '処理
   MyDoc.Close
   MyWd.Quit
 End Sub

 外しているかもしれませんが・・・(mitsu)

 >MyDoc.Close
 >MyWd.Quit

 上記二箇所をコメントアウトしたらどうなりますか？

 これでどうでしょうか？ (1or8)

 Sub Wd()
    Dim MyWd As Object
    Dim MyDoc As Object
    Dim DocName As String
    DocName = Application.GetOpenFilename _
                (Title:="ファイルを開く", FileFilter:="Word 文書(*.doc),*doc")
    If DocName = "False" Then Exit Sub
    Set MyWd = CreateObject("Word.Application")
    Set MyDoc = MyWd.Documents.Open(DocName)
    MyWd.Visible = True
   '処理
   MyDoc.Close
   MyWd.Quit
 End Sub

 mitsuさんある意味その通りです。これじゃあ閉じてしまいますよね。せっかく処理って
 書いてくれてるのにそれすら気がついてないんですから。すみません。
 コメントアウトしましたが、症状は同じでした。どうもWordがファイルを使っている状態
 にファイル情報はなっちまうみたいです。

 1or8さんうまくいきました。今回はExcelファイルと同じフォルダにある。test.docとして
 すぐに読込たいのですが、どうすればよいでしょうか？ 
 ActiveWorkbook.Path & "\" & "test.doc" をどうにか入れ込めば良いとは思うのですが。
 お願い致します。 （藁掴）

 放置されているので自己削除しました(mitsu)

 こうなります。(1or8)

 Sub Wd()
    Dim MyWd As Object
    Dim MyDoc As Object
    Dim DocName As String
    DocName = ActiveWorkbook.Path & "\" & "test.doc"
    Set MyWd = CreateObject("Word.Application")
    Set MyDoc = MyWd.Documents.Open(DocName)
    MyWd.Visible = True
    '処理
    MyDoc.Close
    MyWd.Quit
 End Sub

 たいへんありがとうございました。希望通り動作いたしました。
 また途中で本メッセージをおきざりにしてしまった事、反省して
 おりますので今後とも宜しくお願い申し上げます。（藁掴）

コメント返信：

[ 一覧(最新更新順) ]

[[20071004191108]] 『Wordの起動印刷』（藁掴） ページの最後に飛ぶ

[[20071004191108]]　『Wordの起動印刷』（藁掴）　ページの最後に飛ぶ