EXCEL VBA からWordを操作・制御(新規作成・ファイルを開く・データ転記・一覧表の貼り付け・ファイルの保存)

 

 

EXCEL VBA からWordを操作・制御(新規作成・ファイルを開く・データ転記・一覧表の貼り付け・ファイルの保存)

 

 

 ●はじめに

今回説明するのは、EXCEL VBAからWordを操作する方法の説明をいたします。普段EXCELとWordを使っていると全く別物のソフトの様に思えますが、EXCEL VBAを使って文書の追記やEXCELで作成した表をWordへ貼り付けなどデータを転記する事ができます。EXCEL・Word・OUTLOOKなどOffice製品では、OLEオートメーションを使って操作する事ができます。他のOffice製品を操作するには、2つの利用方法があります。一つ目は、CreateObject関数を使う方法と参照設定を使う2通りの方法があります。今回は、CreateObject関数を利用する方法を使い、サンプルプログラムを交えて順番に説明いたします。

 

 

 

 ●書式の説明 (EXCEL VBAからWordの起動)

● CreateObject関数を使用してWordを起動する。

 

【使用例】

 

【実行前~実行後】
※Wordが起動されました。実行から起動までに利用PCにもよりますが、約3秒程度かかります。

 

 

 

EXCEL VBAから既存のWordファイルを起動する。(ファイル名を指定してWordファイルを起動する。)

 

 

 ●プログラム説明 (サンプル①)

下記のサンプルプログラムは、EXCEL VBAから指定した既存のWordファイルを起動します。

【プログラム実行条件】
① Wordファイルを用意します。
② 参照先ブックのフルパス(ファイル位置)を実際に保存しているパスをプログラムに記入。
※注意:プログラム内に記述している参照先フルパスを書き換える↓この部分
Set WordDoc = WordApp.Documents.Open(“C:\Users\akira\OneDrive\デスクトップ\Word 文書.docx“)’

 

 

 

 

●実行前~実行後 ※プログラム実行後、フルパスを指定したWordファイルが立ち上がりました。
(画面クリックして拡大)

 

 

 

 

 

EXCEL VBAから新規Wordファイルを起動して、EXCELシートに記載している文書ををWordへ転記する。

 

 

 ●プログラム説明 (サンプル②)

下記のサンプルプログラムは、EXCELのワークシートに記載している文書(セル)の内容を新規Word作成したWord文書へ内容を転記するサンプルプログラムです。EXCELのワークシートのA列には、文書データとして議事録が作成しております。このEXCELのA列に記載している文書データ(議事録内容)をWordへ転記します。

【プログラム実行手順】

① EXCELシートのA列の最終行を取得します。(議事録データの最終行を取得)
② Wordを起動します。
③ Wordの新規作成を実行します。
④ EXCELシートのA列の2行目から最終行までの、議事録データを新規作成したWord文書へ転記します。


【プログラム実行条件】

① EXCELブックのシートのA列に議事録(文書)を入力します。(A列の2行以降~ ※何行でもよい)

 

 

 

 

 ●実行前~実行後 ※プログラム実行後、EXCELシートに記載している文書(議事録)が新規作成されたWordへ文書内容が転記されました。
(画面クリックして拡大)

 

 

 

EXCEL VBAから既存のWordファイルを起動して、EXCELデータに記載している文書データを既存Word文書に追記する。

 

 

 ●プログラム説明 (サンプル③)

下記のサンプルプログラムは、EXCEL VBAから既存のWordファイルを起動して、EXCELのワークシートに記載している文書(セル)の内容を既存のWord文書に追記するサンプルプログラムです。追記する内容は、EXCELのワークシートのA列に記載しており、この内容を既存のWordへ文書へ追記を行います。

 

【プログラム実行手順】

① EXCELからWordを起動します。
② EXCELシートのA列の最終行を取得する。
③ 指定したWordファイル「宴会案内.docx」を起動します。
④ EXCELシートのA列データを2行目からデータ登録されている最終行まで、Wordファイルへ転記します。

【プログラム実行条件】

① EXCELブックのシートのA列に追記文書を入力します。(A列の2行以降~ ※何行でもよい)
② 既存のWordファイルを用意します。(文書を記載しておく)
② 参照先ブックのフルパス(ファイル位置)を実際に保存しているパスをプログラムに記入。
※注意:プログラム内に記述している参照先フルパスを書き換える↓この部分
Set WordDoc = WordApp.Documents.Open(“C:\Users\akira\OneDrive\デスクトップ\宴会案内.docx“)

 

 

 

 

 

 ●実行前~実行後 ※プログラム実行後、既存のWordファイル「宴会案内.Doc」を起動して、EXCELシートに記載している文書を既存Wordファイルへ追記されました。
(画面クリックして拡大)

 

 

 

EXCEL VBAから既存のWordファイルを起動して、EXCELデータに記載している表データを既存Word文書の末尾へ追記する。

 

 

 ●プログラム説明 (サンプル④)

下記のサンプルプログラムは、EXCEL VBAから既存のWordファイルを起動して、EXCELデータに記載している表データを既存Word文書の末尾へ追記するサンプルプログラムです。既存のWordファイルには、文書が登録されています。このWord文書の末尾に、EXCELシートに記載している表データを追記します。

【プログラムの流れ】
① 既存のWordファイルを起動します。(指定したWordファイルを起動します)
② EXCELファイルの表データをコピーする。
③ 起動したWordファイルの文書の末尾を選択
④ コピーしたEXCELの表をWordファイルの末尾に貼り付けます。

【プログラム実行条件】
① Wordファイル「販売報告.docx」を作成します。
② EXCELに表を作成します。セルA1:E9
③ WordApp.Documents.Open(“C:\Users\akira\OneDrive\デスクトップ\販売報告.docx”) ← Wordファイルの保管先を実際のフルパス指定する。

●EXCEL VBAからWord文書の先頭(最初)・末尾(最後)へ選択(移動)する場合は、下記の通りに指定します。

ActiveDocument.Bookmarks(“\StartOfDoc”).Select  ’先頭へ(最初)
ActiveDocument.Bookmarks(“\EndOfDoc”).Select  ’末尾へ(最後)

●ブックマーク(Bookmarks)プロパティにつきましては、下記のURLを参照してください。

https://docs.microsoft.com/ja-jp/office/vba/word/concepts/miscellaneous/predefined-bookmarks?redirectedfrom=MSDN

 

 

 

●実行前~実行後 ※プログラム実行後、既存のWordファイル「販売報告.Doc」を起動して、EXCELシートに記載している文書を既存Wordファイルへ追記されました。
(画面クリックして拡大)

 

 

 

 

EXCEL VBAから既存のWordファイルを起動して、EXCELデータに記載している表データを既存Word文書の末尾へ追記し最後にWordファイルを上書き保存する。

 

 

 ●プログラム説明 (サンプル⑤)

下記のサンプルプログラムは、サンプルプログラムの追加プログラムになります。既存のWordファイルに、EXCELの表を追記して最後にWordファイルを上書き保存するサンプルプログラムです。

【書式説明】Closeメゾットを利用してWordファイルを保存・選択・保存しない

●Documetオブジェクト.Close 定数

定数内容(説明)
wdSaveChangesファイルを上書き保存する
wdDoNotSaveChangesファイルを保存しない。

★【プログラムの流れ】・【プログラムの実行条件】につきましては、上記サンプル④を参照して下さい。

 

 

 

 

最後まで、ご覧いただきまして誠に有難うございました。
また、VBAに関するテクニックや便利な手法などをこのサイトに掲載していきますので、定期的に参照していただけると幸いです。