> 新規ページに、抽出した見出し行のみが並ぶか、あるいは、抽出した見出し行がクリック・ボードにコピーされていて、それを、新規ページにペーストできる、などというのが希望です。 > というのは、長い文章の中から見出し行だけ抜き出し、目次としたいからです。
この件解決しているようですが、(マクロでご希望のことも出来ますが)違うアプロ ーチの方法を書きます。むかし「目次マクロ」というのを作ったことがあります、ほぼ同じ仕様ですが、こちらのものにしました。
proc main dim y, yt, i, Word$[50], w$, sel, yy w$="●" @Redraw=0:@UndoBlock=1 y=@Line : yt=@TopLine @MoveFileTop for i=1 to 50 @FindStringBottom w$ if @@SearchFound=FALSE then exit for end if Word$[i]=trim$(str$(@Line))+chr$(9)+@Text$(@Line) next @Redraw=1:@UndoBlock=0 @Line=y : @TopLine=yt
sel = popupmenu(Word$) if sel then yy=yt-y y=val(left$(Word$[sel], instr(Word$[sel], chr$(9))-1)) if y>0 then @Line=y : @TopLine=y+yy end if end if end proc
この掲示板はあまり長く書けないので、このマクロは、見出し文字ということでな く、サンプルでは、●のある行は、すべて、抜き出して、ポップアップメニューに しています。そこをクリックすればそこに飛びます。 Word$[i]という配列変数をopen構文で任意のファイルに書き出せば、お望みのこと が出来ます。 w$の値を変えれば、見出し文字は何でも可能になります。 あるいは、選択した文字列をポップアップメニューにすることも出来ます。 見出し文字の選択をポップアップメニューでも出来るし、独自のツールバーを作る ことでも可能です。 一応、これはサンプルマクロということで、いろいろ改造されてかまいません。
マクロは分からない、ということであれば私は、マクロのMLを持っているので、そ こで質問されてください。 無料です。 どなたでも入れます。
■マクロのつくりかた(QX編) http://www.freeml.com/info/qxenjoy_3@freeml.com |