最速攻略 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

※不要な変数宣言がある