How to convert VBA code in OOo Writer?

[kotfantazer]

I do not know how to convert this code. Sorry for my English.

Sub color_words()

Selection.HomeKey (wdStory)
Do Until ActiveWindow.Selection.End + 1 = ActiveDocument.Content.End
Selection.Words(1).Select ' выделяем первое слово и форматируем
Selection.Words(1).Font.Color = wdColorGreen
Selection.EndOf

Selection.Words(1).Select ' выделяем второе слово и форматируем
Selection.Words(1).Font.Color = wdColorYellow
Selection.EndOf
Loop

End Sub

Thank you very much!

[rudolfo]

Can you please explain, what the macro is supposed to do? And preferably not in cyrillic.
As far as my VBA/MS Word Knowledge goes I understand that some of the selected text should be marked with green color and other parts with yellow color. But is it every other word, or everything green except for the last word of the selection?
What is the selection? The whole document? Or the part from the beginning of the document to the current cursor position?
We are users of OpenOffice, we might be familiar with the OOo macro languages, but don't expect us to understand MS VBA. You won't expect a British person to understand and translate French for you, won't you?

[kotfantazer]

Oh, excuse me please!
Tasks macro: Select all even words - red, and the odd - green.

[kotfantazer]

Sub color_words()

Selection.HomeKey (wdStory) 'move to top
Do Until ActiveWindow.Selection.End + 1 = ActiveDocument.Content.End
Selection.Words(1).Select ' select the first word
Selection.Words(1).Font.Color = wdColorGreen 'select the word color
Selection.EndOf

Selection.Words(1).Select ' select the second word
Selection.Words(1).Font.Color = wdColorYellow
Selection.EndOf
Loop

End Sub

[Charlie Young]

Oh, excuse me please!
Tasks macro: Select all even words - red, and the odd - green.

Well, I did one hastily, it does odd words green (RGB(0,255,0)), and even yellow (RGB(255,255,0)), but the colors are easily modified. It isn't very thoroughly tested, but have at it, and complain if necessary.

Code: Select all

Sub ColorWords
	Dim oDoc As Object
	Dim oText As Object
	Dim oCursor As Object
	Dim isGreen As Boolean, MoreText As Boolean
	
	oDoc = ThisComponent
	oText = oDoc.Text
	isGreen = True
	MoreText = True
	oCursor = oText.createTextCursor()
	oCursor.gotoStart(False)
	do while MoreText
		oCursor.gotoEndOfWord(True)
		if isGreen then
			oCursor.CharColor = RGB(0,255,0)
		else
			oCursor.CharColor = RGB(255,255,0)
		endif
		isGreen = not isGreen
		MoreText = oCursor.gotoNextWord(False)
	loop
	
End Sub

[rudolfo]

Nice one, Charlie.
I have to remember this the next time when I hear someone complaining about the complex macro language of OpenOffice.
Obviously I was thinking that Selection.Words(1).Select selects both time the same thing. Who would ever think that Selection.EndOf is a movement operation. oCursor.gotoEndOfWord and oCursor.gotoNextWord are much more self documenting and readable.

[JohnSUN-Pensioner]

Yes, this is great! Really!
For even greater brevity, some variables can be removed:

Code: Select all

Sub reDrawWords
Dim oText As Object
Dim oCursor As Object
Dim isOdd As Boolean
Const Green = 65280
Const Red = 16711680
	oText = ThisComponent.getText()
	isOdd = True
	oCursor = oText.createTextCursor()
	oCursor.gotoStart(False)
	Do 
		oCursor.gotoEndOfWord(True)
		oCursor.CharColor = IIf(isOdd,Green,Red)
		isOdd = not isOdd
	Loop While oCursor.gotoNextWord(False)
End Sub

But the main solution is very elegant

[Charlie Young]

No need to stick to two colors.

Code: Select all

Sub RainbowColorWords
	Dim oDoc As Object
	Dim oText As Object
	Dim oCursor As Object
	Dim MoreText As Boolean
	Dim WordColor(6) As Long
	Dim c As Long, n As Long
	
	WordColor(0) = RGB(255,0,0) 'red
	WordColor(1) = RGB(255,165,0) 'orange
	WordColor(2) = RGB(255,255,0) 'yellow
	WordColor(3) = RGB(0,255,0) 'green
	WordColor(4) = RGB(0,0,255) 'blue
	WordColor(5) = RGB(75,0,130) ' indigo
	WordColor(6) = RGB(238,130,238) ' violet 
	
	n = UBound(WordColor) + 1
	oDoc = ThisComponent
	oText = oDoc.Text
	c = 0
	MoreText = True
	oCursor = oText.createTextCursor()
	oCursor.gotoStart(False)
	do while MoreText
		oCursor.gotoEndOfWord(True)
		oCursor.CharColor = WordColor(c)
		c = (c + 1) MOD n
		MoreText = oCursor.gotoNextWord(False)
	loop
	
End Sub

Yes, the indigo is shaky.