| |
h-tom さま
ご連絡ありがとうございます。
次のようなコードを試してみましたが、やはりダメでした。
1 #objwordApp = createobject("Word.Application");
2 #objSelection = getpropobj(#objwordApp, "Selection");
3 #objSelectionFind = getpropobj(#objSelection, "Find");
4 setpropnum #objSelectionFind, "Wrap", 0;
5 setpropnum #objSelectionFind, "MatchWildcards", 1;
6 setpropnum #objSelectionFind, "MatchAllWordForms", 0;
7 setpropnum #objSelectionFind, "MatchFuzzy", 0;
8 setpropnum #objSelectionFind, "MatchSoundsLike", 0;
9 callmethod #objSelectionFind, "Execute", "<p/" + "*" + "/p>";
10 #Found = getpropnum(#objSelectionFind, "Found");
①5行目で、"MatchWildcards", 1 にすると正否は 0 です。
"MatchWildcards", 0 にすると正否は 1。
②9行目は、正否はいつも 1 です。
結局、"MatchWildcards = 1" に指定できないために、うまく動作しないようです。
ちなみに、「WORD 2000」を使っています。
>こちらでは、VBS、秀丸マクロでも、ワイルドカードを有効にした検索は、正常に行
>われましたよ。
h-tom さんの場合は、何が違うのでしょう？
WORDのバージョン？
|
|