Hal,
you have getposition and jumptostartofpage to compare the 2 positions
hope it helps
Fernand
Vaughan wrote:
I have a macro collection I've posted about before. It works like the
AutoCorrect function, but I've customized it for me. If I hit
Ctrl-Shift-T (actually Command-Shift-T since I'm now on an iMac), I
get a dialog that lets me define a key phrase and the AutoText that
goes with it. Then when I'm writing, after any space or at the start
of a new line, I hit Command-T. That activates a macro that starts at
the current cursor position and steps back until it finds a space or a
control character. The only problem with this is if I do this at the
start of a document I end up with a null character or something
instead and I can't do a comparison on it. So is there some way,
after moving the cursor, to check and see if I'm at the start of the
document?
The code that steps backwards through the characters in the document
is below. Notice that all I do is step back, check each new character
added to the start of the selection and see if the value is that of a
space or less. I want to add an If statement before I move the cursor
left so if I'm trying to move it past the start of the document, I can
catch it.
Of course, another alternative is to be able to define a variable to
whatever character I'd find at the start of the document and compare
sChar to that value to see if I'm at the start.
Sub InsertAutoMacroText
oDoc = ThisComponent
oCurs = oDoc.getCurrentController().getViewCursor()
iEnd = false
iCount = 0
Do
'Go back one character, then get that character and put it in a
separate variable
'for comparison.
oCurs.goLeft(1, true)
sKey = oCurs.getString()
sChar = Left(sKey, 1)
'BUG: This next line throws an error if we try to use this at the
start of a
'document.
iChar = Asc(sChar)
' MsgBox "String: " + sKey + ", Char: " + sChar + ", Char Code:
" + iChar
If iChar < 33 Then iEnd = true
If iCount > 32 Then iEnd = true
Loop Until iEnd
oCurs.goRight(1, true)
sKey = oCurs.getString()
' sText = "Replaced ->" + sKey + "<-"
sText = GetDocumentVariable(sKey)
oCurs.setString(sText)
oCurs.collapseToEnd()
End Sub
I've been going through the API, but I have a disadvantage: I haven't
been working with it much recently, so I don't seem to find things as
easily as I have in the past.
Any help on this is much appreciated!
Hal
---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscr...@api.openoffice.org
For additional commands, e-mail: dev-h...@api.openoffice.org
---------------------------------------------------------------------
To unsubscribe, e-mail: dev-unsubscr...@api.openoffice.org
For additional commands, e-mail: dev-h...@api.openoffice.org
