ＡＴＯＫ Passport をご利用中のみなさん、ATOKのクラウドチェッカーを活用してますか？？
ATOKクラウドチェッカーは、ATOKが提供している文章校正機能です。
↓は、ATOKからの引用です。
ATOKクラウドチェッカーとは
ATOKクラウドチェッカーを使うと、ブラウザー上で手軽に日本語の文章を校正することができます。
メールの送信前やドキュメントの提出前など、最終チェックにご活用ください。
たとえば、↓のようなチェックがされます。
誤字脱字、間違い熟語、間違い外来語、助詞誤り、仮名遣い、慣用表現、同音語誤り、名称変更、西暦和暦、数字の書き方、機種依存文字、括弧 ら抜き表現、さ入れ表現、呼応表現、二重敬語、重ね言葉、二重否定、同一助詞の連続、修飾関係、並列関係、たりの並列誤り、べき止め不可、助詞抜け、句読点誤り、商標商品名、字種、長さ ビジネス文注意
ただし、ATOK Passport のプレミアム専用となりますが、、、
ATOK Passport でプレミアムを利用中であれば、是非活用すべきです！
ただし、一度にチェックできる文字数に１万文字という上限があります。
通常の文章なら大丈夫ですが、特許明細書は１万文字を超えるなんて当たり前。
そこで、１万文字を選択するマクロの登場です！
Sub 一万文字選択()
‘一万文字選択してコピーする
‘コピーした部分は､蛍光ペンに青をつける
Dim i As Long
Dim i2 As Long
‘ 画面の更新オフ
Application.ScreenUpdating = False
i = 0
Selection.MoveRight count:=10000, Extend:=wdExtend
i2 = Selection.Characters.count ‘文字数
Selection.Copy
‘ 蛍光ペン青
‘
Options.DefaultHighlightColorIndex = wdDarkBlue
Selection.Range.HighlightColorIndex = wdDarkBlue
Selection.MoveRight Unit:=wdCharacter, count:=1
MsgBox Prompt:=”【 ” & i2 & “ 】 文字コピーしました。”
‘ 画面の更新オン
Application.ScreenUpdating = True
End Sub
このマクロでと、１万文字を選択してコピーしますが、文章の途中で途切れてしまいます。
そこで、改良したのが↓のマクロです。
９０００文字選択した後、一段落多めに選択します。
これで、１万文字を超えることなく、段落を区切りとして文字を選択することができます。
Sub 九千文字選択()
‘九千文字選択してコピーする
‘コピーした部分は､蛍光ペンに青をつける
Dim i As Long
Dim i2 As Long
‘ 画面の更新オフ
Application.ScreenUpdating = False
i = 0
Selection.MoveRight count:=9000, Extend:=wdExtend
Selection.MoveDown Unit:=wdParagraph, count:=1, Extend:=wdExtend
i2 = Selection.Characters.count ‘文字数
Selection.Copy
‘ 蛍光ペン青
‘
Options.DefaultHighlightColorIndex = wdDarkBlue
Selection.Range.HighlightColorIndex = wdDarkBlue
Selection.MoveRight Unit:=wdCharacter, count:=1
MsgBox Prompt:=”【 ” & i2 & “ 】 文字コピーしました。”
‘ 画面の更新オン
Application.ScreenUpdating = True
End Sub
このように、 ATOKの強力な文章構成機能を便利に活用しましょう！
