LIVE配信 WordVBA Selection.Paragraphsで箇条書きを抽出し、PowerPointの新規スライドに自動でセットするマクロ 25-10-17 LIVE配信でテスト

Wordの箇条書きをPowerPointのスライドに自動で転記するVBAマクロを紹介します。 「Wordで作成した数十個の箇条書きを、PowerPointの1枚1枚のスライドに手作業でコピペしている…」そんな面倒な作業を一瞬で自動化するテクニックを解説します。 この動画では、Word VBAの Selection.Paragraphs を使って選択範囲の箇条書きを1行ずつ取得し、それをPowerPointに自動で転記する2種類のマクロを作成します。 選択した箇条書きを、PowerPointの1枚のスライドに複数のテキストボックスとして自動配置する方法 選択した箇条書きを、1行＝1枚の新規スライドのタイトルとして自動作成する方法 GetObject を使って起動中のPowerPointをVBAで操作する方法や、コードの注意点も初心者向けに丁寧に説明しています。 目次・チャプター 00:00:00 今回のテーマ Word VBAで箇条書きを1行ずつ取り出す方法 00:00:52 テスト実行 Selection.Paragraphsで選択範囲の段落を取得するVBA（単体テスト） 00:01:59 注意点①（記号） 箇条書きの段落番号や記号（1. や ・）は取得されない 00:04:21 注意点②（選択範囲） 段落の途中だけを選択しても、その段落の文章が丸ごと取得される 00:06:31 作成のきっかけ Wordの箇条書きをPowerPointの別々のスライドにしたいという質問 00:07:30 問題点の実演 Wordからパワポへの単純なコピペだと1つのテキストボックスになってしまう 00:08:25 解決マクロ① 実演（テキストボックス作成） 選択した箇条書きを、パワポの1枚のスライド上に別々のテキストボックスとして自動配置 00:09:56 解決マクロ② 実演（新規スライド作成） 選択した箇条書きを、パワポの新規スライドのタイトルとして1行ずつ自動作成 00:11:05 コード解説①（テキストボックス作成） GetObjectで起動中のPowerPointを捕まえる方法 00:12:10 コード解説①-2（レイアウト指定） Slides.Add(p, 12)で空白(ppLayoutBlank)スライドを追加する 00:12:36 コード解説①-3（テキストボックス配置） Shapes.AddTextboxでテキストボックスを作成し、Wordのテキストを代入するループ処理 00:19:07 コード解説②（新規スライド作成） (説明を忘れていたスライドタイトル追加マクロの解説です) 00:19:50 コード解説②-2（スライド追加ループ） For n = 1 To Selection.Paragraphs.Countでループしスライドを追加 00:21:03 コード解説②-3（タイトル設定） ppSld.Shapes.Title.TextFrame.TextRange.TextでタイトルにWordのテキストをセット 00:22:41 (補足) スライドレイアウト番号 Slides.Addのレイアウト番号（1や2）による違いをテスト 00:24:42 全体のまとめ Selection.Paragraphs.CountとRange.Textがポイントです #WordVBA #PowerPointVBA #マクロ #自動化 #コピペ #Word #PowerPoint #箇条書き #スライド作成 #VBA初心者 --- 1.Word VBA で 選択範囲の取り出し Debug.Printを入れた単体テストを見せる Word VBA Sub test() Dim n As Integer '全ての段落をテスト表示 For n = 1 To Selection.Paragraphs.Count Debug.Print n & ":" & Selection.Paragraphs(n).Range.Text Next n End Sub 2.なんでこんなことしたかったのか？箇条書きのテキストを取得したかった理由 キッカケの質問: パワーポイントに詳しい方へ wordに，箇条書きで書いた文が30から50個ほどあります。 （それぞれの文の文字数は20から30文字程度です。） これらの文を，スライドに別々に載せたいのですが，何か手っ取り早い方法はありますでしょうか。 ワードから１文ずつコピーペーストでスライドに載せるのも大変なので，ご存知の方がいらっしゃいましたら，どうぞよろしくお願い致します。 3.PowerPointのテキストボックスを作成してテキストを代入してみた 単純に、起動済みのパワーポイントを捕まえて、 テキストボックスを新規に作成してみた ※ソースコードはコメント欄で確認して下さい 4.PowerPointのスライドを作成してタイトルにテキストを代入してみた 次は、 パワーポイントのスライドを作成して、 タイトルエリアにテキストを代入してみた ※ソースコードはコメント欄で確認して下さい 5.おわりの挨拶 以上、簡単なWordからPowerPointへデータを新規に作成するテストでした 作成作業のヒントとなれば幸いです。