ＭＳワード用マクロ集

レポートを多人数で作成するとき書式の修正をするのに使っています。

選択した部分のフォントの色を黒字にする。
Sub MAIN
FormatFont  .Color = 1
End Sub

選択した部分のフォントの色を赤字にする。
Sub MAIN
FormatFont  .Color = 6
End Sub

選択した部分のフォントを半角にする。
Sub MAIN
a$ = Selection$()
a$ = StrConv$(a$, 8)
EditClear
Insert a$
End Sub

選択した部分のフォントを全角にする。
Sub MAIN
a$ = Selection$()
a$ = StrConv$(a$, 4)
i = InStr(a$, "゜")
While i > 1
	b$ = Mid$(a$, i - 1, 1)
	j = InStr("ハヒフヘホ", b$)
	If j > 0 Then
		a$ = Left$(a$, i - 2) + Mid$("パピプペポ", j, 1) + Right$(a$, Len(a$) - i)
	EndIf
	i = InStr(a$, "゜")
Wend
i = InStr(a$, "゛")
c$ = "ガギグゲゴザジズゼゾダヂヅデドバビブベボヴ"
While i > 1
	b$ = Mid$(a$, i - 1, 1)
	j = InStr("カキクケコサシスセソタチツテトハヒフヘホウ", b$)
	If j > 0 Then
		a$ = Left$(a$, i - 2) + Mid$(c$, j, 1) + Right$(a$, Len(a$) - i)
	EndIf
	i = InStr(a$, "゛")
Wend
EditClear
Insert a$
End Sub

全文書の全角数字とピリオドを半角にする。
はじめのr$ とw$を修正すれば、全角の英数字を半角にすることもできる。
Sub MAIN
r$ = "１２３４５６７８９"
w$ = "123456789"
For I = 1 To Len(w$)
ww$ = Mid$(w$, 1, I)
rr$ = Mid$(r$, 1, I)
  EditReplace .Find = rr$, .Replace =  ww$, .Direction = 0, .WholeWord = 0, .MatchCase = 0, .MatchByte = 0, .PatternMatch = 0, .SoundsLike = 0, .FindAllWordForms = 0, .FuzzyFind = 1, .ReplaceAll, .Format = 0, .Wrap = 1
Next
EditReplace .Find = "０", .Replace = "0", .Direction = 0, .WholeWord = 0, .MatchCase = 0, .MatchByte = 0, .PatternMatch = 0, .SoundsLike = 0, .FindAllWordForms = 0, .FuzzyFind = 1, .ReplaceAll, .Format = 0, .Wrap = 1
EditReplace .Find = "．", .Replace = ".", .Direction = 0, .WholeWord = 0, .MatchCase = 0, .MatchByte = 0, .PatternMatch = 0, .SoundsLike = 0, .FindAllWordForms = 0, .FuzzyFind = 1, .ReplaceAll, .Format = 0, .Wrap = 1
End Sub