Rangeを使って取り消し線を引く

対象：Word2007, Word2010, Word2013, Windows版Word2016

「word vba rangeで取り消し線」
という検索で、このサイト・インストラクターのネタ帳へのアクセスがあることに気づきました。

Word VBA（Visual Basic for Applications）のRangeを使って、

Rangeを使って取り消し線を引く

取り消し線を引くには、どのようなコードを書けばいいのかを探していらした方による検索キーワードです。

［スポンサードリンク］

Document.Rangeメソッドを使って取り消し線を引くサンプルマクロ

WordのRangeオブジェクトは、さまざまなプロパティ・メソッドで取得できますが、ここではDocumentオブジェクトのRangeメソッドを使ってRangeオブジェクトを取得して、取り消し線を引くサンプルマクロをご紹介しておきます。

Sub Rangeで取り消し線()
　ActiveDocument.Range(0, 5).Font.StrikeThrough = True
End Sub

アクティブ文書に、適当に文字列を入力しておいてから、上記のマクロを実行すると、1文字目から5文字目までに取り消し線が引かれます。

ActiveDocumentプロパティで、Documentオブジェクトを取得して、
　　ActiveDocument.Range(0, 5).Font.StrikeThrough = True

DocumentオブジェクトのRangeメソッドの第1引数に「0」、第2引数に「5」を指定することで、0文字目よりうしろ、5文字文字以前の文字列を表すRangeオブジェクトを取得して、
　　ActiveDocument.Range(0, 5).Font.StrikeThrough = True

RangeオブジェクトのFontプロパティで、Fontオブジェクトを取得して、
　　ActiveDocument.Range(0, 5).Font.StrikeThrough = True

FontオブジェクトのStrikeThroughプロパティにTrueを設定することで、取り消し線を引いています。
　　ActiveDocument.Range(0, 5).Font.StrikeThrough = True

［スポンサードリンク］

『インストラクターのネタ帳』では、2003年10月からMicrosoft Officeの使い方などを紹介し続けています。
Excel VBAの経験がある方を対象に、Word VBAの基本をキンドル本としてまとめました↓↓

Excel VBAユーザーの方を対象として、Wordの表をVBAで操作する基礎をまとめました↓↓

『インストラクターのネタ帳』を運営する伊藤潔人が、初めて書かせていただいた書籍です↓↓

PowerPoint VBA本は、実はオブジェクトブラウザーの使い方を徹底的に解説した本です↓↓

日経BP社から出版された、Excel VBAユーザー向けのPython超入門書です↓↓

上記の『Excel VBAユーザーのためのPythonプログラミング』の、元になったキンドル本です↓↓

Pythonの文字列フォーマットの基本をキンドル本としてまとめました↓↓

小数とPythonのdecimalモジュールの基本をキンドル本としてまとめました↓↓

数式を使った条件付き書式設定が苦手な方に向けたKindle本を書きました↓↓

図形を操作するExcel VBAの基本を解説したキンドル本を書きました↓↓

グラフを操作するExcel VBAの基本を解説したキンドル本も出しました↓↓

Pythonの外部ライブラリOpenPyXL（オープンパイエクセル）の入門書を、Excel VBAユーザーに向けに書きました↓↓

「フォント」の記事一覧