《VBA・CSS》入門実用Tips集 ＋α
メニュー一覧 HOME 　エクセルVBA 　　●ワード操作● 　　6-2 　wwwcount改造 　CSS(ｽﾀｲﾙｼｰﾄ)基本 　BiglobeﾌﾞﾛｸﾞCSS 　CSSいろいろﾘﾌｧﾚﾝｽ 　HTML基本 　HTML簡易ﾘﾌｧﾚﾝｽ	Home > エクセルVBA > 6-2　ワード操作 ● EXCELからワードを起動するサンプル ワード起動ボタンを押すとワードを起動しソースで指定のドキュメントを開きます。 ワード終了ボタンを押すとドキュメントファイルを保存、又はそのまま閉じます。 　　　(開くドキュメントのフォルダとファイル名はソース中で指定します。) 《記述場所》 〔ソースリスト〕 　　　(リスト中の￥マークは表示するために全角文字にしています。このまま使う場合は半角にしてください。) Option Explicit Dim wordApp As Word.Application　　　'アプリケーションオブジェクト格納用 Dim wordDoc As Word.Document　　　　'ドキュメントオブジェクト格納用 Private Sub CommandButton1_Click()　　'===ワード起動=== 　　Dim openfile_NAME As Variant　　'開くファイル名はバリアント型で指定する 　　CommandButton1.Enabled = False　'開始ボタンを無効にする 　　CommandButton2.Enabled = True　　'停止ボタンを有効にする 　　'ワード起動 　　Set wordApp = New Word.Application 　　'開くドキュメントファイル名を指定 　　openfile_NAME = "C:￥test.doc" 　　'ドキュメントファイルを開く 　　Set wordDoc = wordApp.Documents.Open(Filename:=openfile_NAME) 　　'表示ON 　　wordApp.Visible = True End Sub Private Sub CommandButton2_Click()　　'===ワード終了=== 　　CommandButton1.Enabled = True　　'開始ボタンを無効にする 　　CommandButton2.Enabled = False　　'停止ボタンを有効にする 　　'ワードを閉じる 　　wordApp.Quit saveChanges:=wdDoNotSaveChanges　　　'ドキュメントを保存しないで閉じる処理 　　'wordApp.Quit saveChanges:=wdSaveChanges　　　　ドキュメントを保存して閉じる処理 　　'オブジェクトを解放する 　　Set wordDoc = Nothing 　　Set wordApp = Nothing End Sub ○サンプルファイルダウンロード○(準備中)  このページのトップへ