Hi all
I am trying to copy the contents of the editing window that is currently
active (i.e. that I am editing) as text with its RTF formatting code. What
I have got (cribbed) so far is this:
SET LIBRARY TO (HOME()+"Foxtools.FLL")
nWHAND =_EDOPENFIL("TEST.PRG", 1)
nEDstart = _EDSKIPLIN(m.nWHAND,0,0)
nEDend = _EDSKIPLIN(m.nWHAND,0,10)
= _EDSELECT(m.nWHAND, m.nEDstart, m.nEDend)
= _EDCOPY(m.nWHAND)
= _EDCLOSEFI(m.nWHAND, 0)
This works fine insofar as I can paste the code into Word and see that the
code highlighting is correct. But there are a couple of issues I haven't
yet been able to resolve:
1. I want it to work with the current/open editing window
2. I want to work with the underlying RTF, i.e. the text together with
the RTF formatting tags
I expect to invoke the code to do this via a hotkey so that the window that
I am working on will be the active window. Any help or suggestions would be
much appreciated. Many thanks.
Paul Newton
--- StripMime Report -- processed MIME parts ---
multipart/alternative
text/plain (text body -- kept)
text/html
---