最速攻略 Word マクロ/VBA 徹底入門 [Word 2013/2010/2007対応版]

サポートページ

この記事を読むのに必要な時間:およそ 0.5 分

ダウンロード

本書のサンプルファイルをダウンロードできます。

データは,圧縮ファイル形式でダウンロードできます。

圧縮ファイルをダウンロードしていただき,適宜解凍してご利用ください。

お詫びと訂正(正誤表)

本書の以下の部分に誤りがありました。ここに訂正するとともに,ご迷惑をおかけしたことを深くお詫び申し上げます。

(2018年3月26日最終更新)

P.174 表6-07-2 DashStyleプロパティの設定に利用できる定数(一部)

定数設定内容
msoLineSquareDot2点線(角)
msoLineRoundDot3点線(丸)
 
定数設定内容
msoLineSysDash10点線(角)
msoLineSysDot11点線(丸)

Wordの通常操作に対応する設定値が異なります。


(以下2015年1月19日更新)

P.78 先頭行

    Selection.Characters.Count > 10 Then MsgBox _

        "文字超過"

        Else MsgBox "想定以下"
    If Selection.Characters.Count > 10 Then MsgBox _

        "文字超過"

        Else MsgBox "想定以下"

※コードに,「If」が抜けている。

P.81ページ リスト3-06-1

Sub WMacro030601()

    Dim sWord As String

    If Selection.Words.Count >= 10 Then

        MsgBox "合格です。"

        Selection.Words(1).Font.Underline = True

    End If

End Sub
Sub WMacro030601()

    If Selection.Words.Count >= 10 Then

        MsgBox "合格です。"

        Selection.Words(1).Font.Underline = True

    End If

End Sub

※不要な変数宣言がある