Mac環境なのでVBでどう書くかは分からないのですが、JavaScriptならば以下のようにすればできると思います。
//検索置換設定の退避
var findPreferencesOld = app.findPreferences.properties;
var changePreferencesOld = app.changePreferences.properties;
app.findPreferences = 1851876449; //NothingEnum.nothing;
app.changePreferences = 1851876449; //NothingEnum.nothing;
var range = app.selection[0].parentStory; //検索範囲は文字キャレットのある親ストーリー
app.findPreferences.findText = "●●"; //検索文字列
var Hit_Texts = range.search(); //検索実行
for (var i = Hit_Texts.length-1; i>= 0; i--){
try {
var pindex = Hit_Texts[i].paragraphs[0].characters[0].index;//パラグラフの先頭文字のindex
Hit_Texts[i].parent.characters.itemByRange(pindex,Hit_Texts[i].characters[-1].in dex).remove();//文字列の削除
} catch(e) {}
}
//検索置換設定の復帰
app.findPreferences.properties = findPreferencesOld;
app.changePreferences.properties = changePreferencesOld;
if (app.findPreferences.kerningMethod=="None") app.findPreferences.kerningMethod = 1851876449;
if (app.changePreferences.kerningMethod=="None") app.changePreferences.kerningMethod = 1851876449;
