にぎたま回答ポイント 100pt

【MS-Word ワイルドカード or VBScript.RegExp】

和英混在文を校正しています。チェック対象の文章が、以下のルールに適合しているかを検証する Word 付属のワイルドカード検索か、VBE に記述する VBScript.RegExp を教えてください。
宜しくお願いします。

原則ルール
1. 半角英数・半角記号と全角文字の間には半角スペース 1 つを入れなければならない

ルールの例外
1. 全角のかぎかっこ (「」『』) などと半角英数・半角記号が隣接する際は半角スペースは不要
2. 全角の句読点 (、。) と半角英数・半角記号が隣接する際は半角スペースは不要
3. 半角かっこ (()) と、かっこの内側の全角文字との間には半角スペースは不要

MS-Word のワイルドカード検索か、VBA の VBScript.RegExp を使用した正規表現でこの問題を解決したいです。
行頭と行末 (= 改行) の存在にも注意してください。

宜しくお願いします。

※この質問文自体が、そのルールに沿って書かれていますので参考にしてください。

※ 有料アンケート・ポイント付き質問機能は2023年2月28日に終了しました。

ログインして回答する

ベストアンサー

airplant2008/02/03 11:16:26
満足100pt
Wordのワイルドカードでは、大文字小文字を区別できないようでした。

VBScriptの下記パターンでやってみてください。VBScript.RegExpの知識があるという前提でソースは省略します。

私の知識では、１パスでは少し無理そうなので、２パスで行っています。
```
'１パス目：右側スペースのチェック
pattern1="[\!-\'\)-\~]+[^ \!-\~【】「」『』、。\n]"
' \!-\'\)-\~：ascii順で(を除外した半角文字
' ：　検索処理、置換処理など
'２パス目：左側スペースのチェック
pattern2="[^ \!-\~【】「」『』、。\n][\!-\(\*-\~]+"
' \!-\(\*-\~：ascii順で)を除外した半角文字
' ：　検索処理、置換処理など
```
●備考１：全角かっこ「（）」は、全角文字と全く同じ扱いにしています。角かっこと同じ扱いにしなくていいですか？

●備考２：半角スペース以外が出たときにそこまでの時点の文字とマッチさせています。マッチさせたくないときは、否定先読み「(?! \!-\~・・・)」に変更ください。
スター
- にぎたま 2008/02/07 10:13:35
  
  返信が遅くなりました。
  
  指定の方法でうまいことできました！
  
  いつもありがとうございます。
  
  全角カッコは全角文字と同じ扱いで大丈夫です。
  
  アスキーの順番で指定できるというのがわかって大収穫です。いろいろと応用もできそうです。助かりました。

【MS-Word ワイルドカード or VBScript.RegExp】

ベストアンサー

airplant2008/02/03 11:16:26
満足100pt

にぎたま 2008/02/07 10:13:35

その他の回答

この質問へのコメント

この質問への反応（ブックマークコメント）

質問の情報

この質問のカテゴリ

この質問に含まれるキーワード

人気の質問

メニュー

PC版

【MS-Word ワイルドカード or VBScript.RegExp】

ベストアンサー

airplant2008/02/03 11:16:26 満足100pt

にぎたま 2008/02/07 10:13:35

その他の回答

この質問へのコメント

この質問への反応（ブックマークコメント）

質問の情報

この質問のカテゴリ

この質問に含まれるキーワード

人気の質問

メニュー

PC版

airplant2008/02/03 11:16:26
満足100pt