サンプルコードでできること スマートアートの文字列を置換します。 コードの説明 TextRange2オブジェクトのReplaceメソッドを用いて置換します。 Set tempRng = rng.Replace(mae, ato, MatchCase:=msoTrue) 「MatchCase:=msoTrue」で大文字と区別を追加しています。 英文など単語全体で検索するときは、「Wholewords:=msoTrue」を追加します。 パラメーターを見る限り、Range.FIndやSelection.Findと違い、ワイルド検索には対応していないようです。 mae = "■" '検索キーワード a…