ルビをカタカナでつける方法

[Hayato]

word2002で、拡張書式からルビをつけると、ひらがなでルビが表示されます。
カタカナでルビをつける方法を教えて下さい。

[Miyahn]

# $BEj9F!?1\Mw$K$O(B Web $B%Y!<%9$G$J$$%K%e!<%9%j!<%@$NMxMQ$r?d>)$7$^$9!#(B

"Hayato" $B$5$s$O!"(B2005$BG/(B1$B7n(B8$BF|(B 1:39 $B$N(B
$B!V%k%S$r%+%?%+%J$G$D$1$kJ}K!!W(B $B$G!"$3$&=q$+$l$^$7$?!#(B

word2002$B$G!"3HD%=q<0$+$i%k%S$r$D$1$k$H!"$R$i$,$J$G%k%S$,I=<($5$l$^$9!#(B
$B%+%?%+%J$G%k%S$r$D$1$kJ}K!$r65$($F2<$5$$!#(B

Alt+F11 $B$G(B VBE $B$r3+$$$F!"(BNormal.dot $B$NI8=`%b%8%e!<%k$K2<5-%3!<%I(B
$B$r%3%T!<!u%Z!<%9%H$7$^$9!#(B

Sub $B%U%j%,%J(B()
SendKeys "~"
WordBasic.FormatPhoneticGuide
Selection.Fields.ToggleShowCodes
Selection.Range.Kana = wdKanaKatakana
Selection.Fields.ToggleShowCodes
End Sub

Alt+F11 $B$G(B Word $B$KLa$C$F!"BP>]J8;zNs$rA*$s$@>uBV$+$i!"(BAlt+F8 $B$G(B
$B%^%/%m%@%$%"%m%0$rI=<($7!"%U%j%,%J(B $B$r<B9T$7$^$9!#(B
$B<B9TD>8e$J$i!"(B[$B85$KLa$9(B]$B%\%?%s$G$R$i$,$J$N%k%S$KLa$;$^$9!#(B

$B3NDjA0$K$R$i$,$J$N%k%S$r3NG'$7$?$$>l9g$O!":G=i$N(B SendKeys $B$N9T$r(B
$B%3%a%s%H%"%&%H$7$^$9!#!J9TF,$KH>3Q%"%]%9%H%m%U%#$rA^F~!K(B

[y sakuda]

Post by Miyahn
Sub $B%U%j%,%J(B()
SendKeys "~"
WordBasic.FormatPhoneticGuide
Selection.Fields.ToggleShowCodes
Selection.Range.Kana = wdKanaKatakana
Selection.Fields.ToggleShowCodes
End Sub

$B$3$N7o$O;d$OA4$/%*!<%H%a!<%7%g%s$N<jCJ$,;W$$$D$+$J$+$C$?$b$N$G$9$+$i!"(B
$B6=L#?<?<$G$d$C$F$_$?$N$G$9$,!">e<j$/9T$-$^$;$s!#(B
$B$I$N%P!<%8%g%s$G%F%9%H$5$l$F$^$9$G$7$g$&$+!)(B
$B;d$O(BWord2002$B!\(BSP2$B$G$9(B
$BF0$-$O<!$N$H$*$j$G$9(B
$B#1!%?6$j2>L>$N%@%$%"%m!<%0$OI=<($5$l$k(B
$B#2!%J8=q$NBh(B1$B9T$N:G=i$K$R$i$,$J$,$"$k$H!"0lJ8;z$J$$$7$O?tJ8;zJ8;z$,JR2>L>$KJQ$o$k(B

$B$G!";d$,%F%9%H$7$F$_$?8B$j$G$O!"$I$&$b!":G=i$K%k%S$r$D$1$F!"%@%$%"%m!<%0%\%C%/%9$,JD$8$?(B
$B;~$K(BSelection$B$,@hF,$K9T$C$F$7$^$&$_$?$$$G$9!#(B
$B$R$i$,$J$N%k%S$N$D$$$?J8;zNs$r2~$a$FA*Br$7$F(B
Selection.Fields.ToggleShowCodes
$B0J2<$r<B9T$9$k$H%+%?%+%J$KJQ$o$j$^$9(B
$B$J$s$+(BWord$B$N%P!<%8%g%s$K$h$j%@%$%"%m!<%0%\%C%/%9$,JD$8$?$H$-$NF0$-$,$A$,$&$N$G$7$g$&$+!)(B

$B$=$3$G!"6l$7J6$l$K$3$s$JIw$K2~B$$7$?$iF0$-$^$7$?!#(B
Sub $B%U%j%,%J(B()
Dim X
Set X = Selection.Range
SendKeys "~"
WordBasic.FormatPhoneticGuide
X.Fields.ToggleShowCodes
X.Kana = wdKanaKatakana
X.Fields.ToggleShowCodes
End Sub

[Miyahn]

"y sakuda" $B$5$s$O!"(B2005$BG/(B1$B7n(B9$BF|(B 0:18 $B$N(B
$B!V(BRe: $B%k%S$r%+%?%+%J$G$D$1$kJ}K!!W(B $B$G!"$3$&=q$+$l$^$7$?!#(B

Post by y sakuda
$B$3$N7o$O;d$OA4$/%*!<%H%a!<%7%g%s$N<jCJ$,;W$$$D$+$J$+$C$?$b$N$G$9$+$i!"(B
$B6=L#?<?<$G$d$C$F$_$?$N$G$9$,!">e<j$/9T$-$^$;$s!#(B
$B$I$N%P!<%8%g%s$G%F%9%H$5$l$F$^$9$G$7$g$&$+!)(B
$B;d$O(BWord2002$B!\(BSP2$B$G$9(B
$BF0$-$O<!$N$H$*$j$G$9(B
$B#2!%J8=q$NBh(B1$B9T$N:G=i$K$R$i$,$J$,$"$k$H!"0lJ8;z$J$$$7$O?tJ8;zJ8;z$,JR2>L>$KJQ$o$k(B

$BJ#?t$N$U$j$,$JIU$1BP>]$,$"$k>uBV$G8!>Z$7$?Lu$G$O$"$j$^$;$s!#(B
$B$"$/$^$G!"C10l$NJ8;zNs$KBP$7$F?6$j2>L>IU$1$r$9$k$H$$$&A0Ds$G!"(B
$B?tJ,$G$G$C$A$"$2$?%3!<%I$G$9$+$i!"$=$&$$$&$3$H$b$"$k$G$7$g$&!#(B
$B;d$N%F%9%H4D6-$O(B WinXP SP$B$J$7!"(BWord2002 SP1 $B$G$9!#(B

Sakuda $B$5$s$N%3!<%I$NJ}$,0BDj@-$,9b$$$N$J$i!"1sN8$J$/$$$?$@$-$^$9!#(B
(^_-)-$B!y(B

[y sakuda]

Post by Miyahn
"y sakuda" $B$5$s$O!"(B2005$BG/(B1$B7n(B9$BF|(B 0:18 $B$N(B
$B!V(BRe: $B%k%S$r%+%?%+%J$G$D$1$kJ}K!!W(B $B$G!"$3$&=q$+$l$^$7$?!#(B
$BJ#?t$N$U$j$,$JIU$1BP>]$,$"$k>uBV$G8!>Z$7$?Lu$G$O$"$j$^$;$s!#(B
$B$"$/$^$G!"C10l$NJ8;zNs$KBP$7$F?6$j2>L>IU$1$r$9$k$H$$$&A0Ds$G!"(B
$B?tJ,$G$G$C$A$"$2$?%3!<%I$G$9$+$i!"$=$&$$$&$3$H$b$"$k$G$7$g$&!#(B
$B;d$N%F%9%H4D6-$O(B WinXP SP$B$J$7!"(BWord2002 SP1 $B$G$9!#(B

$B$3$s$J!"%^%$%J!<$C$]$$$H$3$m$r?tJ,$G$G$C$A>e$2$k$3$H<+BN46?4$7$A$c$$$^$9!#(B

$BEj9F8e$b$&>/$7$$$8$C$F$_$?$N$G$9$,!"%@%$%"%m!<%0$,=*N;$7$?;~E@$G$N%+!<%=%k$O(B
$BA*Br$7$?J8;zNs$NF,$K;D$j!"A*Br$NH?E>$O>C$($F$$$k$H$$$&>uBV$G$9!#(B
$B$=$3$+$i!"$=$N%Z!<%8$NF,!JJ#?t%Z!<%8$N>l9g$OA0$N%Z!<%8$NF,$J$I!K$H$$$&JQ$J$H$3$m$N(B
$B$R$i$,$J$,JQ49$5$l$k$N$O$J$>$G$9!#(B
$B8D?ME*$K$O?6$j2>L>$O$[$H$s$I;H$$$^$;$s$N$G!"$R$i$,$J(B/$B%+%?%+%J$r$"$^$j0U<1$7$?$3$H$,(B
$B$J$/!"I,MW$J$i%@%$%"%m!<%0$G<jF0$G$d$C$F4V$K9g$C$A$c$$$^$9!J!0!0!K(B

$B$H!"8@$&$3$H$G85Ej9F<T$+$i$NH?1~$,$J$1$l$P$*3+$-$G$9$M!#(B