(license)みなさん、こんにちは!タカハシ(@ntakahashi0505)です。VBAで入力を便利するマクロの作り方を初心者向けにお伝えしています。VBA初心者向けに入力を便利にする簡単マクロの作り方をお伝えしています。VBAで知っておくべきスタイルのこと、またstyleプロパティで段落のスタイルを変更をする方法についてです。VBAでスタイルを取り扱う基本についてお伝えしています。VBAのプロシージャ...Selectionに次ぐSelection、何度も同じオブジェクトを書くの面倒なんですよね。Withステートメントを使えば同じオブジェクトの表記を1回にまとめることができます。VBAで同一オブジェクトの表記をまとめるWithステートメントの使い方です。プログラムを書くことができるようになりますよ!では、行ってみましょう。前回作成した便利マクロですが、選択範囲の前後に文字列を挿入するというものでした。—–」という段落を挿入するというものです。以下のような選択範囲のときに実行すると以下のように、InsertAfterで挿入した段落に、インデントが適用されてしまうのです。今回は、これを解決していきます。選択範囲の最後の段落を取得するオーケー、オーケー。最後の段落なら以下の記事で紹介していますよ。VBAを使って便利な入力ツールを作る方法をお伝えしています。VBAで選択範囲の中から最初の段落と最後の段落を取得して、その文字列を出力する方法をお伝えします。tonari-it.com2017.07.09つまり、Paragraphsコレクションの中で、最後のインデックス番号の段落Paragraphsコレクション(Selection.Paragraphs.Count)またはParagraphsコレクション.Lastで取得できます。して取得した最後の段落についてのインデントをなんとかする方法を考えればよいですね。「標準」スタイルのインデントを確認するあとはインデントを戻す方法なのですが、いろいろと手段はあります。今回はシンプルに最初の段落に設定しているように、「標準」スタイルに設定することでインデントを解除していきます。いうのも、「標準」スタイルを設定している段落にカーソルを置いた状態で、「段落の設定」を見てみます。リボンの以下の図の位置をクリックです。すると、今カーソルがある位置の段落の設定を見ることができます。最初の行:なしとなっていますので、インデント関連の設定は何もないことが確認できますね。選択範囲の最後の段落にスタイルを適用するということで、選択範囲の最後の段落に「標準」スタイルを適用していけばよいということですね。その部分を追加したプロシージャがこちらです。Sub実際に課題となっていた選択範囲の状態で実行してみますと無事に最後の段落のインデントが解除されていますね。Withステートメントで同一オブジェクトの表記をまとめるこれでバッチリ...なのですが、プロシージャをもう一回見てください。Subなんだか、Selectionに次ぐSelection...正直ウザイですよね。VBAには同一オブジェクトの表現を一つにまとめる便利なステートメントがあります。それが、Withステートメントです。With上記「処理」の中で、Withの後に指定したオブジェクトに対するプロパティやメソッドを指定するときは、そのオブジェクトの表記を省略してピリオド(.)から書き始めることができるようになります。Withと書き換えることができます。VBAでWithステートメントを使って同一オブジェクトの表記をスッキリ書く方法でした。VBAですが、ThisDocumentとか、Selectionとか、Paragraphとか、けっこうオブジェクトの表記が長くなりがちなんですよね。オブジェクト変数を使う方法もありますが、今回紹介したWithステートメントが活躍する局面も多くあると思いますので、ぜひ使ってあげてください。次回ですが、今回作成したマクロをフォームボタンから呼び出す方法についてお伝えしたいと思います。VBAで入力を便利にするマクロの作り方を初心者向けということでお送りしています。VBAでフォームを表示する方法、またコマンドボタンでマクロを呼び出す法についてお伝えします。VBAで文字入力をしてみようお仕事でよく使う文書作成ソフトWord。実は、WordでもVBAでプログラミングができるんです。VBAで文字入力をする方法をお伝えしていきます。プランノーツ代表、コミュニティ「ノンプロ研」主宰。ITで日本の『働く』の価値を上げる!」をテーマに、VBA&GASの開発、講師、執筆などをしております。→詳しいプロフィールはコチラ★ご依頼・ご相談はお気軽にどうぞ!→お問い合わせはコチラ★フォロー頂ければ嬉しいです。「コミュニティ+講座」形式で継続性&教え合える環境も提供。!ノンプログラマーがプログラミングスキルを身に着ける支援ををするコミュニティ。セミナー・もくもく会・Facebookグループのサポートで「自らで学び続ける力をつける」支援、「教え合うことで学びの価値を上げる」場の提供をしています。VBAで段落の冒頭の全角スペースをインデントに変更するマクロを作っています。今回は検索した全角スペースが含まれる段落を取得する、またその段落範囲の開始位置を取得する方法をお伝えします。VBAで複数のドキュメントに一括処理をする方法についてお伝えしています。VBAでフォルダ内の全てのドキュメントについて、その全体範囲のフォントを変更する方法です。VBAでいろいろな検索や置換をする方法についてお伝えしています。今回はForwardプロパティで検索方向を変える方法、Wrapプロパティで文書全体を検索する方法についてお伝えします。VBAで複数のドキュメントを一括処理するマクロの作り方をお伝えしています。VBAでドキュメントファイルをSaveメソッドとCloseメソッドを使って上書き保存する方法です。2017.07.30Excel・VBA活用術Word、Excel、PowerPointのデフォルトフォントを変更する方法Office2016からデフォルトフォントになった「游ゴシック」が非常に見づらい...ということでWord、Excel、PowerPointのデフォルトフォントをそれぞれ変更する方法をお伝えしています。VBAで便利な文字入力をするマクロの作り方シリーズ。「コミュニティ+講座」形式で継続性&教え合える環境も提供。詳細・お申込はこちら隣ITを応援する当ブログを「応援したい!」「役に立ったよ!」というお気持ちを、コチラからお支払いただくことができます。日々更新の活力倍増いたします。※PayPalアカウントが必要です。※金額は変更可能です。Platform23HTML・CSS32iPhone・アプリ29Monaca・スマホアプリ開発7PC全般・Windows86PowerPoint・VBA28Python87RPA1VBScript15Vue.js・JavaScript13WEBサービス・クラウド68WordPress・ブログ88Word・VBA42コミュニティ・イベント109セミナーのお知らせ11チャットワーク72データ分析・アクセス解析40仕事・生産性・働き方73動画配信8商業出版21起業・フリーランス72電子書籍・Kindle3運営会社プランノーツは"IT×働き方改革"をお手伝いする会社です。「コミュニティ+講座」形式で継続性&教え合える環境も提供。詳細・お申込はこちら隣ITを応援する当ブログを「応援したい!」「役に立ったよ!」というお気持ちを、コチラからお支払いただくことができます。日々更新の活力倍増いたします。※PayPalアカウントが必要です。※金額は変更可能です。Platform23HTML・CSS32iPhone・アプリ29Monaca・スマホアプリ開発7PC全般・Windows86PowerPoint・VBA28Python87RPA1VBScript15Vue.js・JavaScript13WEBサービス・クラウド68WordPress・ブログ88Word・VBA42コミュニティ・イベント109セミナーのお知らせ11チャットワーク72データ分析・アクセス解析40仕事・生産性・働き方73動画配信8商業出版21起業・フリーランス72電子書籍・Kindle3運営会社プランノーツは"IT×働き方改革"をお手伝いする会社です。Scriptが「V8ランタイム」をサポート!モダンなECMAScript構文が使えるようになった2020.02.072020.02.08GASでコピーしたGoogleスライドのプレゼンテーションを取得する方法2020.02.052020.02.05Facebookページいつも隣にitのお仕事タイトルとURLをコピーしました。