2018-04-18 フリガナ削除と設定 VBA For Each rng In Selection rng.Characters.PhoneticCharacters = "" Next rng '上記は削除。設定も同様に行う