[Solved] Macro not doing anything

[rztv8076]

I have recorded a macro to do Text to Columns procedure. Here is recorded code. When I run the macro - nothing happens and selected cell is still selected. When I perform macro keystrokes, all works fine.
anybody see an error or have an idea?
thanks in advance.

Code: Select all

REM  *****  BASIC  *****

sub Main
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:TextToColumns", "", 0, Array())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:JumpToNextCell", "", 0, Array())

end sub

[JeJe]

Works for me... the TextToColumns dialog box pops up - provided there's a valid selection... check the Data/Text to Columns menu entry is not greyed before you run the macro is all I can suggest.

And remove the Rem from before the line
dispatcher.executeDispatch(document, ".uno:TextToColumns", "", 0, Array())

[rztv8076]

Still can't get it to run. i've lowered Security>Macro to minimum. Can you think of where else it might be blocked?
Text to Columns works fine when I do it manually, but I have another 3000 plus rows to do. Trying to "Not go insane".
thanks for your help.
RZ

[JeJe]

Charlie Young has a suggestion that avoids the macro recorder here:

viewtopic.php?f=9&t=37246

[rztv8076]

I see how this works. Still can't get it to run. I've either got a setting wrong or I'm not running macro correctly.
Tools>Macros>Run Macro>(Select proper macro)>Run

See anything wrong with this procedure? I'm on row 9958 with a bunch to go. Lots of ALT-D xx Enter Enter.

thanks for time and consideration.

RZ

[JeJe]

You're not converting text to columns one row at a time surely?

[rztv8076]

Surely I am. Can't select multiple rows - option greyed out.

[rztv8076]

OMG - can't select multiple rows but you can select column. Yikes. This works better.
Thanks for shaking my head to see what I was doing.

RZ

[JeJe]

Yeah, you should be able to do it all in one go.

[rztv8076]

Thanks JeJe. major help.