Differences

This shows you the differences between two versions of the page.

--- macro:grep-here [2021/03/08 18:50] – [参考情報] kabuneko
+++ macro:grep-here [2021/03/08 22:30] (current) – [ここで Grep マクロ] kabuneko
@@ Line 4: / Line 4: @@
   * その手間をはぶいて、現在開いているファイルがあるフォルダで Grep をかけるマクロを書いてみました。
   * New QX の Grep ダイアログでは、サブフォルダも検索対象にするには、パス指定の末尾に「￥」（半角の Yen マーク）をつけます。
-  * このマクロでは検索対象のファイル種別を「*.*」としています。ダイアログを表示しないので変更できません。
+  * このマクロでは検索対象のファイル種別を「*.*」としています。**ダイアログを表示しない** のでマクロ起動後に変更できません。
-  * Grep ダイアログにあるさまざまなオプションについては、何も設定していません。
+  * Grep ダイアログにあるさまざまなオプションについては、「GrepDialog.InitializeVar」（このページ下部の「参考情報」を参照してください）の設定になります。
   * Grep 実行時にオプションの指定が必要であれば、目的のオプションについての記述をマクロに追加します。
@@ Line 13: / Line 13: @@
   * Grep をかけたいパス（フォルダ）にあるファイルを開いておく。
   * マクロ実行。
+    * サブフォルダを検索対象とするかどうかで、マクロを使い分けます。検索パスの末尾の「￥」を入れるかどうか、それだけの違いです。
-==== マクロ本体 ====
+==== ここで Grep マクロ ====
+<code vbscript>
+'カレントファイルのパスで Grep
+'検索文字列をあらかじめクリップボードにコピーして実行
+function main
+    GrepDialog.InitializeVar
+    dim cropPos, fileFullName, filePath
+    fileFullName = Application.ActiveDocument.FullName
+    cropPos = InstrRev(fileFullName, "\")
+    filePath = Left(fileFullName, cropPos-1)
+    GrepExec Clipboard, filepath+" *.*"
+end function
+</code>
+==== ここで Grep（サブフォルダも検索）マクロ ====
+<code vbscript>
+'カレントファイルのパスで Grep (サブフォルダも)
+'検索文字列をあらかじめクリップボードにコピーして実行
+function main
+    GrepDialog.InitializeVar
+    dim cropPos, fileFullName, filePath
+    fileFullName = Application.ActiveDocument.FullName
+    cropPos = InstrRev(fileFullName, "\")
+    filePath = Left(fileFullName, cropPos)
+    GrepExec Clipboard, filepath+" *.*"
+end function
+</code>
 ==== 参考情報 ====
-  * New QX 本体に付属の newqx.txt によると、「GrepDialog.InitializeVar」は次の設定を実行するようです。
+  * New QX 本体に付属の newqx.txt の「▲GrepDialog.InitializeVarのサンプル」のセクションによると、「GrepDialog.InitializeVar」は次の設定を実行するようです。
   * 「regexp」（正規表現）はオフになります。
+  * 各項目の説明は同じく newqx.txt の「▲GREP検索」のセクションにあります。
 <code>