Outlookの連絡先のフリガナを半角から全角に変換したい

Outlookの連絡先に登録されている氏名のフリガナが全角カタカナと半角カタカナの両方で登録されてしまっています。
これを全角カタカナに統一したいのですが、一つ一つ書きなおすのは大変です。
変換出来るようでしたら、その方法を教えて下さい。

質問者からの補足コメント

• 回答有難うございます。
  うまくいかないので、補足させていただきます。
  
  マクロを使った事がなかったもので、マクロの使い方が合っているかどうかからお聞きしたいと思います。
  
  Outlookのツールバーの「ツール」→「マクロ」→「編集」でVisual Basic Editor が開きますが、そこにコピペし、保存しました。一旦、Visual Basic Editorを閉じます。
  で、変換したい連絡先を指定した状態で、「ツール」→「マクロ」→「マクロ」で、先ほど作成したSub NameConvが有りますので、これを「実行」。
  
  これで、使い方はあっていますか？
  実行しましたが、フリガナは変わっていませんでした。
  
  もし使い方が違っているようでしたら、ご指摘ください。
  
  ちなみに、OSは、Windows7。Microsoft　Outlook　2007を使用しています。
  よろしくお願いいたします。

  No.1の回答に寄せられた補足コメントです。 補足日時：2015/02/14 14:43

• 回答ありがとうございます。
  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
  スペースは省きましたが、上記コードで変換出来ませんでした。どうしたらいいでしょうか？ご教授下さい。

  No.3の回答に寄せられた補足コメントです。 補足日時：2015/02/16 17:59

No.2 ベストアンサー 回答者： bonaron 回答日時： 2015/02/15 23:07

失礼しました。

１行、抜けていました。

　　With MyItem
　　　　.YomiLastName = StrConv(.YomiLastName, vbWide)
　　　　.YomiFirstName = StrConv(.YomiFirstName, vbWide)
　　　　.Save　　　' この行追加
　　End With

No.3 回答者： bonaron 回答日時： 2015/02/15 23:15

> 変換したい連絡先を指定した状態で、「ツール」→「マクロ」→「マクロ」で、先ほど作成したSub NameConvが有りますので、これを「実行」。

問答無用で、すべての連絡先を変換します。
数字やアルファベットが含まれていたら、それも全角になります。

No.1 回答者： bonaron 回答日時： 2015/02/09 18:45

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