No.1ベストアンサー
- 回答日時:
エクセルのVBEの標準モジュールに
Sub test01()
Dim wdobj As Object
Set wdobj = CreateObject("word.application")
wdobj.documents.Open Filename:="C:\Documents and Settings\XXX\My Documents\文書1.doc"
wdobj.Visible = True
wdobj.ActiveDocument.PrintOut ' From:=nPageStart, To:=nPageEnd
wdobj.Quit
Set wdobj = Nothing
End Sub
を貼り付け、文書ファイル名・Pathを変えて、実行してみてください。
No.2
- 回答日時:
Sub Word_Print()
Dim wd As Object
Set wd = CreateObject("Word.application")
wd.Visible = True
wd.Documents.Open Filename:="ABC.DOC"
wd.PrintOut Filename:="ABC.DOC"
wd.Quit False
Set wd = Nothing
End Sub
ありがとうございました。
下記のようにしたら上手くいきました。
Sub Word_Print()
Dim wd As Object
Set wd = CreateObject("Word.application")
wd.Visible = True
wd.documents.Open Filename:=ThisWorkbook.Path & "\ABC.doc"
wd.ActiveDocument.PrintOut
wd.Quit ' False
Set wd = Nothing
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) マイクロソフトオフィス 5 2023/07/29 14:31
- Visual Basic(VBA) エクセルVBA エクセルを開いた後に編集可能な状態にするには? 2 2023/06/14 11:58
- Visual Basic(VBA) VBAコードを張り付け後のエクセルの進め方 2 2023/02/07 18:24
- Excel(エクセル) VBA セルの値と同じ名前のシートにデータを貼り付けするやり方を教えてください 2 2022/05/17 16:26
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/04/17 13:07
- Visual Basic(VBA) エクセルVBA 既存エクセルを開きその中のシートとしてCSVファイルを開く 3 2023/05/31 13:11
- Excel(エクセル) エクセルでcsvファイルを開いてVBAを使いたい 7 2022/04/28 11:12
- Excel(エクセル) 能力が問われると思う 8 2023/08/19 06:44
- Visual Basic(VBA) Selenium Basicの件 5 2023/04/10 20:55
- Excel(エクセル) エクセルのVBAの標準モジュールの名前が文字化けしてしまうのですが。。 2 2022/11/28 16:34
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
再起動が必要です
-
ワードで大量の図形を一括でグ...
-
ワードで作成した画像を保存す...
-
ワード レイアウトの崩れ
-
20×20のワードを37×36のtxtに...
-
ワードが白と黒が反転してしま...
-
ワードの行間
-
ワードで名刺作成。枠線の同じ...
-
「niger fk」 ↑外国人にこの文...
-
エクスプローラーについて。
-
ワードでルビを振ると「単語が...
-
ワードでプリンターがA4までな...
-
ワード PDF化した際、背景の...
-
chatgptで、2000000トークンと...
-
理想的な行数、文字数、フォント
-
参照用数字配列がいつの間か変...
-
Officeソフトで印刷の入稿デー...
-
目次は文書中の先頭にのみにし...
-
大学のレポートについてです。...
-
IMEパッドの手書き入力
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
it raining that night,we coul...
-
HDDメーカーの優劣について
-
最近の(2014年)3.5インチの内蔵...
-
3.5インチ内蔵HDD どれがいい...
-
seagate hdd 返品 交換 ができ...
-
HDD 信頼できるメーカー
-
CrystalDiskinfoで注意と出たハ...
-
【代替処理済のセクタ数】 を回...
-
PCをシャットダウンしても外付...
-
PCのパーフォーマンスが極端に...
-
デバイス \\Device\\Harddisk0\...
-
HDD(SSD)クローン(コピー)スタ...
-
HDDのデフラグは途中でやめると...
-
購入したばかりのHDD、「代替処...
-
USBメモリからHDDに、データを...
-
HDDの回避不可能セクタ数が200
-
代替処理?回復不可能?HDD交換...
-
HDDの代替処理保留中のセクタ数...
-
外付けHDDから外付けHDDへの転...
-
外付けHDDのデータを別の外付け...
おすすめ情報