Macro/投稿/3

http://sakura.qp.land.to/?Macro%2F%C5%EA%B9%C6%2F3


Top > Macro > 投稿 > 3

辞書引きソフトDDをマクロ

メッセージ

  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


URL B I U SIZE Black Maroon Green Olive Navy Purple Teal Gray Silver Red Lime Yellow Blue Fuchsia Aqua White

リロード   新規 編集 凍結 差分 添付 複製 名前変更   ホーム 一覧 単語検索 最終更新 バックアップ リンク元   ヘルプ   最終更新のRSS
Last-modified: 2006-07-29 (土) 23:28:28 (4405d)