OpenOffice.org Forum at OOoForum.orgThe OpenOffice.org Forum
 
 [Home]   [FAQ]   [Search]   [Memberlist]   [Usergroups]   [Register
 [Profile]   [Log in to check your private messages]   [Log in

Special charachters/funktions in find/change dialog

 
Post new topic   Reply to topic    OOoForum.org Forum Index -> OpenOffice.org Writer
View previous topic :: View next topic  
Author Message
Goff
Guest





PostPosted: Fri May 07, 2004 11:27 am    Post subject: Special charachters/funktions in find/change dialog Reply with quote

Hi! I'm absolutely new to OO/SO and trying to switch from MSword. The first (sure, from many others) problem is a luck of list of special characters in find / change dialog, like paragraf or tabulator. For example, to make a plain text looking nice i need to remoove all paragraph breakes at the end of every string and make paragraph breakes instead of 5 spaces or tabulator at the beginning of string. With MS word it goes this way: change all <paragraph break><space><space><space><space><space> with <paragraph break><paragraph break>, all <paragraph break><tabulator> with <paragraf break><paragrapf break>, <paragraph break><paragraph break><paragraph break> with <paragraph break><paragraph break> and, finally, change <paragraph break> with just nothing (removes all single paragrapf breakes) . Any idea how is it possible to realise such things in OO? Thank you.
Back to top
Goff
Guest





PostPosted: Fri May 07, 2004 11:40 am    Post subject: Corrections Reply with quote

At first - sorry, a thread before (with similar problem) appeared at the same time - good sign for OO team, what features are very welcome Smile And next - of course, i did mistace in past posting - to remove all single paragraph breakes is neccesary to change all doubled paragraph breakes with smth like %%%%%, then all paragraph breakes with nothing and, finallly, all %%%%% with paragraph break. But actually all this don't solve described a problem, anyy ideas still welcome!
Back to top
JohnV
Administrator
Administrator


Joined: 07 Mar 2003
Posts: 9183
Location: Lexinton, Kentucky, USA

PostPosted: Fri May 07, 2004 12:25 pm    Post subject: Reply with quote

This macro should do what your want:
http://www.oooforum.org/forum/viewtopic.php?t=6429

If you are absolutely new to OO you will find a sticky post at the top of the Code Snippets section (where the macro is) that will tell you how to install & run a macro.
Back to top
View user's profile Send private message
Iannz
OOo Advocate
OOo Advocate


Joined: 14 Feb 2004
Posts: 494
Location: Christchurch, New Zealand

PostPosted: Fri May 07, 2004 3:10 pm    Post subject: Reply with quote

Another macro to help with regular expressions in find and replace is available from:
http://homepages.paradise.net.nz/hillview/OOo/
_________________
Cheers, Ian

http://wiki.services.openoffice.org/wiki/Extensions_development_basic a wiki about writing OpenOffice.org extensions.
Back to top
View user's profile Send private message
Joel Hammer
General User
General User


Joined: 04 Feb 2004
Posts: 48

PostPosted: Fri May 07, 2004 7:11 pm    Post subject: Reply with quote

You can specify regular expressions in the find and replace function.

Joel
Back to top
View user's profile Send private message Send e-mail
Goff
Guest





PostPosted: Sat May 08, 2004 3:26 am    Post subject: Thanks Reply with quote

Thank you, regular expressions - it is what i was looking for... The style they work is a little bit strange comparing to MS Word. But i got what i wished!
I don't want to look like someone telling - "I worked with this and this, and now it doesn't work, so that programm was good and this is not becouse it doesn't work as i used to."
My compliments to all people who worked on OO - it is just great! But i really think, the way how this regular expressions are realised in MS Word is significally more comfortable and easy. I don't know, may be it is very complicated to add a list of regular expressions in this dialog, hide a check box "regular expressions" ('cose it can be automated on, when smth from this list will be used) and may be it is really complicated to find easier form for this expressions, like ^p for paragraph break or ^t for tabulator, but it will save a lot of time for peope like me, switching from MS Word.
And - hurry up, please, mb MS is already patenting drop down list with regular expressions!Very Happy
Back to top
JohnV
Administrator
Administrator


Joined: 07 Mar 2003
Posts: 9183
Location: Lexinton, Kentucky, USA

PostPosted: Sat May 08, 2004 8:28 am    Post subject: Reply with quote

Joel,

Yes, open Find & Replace and you will see a Regular Expression check box then, while still in Find and Replace, click on Help and look for the link to, "List of Regular Expressions".
Back to top
View user's profile Send private message
Iannz
OOo Advocate
OOo Advocate


Joined: 14 Feb 2004
Posts: 494
Location: Christchurch, New Zealand

PostPosted: Sat May 08, 2004 3:11 pm    Post subject: Reply with quote

If you have a look at the macro I referred to above it has a dialog that allows you to select regular expressions. It can work with multiple selections in a document. It allows for tables. The regular expressions can cover more than just one paragraph.
I really would like to get feedback on it - so please have a look.
The url again is: http://homepages.paradise.net.nz/hillview/OOo/
To quote the only person that I have recieved feedback from:
Quote:
I have been using SO 5.2 and the OOo versions since 2001 and have had to struggle with regexps ever since. Of course I got a lot of help from well-trained experts on the forums and finally managed to modify some of the ready-made macros but your utility offers finally a general solution.

_________________
Cheers, Ian

http://wiki.services.openoffice.org/wiki/Extensions_development_basic a wiki about writing OpenOffice.org extensions.
Back to top
View user's profile Send private message
Joel Hammer
General User
General User


Joined: 04 Feb 2004
Posts: 48

PostPosted: Sun May 09, 2004 12:16 pm    Post subject: Reply with quote

One reason these regular expressions may look odd to a windows user is because they seem to be straight from the usual list of Unix regular expressions.

Joel
Back to top
View user's profile Send private message Send e-mail
esperantisto
Super User
Super User


Joined: 26 Dec 2003
Posts: 779
Location: Belarus

PostPosted: Sun May 09, 2004 9:37 pm    Post subject: Reply with quote

But I think, StarOffice was originally developed for Windows, not for Unix. Why did they ust that weird style? Sometimes it's good to just copycat Microsoft Smile
Back to top
View user's profile Send private message
lpter
Newbie
Newbie


Joined: 11 Oct 2007
Posts: 1
Location: Hungary

PostPosted: Thu Oct 11, 2007 1:40 pm    Post subject: Paragraph elimination Reply with quote

I was glad to find this topic, but after I having read all responses I haven't got an answer: how to eliminate paragraph (sings).
Even OpenOffice documentation is not clear, and if you just search for ^$ (empty paragraphs regular expression sign) or $ (paragraph end) it can't find any characters.
Solution is to click on "Replace all" immediately:
using Find: "^$" Replace: (nothing or any characters) to remove double pharagraphs (except the last) and
Find: "$" Replace: (nothing or any characters e.g. comma, space ; etc.)
to replace paragraphs for notation marks i.e. making one paragraph from many.
Back to top
View user's profile Send private message
Weatherlawyer
OOo Enthusiast
OOo Enthusiast


Joined: 28 Feb 2006
Posts: 154
Location: England

PostPosted: Sat Oct 13, 2007 6:34 am    Post subject: Reply with quote

JohnV wrote:
This macro should do what your want:
http://www.oooforum.org/forum/viewtopic.php?t=6429

If you are absolutely new to OO you will find a sticky post at the top of the Code Snippets section (where the macro is) that will tell you how to install & run a macro.



GeEffiing C


Code:
'Version 2.2 5-6-06 John Vigor
'Converts ASCII text files, or selected text within them, by stripping out excess
'paragraph breaks. Works with items copied & pasted from the Web that contain line
'breaks such as a message in these forums.
'WARNING - Anything stored on the Clipboard will be overwritten. A copy of your
'original file will not be saved to the Clipboard if a file greater then 60K
'characters or selected text of any size and you are responsible for otherwise
'backing it up. On the other hand, your original file will not be changed unless you
'save the macro results and overwrite the original but this assumes a saved file.
'Sample processing times on a 770 MHz machine in Pages/Seconds format:
' 10/4, 20/7, 40/16, 80/34, 160/81 (1.35 Min.).
'Hint for long documents - TURN OFF AUTO-SPELLCHECKING. This will save time.
'You can control what items the program asks you about and what happens if you choose
'not to be asked about an item by editing the variables below. These variables are
'ignored if you run the macro on selected text so if you customize them and need to
'be asked about items for a particular file then simply select the entire file with
'Ctrl+A before running the macro.
'You should become familiar with how the program works before you attempt to customize
'it. It works differently if the file is less or more than 60K and when processing a
'selection.
'
Sub ASCII_Formatter_StartHere
'VARIABLES YOU CAN CHANGE.
AskShortParagraphs = True 'Show the query about keeping short paragraphs.
'Default answer if AskShortParagraphs is False.
KeepShortParagraphs = True 'HIGHLY recommended and the faster of the two methods. I
'only maintain the other method because it's needed for one option.
'--
AskShortParaLength = True 'Show a chance to adjust the program's estimate of what should
'be considered a short paragraph that will kept.
ShortDef = 20 'The minimum number of characters short of the right margin that a line
'must end to be a short paragraph. The paragraph break at the end of any short paragraph
'will be maintained.
'--
AskViewOptions = True 'Show the query about end of program Options.
'Default, if AskViewOptions is False.
GoToOptions = True 'If True the Option variables below will take control. They will
'also control if AskViewOptions is True and you choose to go to the Options.
'--
'The following values control what Options are displayed following initial file processing:
Show1stOptionSet = True 'Show the first set of Options, which are Indent All Paragraphs
'and Reduce Paragraph Spacing.
'Defaults, if Show1stOptionSet is False.
O1_1 = False 'Indent all paragraphs.
O1_2 = False 'Reduce paragraph spacing.
AskMaxParaSpacing = True 'Ask for the maximum number of blank "lines" between paragraphs.
O1_2_1 = 1 'Default, if AskMaxParaSpacing is False.
Show2ndOptionSet = True 'Options are Remove Excess Interior Spaces, Change Spaced
'Indents to Tabs and Justify All Paragraphs.
'Defaults, if Show2ndOptionset is False.
O2_1 = False 'Remove excess interior spaces.
O2_2 = False 'Change spaced indents to tabs.
O2_3 = False 'Justify text.
'--
'The following control aspects of full file, selection and/or Option processing and
'are not ignored if you process a selection:
ShowBackUpWarning = True 'Show warning that file not copied to Clipboard if over 60K.
ShowFinished = True 'Show the finished message.
PageBite = 10 'Number of pages processed at a time for selected text or a file over 60K
'characters. Seems pretty good but I haven't seriously tried to optimize it.
ViewBegin = True 'The cursor and your view are taken to the beginning of the document
'when macro ends. "False" will leave you at the end.
StripHyphens = True 'Assumes hyphens located at the right margin are editorial and do
'not seperate true hyphenated words like "half-dollar".
CheckForcedLeftMargin = True 'A VERY quick routine if spaces imitating a left margin
'don't exist. Or it will delete such a margin if they do (known to work for my version of
'ScanSoft's OCR software - the 1st line of the file will contain only a series of spaces).
StripIndents = "0" 'This controls what happens during initial file processing. The default
'value is recommended. The default ("0") is to leave all tabbed or spaced paragraph indents,
'"1" will strip spaced indents, "2" will strip tabbed ones and "3" will strip both kinds.
'If you run the macro on selected text and don't choose to go to the Options then you
'will also be asked about this. One use for this is to deal with paragraphs offset, as
'opposed to just 1st line indented, from the left margin. Normal processing will leave
'all "lines" of such paragraphs indented and followed by paragraph breaks. Stripping
'out the indents will convert these to regular paragraphs which can be edited normally
'in Writer. Running the macro on selected text after normal processing is a personal
'favorite of mine because I often scan documents with offsets which I need to edit.
MarkIt = True 'Insert the "MarkWith" character as the last character of the file to
'indicate it has been previouly processed. Allows you to run the macro again and go
'directly to the other Options without wading through the full initial file processing
'again. I do not recommend changing as it controls how the program works on a 2nd run.
MarkWith = Chr(160) 'A nonbreaking space in most fonts, which isn't seen on printing.
Override60K = False 'Setting this to True may significantly slow runtime on large files
'or selections but no seperate processing document will be used if you don't like this.
'.....................................................................................
'DO NOT EDIT BELOW HERE UNLESS YOU KNOW WHAT YOU ARE DOING.
lTime = Timer : RunTime = 0 : Skip = false : Over60K = false : ProcSel = false
PrevProc = false : IsSelect = false : ASPL = AskShortParaLength : LastSection = False
thisDoc = thisComponent : oDoc = thisDoc 'oDoc may change.
thisVC = thisDoc.CurrentController.getViewCursor : oVC = thisVC 'oVC may change.
thisText = thisDoc.Text
MarkSel = thisDoc.Text.createTextCursorByRange(thisVC)'Mark any selection.
thisFrame = thisDoc.CurrentController.getFrame()
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
FandR = thisDoc.createReplaceDescriptor() 'Find & Replace initial set up.
FandR.searchRegularExpression = true 'Use regular expressions.
If NOT thisVC.isCollapsed then IsSelect = true
If IsSelect then
a$ = "Process selected text only?"& Chr(13) & Chr(13) &"Cancel to Quit."
RunTime = RunTime + (Timer - lTime)
iAns = MsgBox(a$,3,"Text in this file has been selected.")
lTime = Timer : If iAns = 2 then End
If iAns = 6 then ProcSel = true
EndIf
If ProcSel then 'Tests for over 60K.
If Len(MarkSel.String) > 60000 OR Len(MarkSel.String) = 0 then Over60K = true
ELSEIf thisDoc.characterCount > 60000 then Over60K = true
EndIF
If Override60K then Over60K = false
If NOT Over60K then LastSection = true
If Over60K AND NOT ProcSel then MarkSel.gotoStart(false) : MarkSel.gotoEnd(true)
thisTC = thisDoc.Text.createTextCursor : thisTC.gotoEnd(false)
thisTC.goLeft(1,true) 'Get the last character. If a binding space
'then file was previously processed. Process or go to Options?
IF thisTC.String = MarkWith then 'Was file previouly processed?
PrevProc = True 'Previously processed.
Skip = SkipToOptions(Show1stOptionSet,Show2ndOptionSet)
EndIf
'++++++++++++++++++++++++++ All basic information gathered, now control program flow.
Select Case Skip
Case True 'Go directly to the options.
Select Case ProcSel 'Do we need to deal with selected text?
Case False : BackUp(thisFrame,dispatcher)
RunOptions(Show1stOptionSet,Show2ndOptionSet,FandR)
Case True : NoBackUpWarning(ShowBackUpWarning)
SetUpSelection(thisFrame,thatFrame,"Copy",dispatcher,MarkSel,IsSelect,Skip)
RunOptions(Show1stOptionSet,Show2ndOptionSet,FandR)
FinishSelection(thatFrame,MarkSel,FandR,dispatcher,MarkSel,thisVC)
End Select
Case False 'Going to do the regular file processing.
Select Case ProcSel 'Do we need to deal selected text?
Case True : NoBackUpWarning(ShowBackUpWarning)
AskShortParas(AskShortParagraphs,ShortDef,thisTC,ASPL)
AskIndents() : If CheckForcedLeftMargin then ForcedLeftMargin(thisTC,FandR)
SetUpSelection(thisFrame,thatFrame,"Copy",dispatcher,MarkSel,IsSelect,Skip)
If Over60K then
ProcessOver60K(FandR,thisVC,thisDoc,dispatcher,MarkSel,PageBite)
Else RunMainRoutines(FandR)
FinishSelection(thatFrame,MarkSel,FandR,dispatcher,MarkSel,thisVC)
EndIf
oDoc = thisDoc
AskRunOptions(AskViewOptions,Show1stOptionSet,Show2ndOptionSet,FandR)
Case False 'Normally this would be the 1st time entire file is processed.
'Won't ask about indents because most users won't care.
IF Over60K then NoBackUpWarning(ShowBackUpWarning)
If NOT Over60K then BackUp(thisFrame,dispatcher)
AskShortParas(AskShortParagraphs,ShortDef,thisTC,ASPL)
If CheckForcedLeftMargin then ForcedLeftMargin(thisTC,FandR)
If Over60K then
SetUpSelection(thisFrame,thatFrame,"Copy",dispatcher,MarkSel,IsSelect,Skip)
ProcessOver60K(FandR,thisVC,thisDoc,dispatcher,MarkSel,PageBite)
oDoc = thisDoc
Else
RunMainRoutines(FandR)
EndIf
AskRunOptions(AskViewOptions,Show1stOptionSet,Show2ndOptionSet,FandR)
End Select
End Select
'++++++++++++++++++++++++++++++
thisVC.gotoEnd(False)
If NOT PrevProc then
thisText.insertString(thisVC,MarkWith,False)
EndIf
EndMessage(ShowFinished,MarkIt)
If ViewBegin then thisVC.gotoStart(false)
End Sub

Private lTime, KeepShortParagraphs, oVC, StripHyphens, LastSection
Private oDoc, RunTime, Over60K, thisFrame, thatFrame, thisVC, PrevProc
Private StripIndents, jstify, dispatcher, ShortPara, ProcSel
Private O1_1, O1_2, O1_2_1 ,O2_1, O2_2, O2_3, AskMaxParaSpacing, GoToOptions

Function SkipToOptions(Show1stOptionSet,Show2ndOptionSet)
a$ = "Do you want to skip directly to the end of program Options?"
b$ = Chr(13) & "Cancel to quit." : RunTime = RunTime + (Timer - lTime)
iAns = MsgBox(a$ & b$,3,"This file has been previously processed.")
lTime = Timer : If iAns = 2 then End
If iAns = 7 then
SkipToOptions() = false
Else Show1stOptionSet = true : Show2ndOptionSet = true : SkipToOptions() = true
EndIf
End Function

Sub CopyOrCutIt(whichFrame,doWhich,dispatcher)
dispatcher.executeDispatch(whichFrame,".uno:" & doWhich,"",0,Array())
End Sub

Sub PasteIt(whichFrame,dispatcher)
dispatcher.executeDispatch(whichFrame,".uno:Paste","",0,Array())
End Sub

Sub BackUp(thisFrame,dispatcher) 'Back up file to clipboard.
dispatcher.executeDispatch(thisFrame,".uno:SelectAll","",0,Array())
CopyOrCutIt(thisFrame,"Copy",dispatcher)
End Sub

Sub NoBackupWarning(ShowBackUpWarning)
If NOT ShowBackUpWarning then Exit Sub
a$ = "Because you are processing selected text or the file contains more than 60K "
a$ = a$ & "characters no backup copy of your file will be stored to the clipboard!"
a$ = a$ & " Optional > Auto-spellcheck should be off." & Chr(13)
b$= "DO YOU HAVE THIS FILE BACKED UP? ('Yes' will continue - 'No' will abort.)"
c$ = String(15," ") & "NO BACKUP!" : RunTime = RunTime + (Timer - lTime)
iAns = MsgBox (a$ & b$,308,c$ & c$ & c$) : lTime = Timer
If iAns = 7 then End
End Sub

Sub SetUpSelection(thisFrame,thatFrame,doWhat,dispatcher,MarkSel,IsSelect,Skip)
oDoc = StarDesktop.loadComponentFromURL("private:factory/swriter","_blank",0,Array())
thatFrame = oDoc.CurrentController.Frame 'Get new doc frame.
oVC = oDoc.CurrentController.getViewCursor 'Set oVC to new doc.
If NOT Over60K OR Skip then
thisVC.gotoRange(MarkSel.Start,false) : thisVC.gotoRange(MarkSel.End,true)
CopyOrCutIt(thisFrame,"Copy", dispatcher) 'Then fill it
PasteIt(thatFrame,dispatcher) 'with the selection.
BackUp(thisFrame,dispatcher) 'If not big selection or are doing Options
EndIf 'then backup file to clipboard.
End Sub

Sub FinishSelection(thatFrame,MarkSel,FandR,dispatcher,MarkSel,thisVC)
dispatcher.executeDispatch(thatFrame,".uno:SelectAll","",0,Array())
CopyOrCutIt(thatFrame,"Cut",dispatcher)
thisVC.gotoRange(MarkSel.Start,false)
thisVC.gotoRange(MarkSel.End,true)
PasteIt(thisFrame,dispatcher)
oDoc.dispose : If jstify then thisVC.setPropertyValue("ParaAdjust",2)
End Sub

Sub AskShortParas(AskShortParagraphs,ShortDef,thisTC,ASPL)
thisTC.gotoStart(false)
While thisTC.isEndOfParagraph() 'Delete empty paragraphs at top of doc.
thisTC.goRight(1,true) : thisTC.String = ""
Wend
If NOT AskShortParagraphs AND NOT KeepShortParagraphs AND NOT ProcSel then Exit Sub
If NOT AskShortParagraphs AND NOT ProcSel then iAns = 6 : goto Continue
a$ = "Generally highly recommended. This saves the formatting of lists,"
b$ = " tables of contents," & Chr(13) & "indexes, etc. that are not indented."
c$ = " This is also the fastest method."
d$ = "KEEP SHORT PARAGRAPHS?"
RunTime = RunTime + (Timer - lTime)
iAns = Msgbox (a$ & b$ & c$,3,d$) : lTime = Timer
If iAns = 2 then End
If iAns = 7 then KeepShortParagraphs = false
CONTINUE:
If iAns = 6 then
KeepShortParaGraphs = true : thisVC.gotoStart(false) : thisTC.gotoStart(false)
If NOT PrevProc then
Do
If NOT thisTC.isEndOfParagraph then
thisTC.gotoEndOfParagraph(true) : cnt = cnt +1
If Len(thisTC.String) > ParaLen then ParaLen = Len(thisTC.String)
EndIf
Loop While thisTC.gotoNextParagraph(false) and cnt < 50
Else Do 'Get max length of 1st 50 paragraphs which is probably the
If NOT thisVC.isAtEndOfLine then 'original right margin.
thisVC.gotoEndOfLine(true) : cnt = cnt + 1
If (Len(thisVC.String) > ParaLen) then ParaLen = Len(thisVC.String)
EndIF
Loop While thisVC.goRight(1,false) and cnt < 50
EndIF
ShortPara = ParaLen - ShortDef 'An arbitary guess of paragraph lengths for
If ASPL OR ProcSel then 'titles, lists, etc.
a$ = "You can adjust the short paragraph length, currently set at " & ShortPara
b$ = ". This is " & ShortDef & " characters short of the estimated right margin of "
c$ = "the original document based on a sampling of up to 50 lines. 'Cancel' will "
c$ = c$ & "end the program."
RunTime = RunTime + (Timer - lTime)
ShortPara = InputBox(a$ & b$ & c$,"ADJUST SHORT PARAGRAPH LENGTH?",ShortPara)
lTime = Timer : If ShortPara = "" then End
ShortPara = Cint(ShortPara): If ShortPara < 1 then ShortPara = 1
EndIf
EndIf
End Sub

Sub AskIndents()
a$ = "0 - Remove nothing." & Chr(13) &"1 - Remove spaced indents." & Chr(13)
a$ = a$ & "2 - Remove tabbed indents. 3 - Both, or click Cancel to quit."
Query: RunTime = RunTime + (Timer - lTime)
sAns = InputBox(a$,"Fix offset paragraphs? (0, 1, 2, 3 or Cancel to quit.)","0")
lTime = Timer : If sAns = "" then End
If instr("0123",sAns) = 0 then goto Query
StripIndents = sAns
If Cint(StripIndents) > 0 AND KeepShortParagraphs then AskOffset()
End Sub

Sub AskOffset()
a$ = "If you want to convert an offset paragraph(s) to a normal one then the program "
a$ = a$ & "will not keep short paragraphs." & Chr(13) & "Is this what you want to do?"
Runtime = Runtime + (Timer - lTime)
iAns = MsgBox(a$,4,"Convert offset paragraphs?") : lTime = Timer
If iAns = 6 then KeepShortParagraphs = false
End Sub

Sub ProcessOver60K(FandR,thisVC,thisDoc,dispatcher,MarkSel,PageBite)
'View cursor to entire selection range.
thisVC.gotoRange(MarkSel.Start,false) : thisVC.gotoRange(MarkSel.End,True)
LastPage = thisVC.getPage 'Get last page of selection.
oSelTC = thisDoc.Text.CreateTextCursorByRange(thisVC.Start)
thisVC.collapseToStart : GetSel = thisVC.getPage : PageBite = PageBite - 1
Do
GetSel = GetSel + PageBite 'Get PageBite pages at a time
If GetSel < LastPage then
thisVC.jumpToPage(GetSel)'Only the view cursor can jump.
oSelTC.gotoRange(thisVC,true)
If Not oSelTC.isEndOfParagraph then
Do 'Make sure the selection ends at a blank paragraph
oSelTC.gotoNextParagraph(true)
Loop Until oSelTC.isEndOfParagraph
EndIF
Else LastSection = true : thisVC.gotoRange(MarkSel.End,false)
oSelTC.gotoRange(thisVC,true)
EndIf
thisVC.gotoRange(oSelTC,true)'Only the view cursor can capture text to copy it.
CopyOrCutIt(thisFrame,"Copy",dispatcher)
PasteIt(thatFrame,dispatcher)
RunMainRoutines(FandR)
oVC.gotoStart(false): oVC.gotoEnd(true)'Get entire selection.
CopyOrCutIt(thatFrame,"Cut",dispatcher) : PasteIt(thisFrame,dispatcher)
oSelTC.collapseToEnd
Loop While NOT LastSection
oDoc.dispose(true) : LastSection = false
End Sub

Is this effing programme going to require a change for the worst in my life or are there reasonable tools in this open office?

I can't imagine a normal person even reading that. I certainly didn't.
Back to top
View user's profile Send private message Yahoo Messenger
Display posts from previous:   
Post new topic   Reply to topic    OOoForum.org Forum Index -> OpenOffice.org Writer All times are GMT - 8 Hours
Page 1 of 1

 
Jump to:  
You cannot post new topics in this forum
You cannot reply to topics in this forum
You cannot edit your posts in this forum
You cannot delete your posts in this forum
You cannot vote in polls in this forum


Powered by phpBB © 2001, 2005 phpBB Group