No.4
- 回答日時:
ANo.2です。
ANo.3のWendy02さんがマクロを直接紹介しているので、私の回答は参考
程度でも良いかも。
それと、補足としてコマンドの[文字種の変換]について説明不足の部分
があったため追加回答します。
マクロを使わない場合、半角カタカナだけを検索させるには、[ヲ-゜]を
ワイルドカードにチェックを入れることで探すことできます。
これで探したものを[文字種の変換]で全角にすると、濁点なども一文字
として全角になるので、通常の置換作業だけでは手間がかかって難しい
と説明したかったのです。
ですからマクロを使用する方法の一つとして、半角以外でも利用できる
アドインを紹介しました。これならいつでも呼び出すことができますし
用が済んだらアドインを外せば済みますから。
Wendy02さんのマクロはスマートにできていますから、個人的にはこの
マクロを使用したほうが良いと思います。
No.3
- 回答日時:
こんにちは。
#1さんの方式は、数字もアルファベットも全角になってしまうと思います。カタカナのみでないなら可能です。以下は、以前作ったものから、カタカナだけを取り出したマクロです。
Alt + F11 で、VBEditor を開け、ThisDocument をダブルクリックして開けたら、以下を貼り付けてください。Alt +Q で、閉じます。
Alt + F8 で、kana_HankakuZenkaku という文字を見つけたら、クリックしてください。
なお、Excelの関数やWordのコマンドに関しては、コマンドの文字種の変換の[半角 ->全角]では、その範囲を指定する限りは、カタカナの半角濁点・半濁点は、そのまま、前の文字の全角の1文字として合体するはずです。以下のマクロは、それを応用したものです。(Word2000で検査済み)
--------------------------------------------------------------
Sub kana_HankakuZenkaku()
Dim t As Integer
Dim myMsg As String
Dim FChr As String
Dim LChr As String
Selection.HomeKey Unit:=wdStory '文書の先頭に
On Error GoTo Errmsg:
With Selection.Find
.ClearFormatting
.Text = ""
.Replacement.Text = ""
.MatchFuzzy = False
'半角カタカナ
FChr = Chr("&HA6")
LChr = Chr("&HDF")
While .Execute(FindText:="[" & FChr & "-" & LChr & "]{1,}", _
Wrap:=wdFindContinue, MatchWildcards:=True) = True
Selection.Range.CharacterWidth = wdWidthFullWidth
t = t + 1
Wend
Selection.HomeKey Unit:=wdStory '文書の先頭に
If t > 0 Then
myMsg = t & "語、変換しました。"
Else
myMsg = "変換するべき文字はありませんでした。"
End If
MsgBox myMsg, vbInformation
End With
Exit Sub
Errmsg:
MsgBox "エラー!: " & Err.Description, vbExclamation
End Sub
No.2
- 回答日時:
Word2000だと半角カタカタのみの場合、濁点・半濁点は全角にしないで
設定する方法は難しいと思います。
[文字種の変更]を利用すると濁点などが一文字として全角になるので、
置換を活用するにも面倒な手順が多いと思います。
そこで以下のアドインを手に入れ、マクロを使用してはいかが。
さまざまな条件を指定できますし、半角カタカナで濁点・半濁点を文字
単位に戻してくれますから全角にならずに済みます。
McrTool
http://www7.plala.or.jp/hikita/sidea/program/vb/ …
これを手に入れたら、テンプレートをアドインとして指定し、メニュー
にある[ MacroTools ]→[全角半角の変換]→[文字種別指定]で、条件を
指定します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(Microsoft Office) WordやExcelで英数字のみ半角または全角にしたい 6 2022/08/03 08:18
- Excel(エクセル) エクセルシート中の全角英数字を半角に変換したい 4 2022/07/07 13:14
- Visual Basic(VBA) 特定の文字を簡単な操作で半角スペースに変換するか削除したい 2 2022/11/01 10:35
- Access(アクセス) Accessのテキストボックスの入力文字制限 1 2023/01/18 20:43
- Excel(エクセル) capeofdragonと申します Excel2016を使っておりまして 半角又は全角の任意文字列が 2 2022/10/31 13:51
- その他(Microsoft Office) 英数字のみ全角から半角に変換 4 2023/07/28 14:48
- Excel(エクセル) PowerQueryに詳しい方教えてください(Office365) 1 2022/07/24 21:11
- その他(データベース) Accessのクエリで1フィールドの抽出条件設定をNullでなく全角半角含む空白のみの文字列でない文 1 2023/04/24 15:20
- Excel(エクセル) EXCELでの文字・数字入力の基本について教えてください。 2 2023/05/29 23:17
- Visual Basic(VBA) VBA 「,」・空白・カタカナ等の複数条件のマクロ 2 2023/08/23 11:57
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
テプラは半角数字が使えますか?
-
EXCEL95 VLOOKUP関数で半角と全角
-
半角の『°(単位の度)』
-
EXCELの文字列操作で文字数不足...
-
契約書や 公文書・私文書などに...
-
半角の×(かける)は?
-
Excel2016 検索の窓を常時表示...
-
関数を使わずに一括で全角を半...
-
メールアドレスの上ハイフン入...
-
半角スペース
-
℃の半角表示
-
エクセル関数で文字列の中のス...
-
Excel 文字列の中から数字だけ...
-
ビジネスの文書における、数字...
-
【VBA】ファイルパスに半角スペ...
-
エクセルで、JIS関数、ASC関数...
-
ワードへの差し込みで数字一桁...
-
ヘッダー(フッター)の全角・...
-
お名前(姓)」には「カタカナ(...
-
エクセル 全角英文字のみを半...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
テプラは半角数字が使えますか?
-
契約書や 公文書・私文書などに...
-
メールアドレスの上ハイフン入...
-
半角スペース
-
半角の『°(単位の度)』
-
半角の×(かける)は?
-
℃の半角表示
-
EXCELの文字列操作で文字数不足...
-
EXCEL95 VLOOKUP関数で半角と全角
-
関数を使わずに一括で全角を半...
-
エクセル関数で文字列の中のス...
-
【VBA】ファイルパスに半角スペ...
-
半角の漢字の入力方法
-
EXCELで、セル内の半角カ...
-
Excel 文字列の中から数字だけ...
-
ビジネスの文書における、数字...
-
1, (1),(1)の使い分け
-
Excel2016 検索の窓を常時表示...
-
Excel セル内の文字と数字をわ...
-
エクセルで、JIS関数、ASC関数...
おすすめ情報