'########################################################## ' makelink (連番リンクタグ作成) ' TjSoft-56 2007.11.11 Taiju ' 【用途】 「真魚」エディタから使う。 ' 指定した数までの連番のリンクを作成する。 '########################################################## str = Editor.GetSelText iNum = InputBox("リンクの数は?") For i = 1 To iNum sOrgDegree = Len(iNum) sDegree = Len(i) sNum = String(sOrgDegree - sDegree, "0") & i sTmpStr = sTmpStr & "  " & sNum & " " & vbCr Next str = Editor.SetSelText(sTmpStr)