こんにちは～ドットコムパソコン塾の徳丸です
みなさん、ゴールデンウィークはいかがお過ごしですか？
教室は5/1～5/4は開校しています。
出かけるにしても、どこも混雑しているので私は出かけません(*´艸｀)
いつもExcelのマクロですが、今日はWordのマクロです♪
Wordにもちゃんとマクロを使うことができます。
これも、ヤフーの知恵袋でBAをいただいたマクロです。
【質問】
文章を書くとき「、」や「。」を「,」や「.」に変更したいけどいちいち半角に戻して打ち込むのが面倒なので、めんどくさくない方法があれば教えてください。
と言う質問でした。
もちろんWordで文章を入力するときは全角で入力するので、半角にいちいち変えて入力しなければ、「,」や「.」はでてきませんね。
そこで、マクロ処理をします。
文章を入力していく前に、マクロを記述して名前をつけて保存しておき、保存した「***.docm」
を立ち上げると、毎回希望通りの処理ができます。
ではやってみましょう。
①～④の手順でやってみてください。
①下記のコードをコピーしてから、
＿＿「Alt」を押したまま「F11」を押すと、下図のVBEが出てきますので、
②その文章の「ThisDocument」をダブルクリックして、右のコードウィンドウに貼り付けます。
③もうこのVBEは不要なので、右上の「×」で閉じます。
④その後、この文章を「名前を付けて保存」→「ファイルの種類」を
＿＿→「Word マクロ有効文章」で保存してから一度その文章を閉じます。
マクロのコードは下記のとおりです。
Private Sub Document_Close()
AutoCorrect.Entries("、").Delete
AutoCorrect.Entries("。").Delete
Options.LabelSmartTags = True
End Sub
Private Sub Document_Open()
AutoCorrect.Entries.Add Name:="、", Value:=","
AutoCorrect.Entries.Add Name:="。", Value:="."
Options.LabelSmartTags = True
End Sub
②の図解説明
いかがですか～
Wordのマクロは難しいですね～
Excelの方がまだ優しいかもしれませんね～
Wordは幅が広いですね～Excelは奥が深い
と、私は思います
〒503-0204
岐阜県安八郡輪之内町四郷211-1
ドットコム・パソコン塾
TEL：0584-69-3839
開校日：月曜日～土曜日8：00～13：00
プライベートレッスン：月曜日～土曜日13：00～17：00
休校日：日曜日・祝日
