MkFurigana

　カーソル位置より前方のデリミタで挟まれたふりがな文字を探して、ふりがな設定を行う。
　データは、以下のように設定する。
　　対象文字の前方\漢字\るび\対象文字の後方
　カーソルを「対象文字の後方」のどこかにおいて、このマクロを実行すると、「漢字」のうえに「るび」というふりがなが設定される。

---

//**************************************************
//MkFurigana
//Copyright by Albatross (Yasutoshi Ito) 1998
//**************************************************
//Version 0.00:98/10/25
//**************************************************
Application (WordPerfect; "WordPerfect"; Default!; "JP")
if (?DocBlank())
　quit
endif
global Delimiter:="\"
backDelim(0)
DeleteCharPrevious ()
backDelim(1)
FuriStr:=?SelectedText()
Cut()
DeleteCharPrevious ()
backDelim(1)
AttachedText (TextString: FuriStr)
backDelim(0)
DeleteCharPrevious ()

//*************************
//Procedure backDelim
//*************************
Procedure backDelim(SelFlag)
//SelFlag=0:only move
//SelFlag!=0:with Select
　while(?leftchar()!=Delimiter)
　　if(SelFlag=0)
　　　PosCharPrevious()
　　else
　　　SelectCharPrevious ()
　　endif
　　LCode := ?LeftCode()
　　LChar := ?LeftChar()
　　LCharN := CtoN(LChar)
　　if (LCode = 0 and LCharN=0)
　　　quit()
　　endif
　endwhile
EndProc

---

＜＜戻る