Macro/投稿/3

  0
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21
 22
 23
 24
 25
 26
 27
 28
 29
 30
 31
 32
 33
 34
 35
 36
 37
 38
 39
 40
 41
 42
 43
 44

' DDWin.vbs
' DDWinで現在位置の単語を検索
' 秀丸マクロの移植版
' Oct. 21, 2002 genta
 
Option Explicit
DIM word
 
word = Editor.GetSelectedString( 0 )
 
If word <> "" then 
        ddwin_search "外国語", word
end if
 
sub ddwin_search( group, word )
        If right(word,3) = "ies" then
                word=left(word,len(word)-3) & "y"
        ElseIf right(word,4) = "ness" then
                word=left(word,len(word)-4) & "*"
        ElseIf right(word,3) = "ing" then
                word=left(word,len(word)-3) & "*"
        ElseIf right(word,3) = "est" then
                word=left(word,len(word)-3) & "*"
        ElseIf right(word,2) = "es" then
                word=left(word,len(word)-2) & "*"
        ElseIf right(word,4) = "pped" then
                word=left(word,len(word)-4) & "p*"
        ElseIf right(word,4) = "mmed" then
                word=left(word,len(word)-4) & "m*"
        ElseIf right(word,4) = "tted" then
                word=left(word,len(word)-4) & "t*"
        ElseIf right(word,4) = "gged" then
                word=left(word,len(word)-4) & "g*"
        ElseIf right(word,3) = "ied" then
                word=left(word,len(word)-3) & "y*"
        ElseIf right(word,2) = "ed" then
                word=left(word,len(word)-2) & "*"
        ElseIf right(word,2) = "er" then
                word=left(word,len(word)-2) & "*"
        ElseIf right(word,1) = "s" then
                word=left(word,len(word)-1) & "*"
        end if
        Editor.ExecCommand  """C:\Program Files\DDwin\ddwin.exe"" ,2," & group & ",g1," & word , "0"
        ''Editor.ExecCommand( "C:\\Program Files\\DDwin\\ddwin.exe ,2," & group & ",g1," & word )
end sub