Word VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃ホーム

887 / 897

←次へ　｜　前へ→


	【11】Re:半角全角変換をするには？

H.C.Shinopy - 03/1/22(水) 19:44 -


	引用なし

	パスワード

技術評論社の書籍「Word2002 300の技」に
112番目の技として以下のようなマクロが載っています。
（1箇所だけ、私が手を加えて変更しています。
「Selection.Font.Scaling = 50」で文字幅を50%に指定し、
半角文字と同じ幅になるようにしています。
御不要な場合は、この行を削除して下さい。）

尚、文字列変換の対象は「本文」です。
「オブジェクト」のほうは、どうにも判りません。
お許し下さい。

Sub 半角カタカナ全角変換()
　Selection.Words(1).Select
　Selection.Collapse wdCollapseStart
'
　Selection.Find.ClearFormatting
　With Selection.Find
　　.Text = "[ｦ-ﾟ]{1,}"
　　.Replacement.Text = ""
　　.Forward = True
　　.Wrap = wdFindContinue
　　.Format = False
　　.MatchCase = False
　　.MatchWholeWord = False
　　.MatchByte = False
　　.MatchAllWordForms = False
　　.MatchSoundsLike = False
　　.MatchFuzzy = False
　　.MatchWildcards = True
　End With
'
　Do While Selection.Find.Execute
　　With Selection.Range
　　　.CharacterWidth = wdWidthFullWidth
　　　Selection.Font.Scaling = 50
　　End With
　　Selection.Collapse wdCollapseEnd
　Loop
End Sub　'　半角カタカナ全角変換　　*----*----*

1,459 hits

▼

【10】半角全角変換をするには？ YYS 02/12/26(木) 17:39