No.2ベストアンサー
- 回答日時:
失礼しました。
1行、抜けていました。
With MyItem
.YomiLastName = StrConv(.YomiLastName, vbWide)
.YomiFirstName = StrConv(.YomiFirstName, vbWide)
.Save ' この行追加
End With
No.3
- 回答日時:
> 変換したい連絡先を指定した状態で、「ツール」→「マクロ」→「マクロ」で、先ほど作成したSub NameConvが有りますので、これを「実行」。
問答無用で、すべての連絡先を変換します。
数字やアルファベットが含まれていたら、それも全角になります。
No.1
- 回答日時:
VBA になりますが。
Sub NameConv()
Dim MyNS As NameSpace
Dim MyFolder As Folder
Dim MyItem As Object
Set MyNS = Application.Session
Set MyFolder = MyNS.GetDefaultFolder(olFolderContacts)
For Each MyItem In MyFolder.Items
With MyItem
.YomiLastName = StrConv(.YomiLastName, vbWide)
.YomiFirstName = StrConv(.YomiFirstName, vbWide)
End With
Next
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) エクセルシート中の全角英数字を半角に変換したい 4 2022/07/07 13:14
- その他(Microsoft Office) WordやExcelで英数字のみ半角または全角にしたい 6 2022/08/03 08:18
- Access(アクセス) Accessのテキストボックスの入力文字制限 1 2023/01/18 20:43
- その他(Microsoft Office) 英数字のみ全角から半角に変換 4 2023/07/28 14:48
- Mac OS Macの変換ですが、一発で半角英字に変換する方法は無いですか? 3 2022/04/10 22:19
- Excel(エクセル) エクセルでのデータの統一に関して リストを作成する際、元データをコピペでリストに転記しており、元デー 2 2022/08/31 15:33
- マウス・キーボード 何故、ローマ字や英語を全角で打つ? 5 2022/05/15 09:36
- Excel(エクセル) PowerQueryに詳しい方教えてください(Office365) 1 2022/07/24 21:11
- Excel(エクセル) EXCELでの文字・数字入力の基本について教えてください。 2 2023/05/29 23:17
- その他(ソフトウェア) ソースネクストアプリをインストールし、製品登録で半角英数字が入力できない 5 2022/07/03 22:44
関連するカテゴリからQ&Aを探す
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
エクセルシート中の全角英数字...
-
長音「ー」とマイナス「-」の...
-
全角文字を PDFで変換できませ...
-
更新クエリで半角カタカナのみ...
-
UTF-8 と SHIFT-JIS について
-
ある範囲の中で指定の文字列が...
-
VBAでActiveDirectoryのユーザ...
-
VB.NETで DataRow()を利用して...
-
i=cells(Rows.Count, 1)とi=cel...
-
マクロ 特定のセル値のみクリ...
-
ExcelVBAを使って、値...
-
【Excel VBA】指定行以降をクリ...
-
Excelで指定した日付から過去の...
-
テキストボックスのvalueとtext...
-
TODAY()で設定したセルの日付...
-
ListView 項目の選択/選択解除...
-
文字列にアルファベットが何文...
-
VBA初心者です。結合セルを保持...
-
EXCELのVBA-フィルタ抽出後の...
-
VBA:小数点以下の数字を取得で...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
長音「ー」とマイナス「-」の...
-
ハイフン(-)が長音(ー)
-
エクセルシート中の全角英数字...
-
更新クエリで半角カタカナのみ...
-
UTF-8 と SHIFT-JIS について
-
「ー」←これは伸ばし棒ですか?...
-
特定の列の値を、ひらがな・漢...
-
エクセル2016 条件付き書式で全...
-
Excelで文字の長さを揃えるには
-
アクセスのLENBとエクセルのLEN...
-
オリジナルCD の CD TEXT作成...
-
Excelでカタカナ文字列を...
-
Outlookの連絡先のフリガナを半...
-
Wordの日本語全角文字・半角カ...
-
グローバルなCD-TEXT?
-
ExcelVBAを使って、値...
-
VB.NETで DataRow()を利用して...
-
特定のセルが空白だったら、そ...
-
【Excel VBA】指定行以降をクリ...
-
i=cells(Rows.Count, 1)とi=cel...
おすすめ情報
回答有難うございます。
うまくいかないので、補足させていただきます。
マクロを使った事がなかったもので、マクロの使い方が合っているかどうかからお聞きしたいと思います。
Outlookのツールバーの「ツール」→「マクロ」→「編集」でVisual Basic Editor が開きますが、そこにコピペし、保存しました。一旦、Visual Basic Editorを閉じます。
で、変換したい連絡先を指定した状態で、「ツール」→「マクロ」→「マクロ」で、先ほど作成したSub NameConvが有りますので、これを「実行」。
これで、使い方はあっていますか?
実行しましたが、フリガナは変わっていませんでした。
もし使い方が違っているようでしたら、ご指摘ください。
ちなみに、OSは、Windows7。Microsoft Outlook 2007を使用しています。
よろしくお願いいたします。
回答ありがとうございます。
Sub NameConv()
Dim MyNS As NameSpace
Dim MyFolder As Folder
Dim MyItem As Object
Set MyNS = Application.Session
Set MyFolder = MyNS.GetDefaultFolder(olFolderContacts)
For Each MyItem In MyFolder.Items
With MyItem
.YomiLastName = StrConv(.YomiLastName, vbWide)
.YomiFirstName = StrConv(.YomiFirstName, vbWide)
.Save
End With
Next
End Sub
スペースは省きましたが、上記コードで変換出来ませんでした。どうしたらいいでしょうか?ご教授下さい。