Differences

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

--- macro:grep-here [2021/03/08 19:17] – [ここで Grep マクロ] kabuneko
+++ macro:grep-here [2021/03/08 22:30] (current) – [ここで Grep マクロ] kabuneko
@@ 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>