[Solved] Macro with Keys sequence

[pasaico]

Hi guys,

i have recorder a macro with this sequence keys;

press F2
press SPACE
press RETURN

but not work, not record nothing keys.

This sequence make a text http://foo.everthing.com in a HYPERLINK URL clickable

Can you help me?

Code: Select all

sub Link
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 ----------------------------------------------------------------------
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "ToPoint"
args1(0).Value = "$J$1"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args1())

rem ----------------------------------------------------------------------
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "ToPoint"
args2(0).Value = "$J$1"

dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, args2())


end sub

[RoryOF]

The OpenOffice macro recorder givs only an outline; one has to add in, by hand programming, the detail of required system calls. These are detailed in the OO BASIC guide and the OO API documentation, both linked off
http://www.openoffice.org/api/

[Lupp]

-1- The macro recorder isn't a key logger.
-2- The sequence of key actions you described wouldn't result in a recorded macro like the one you posted.
-3- What did you do to get that text (e.g.) as simple text without the link?
-4- You won't succeed with a recorded macro, most likely.
-5- A macro actually capable of creating a clickable link from simple text would need to read that text and to create a "TextField" of it.
-6- No dispatcher command available for the task afaik.

You may select the range where your unclickable URL are and try this BASIC Sub:

Code: Select all

Sub makeClickable()
theDoc   = ThisComponent
theRange = theDoc.CurrentSelection
If NOT theRange.SupportsService("com.sun.star.sheet.SheetCellRange") Then 
   MsgBox("Sub ""makeClickable"" only working on simple ranges!")
   Exit Sub
End If
With theRange.RangeAddress
   theSheet = theDoc.Sheets(.Sheet)
   For x = .StartColumn To .EndColumn
    For y = .StartRow To .EndRow
     theCell                 = theSheet.GetCellByPosition(x, y)
     theUrlString            = theCell.String
     urlField                = ThisComponent.createInstance("com.sun.star.text.TextField.URL")
     urlField.URL            = ConvertToURL(theUrlString)
     If urlField.URL="" Then Goto next_y
     urlField.Representation = theUrlString
     theCell.String          = ""
     theText                 = theCell.GetText
     theText.insertTextContent(theText.createTextCursor(), urlField, False)
     next_y:
   Next y
  Next x
End With
End Sub

There are no tests concerning the question if the string found in a cell can at all be converted to a clickable URL.

[Zizi64]

press F2
press SPACE
press RETURN

but not work, not record nothing keys.

Use the Menu items for recording macros.
It is better to WRITE your macros instead of the recording - because the macro recorder has a limited capability.

[pasaico]

-1- The macro recorder isn't a key logger.
-2- The sequence of key actions you described wouldn't result in a recorded macro like the one you posted.
-3- What did you do to get that text (e.g.) as simple text without the link?
-4- You won't succeed with a recorded macro, most likely.
-5- A macro actually capable of creating a clickable link from simple text would need to read that text and to create a "TextField" of it.
-6- No dispatcher command available for the task afaik.

You may select the range where your unclickable URL are and try this BASIC Sub:

Code: Select all

Sub makeClickable()
theDoc   = ThisComponent
theRange = theDoc.CurrentSelection
If NOT theRange.SupportsService("com.sun.star.sheet.SheetCellRange") Then 
   MsgBox("Sub ""makeClickable"" only working on simple ranges!")
   Exit Sub
End If
With theRange.RangeAddress
   theSheet = theDoc.Sheets(.Sheet)
   For x = .StartColumn To .EndColumn
    For y = .StartRow To .EndRow
     theCell                 = theSheet.GetCellByPosition(x, y)
     theUrlString            = theCell.String
     urlField                = ThisComponent.createInstance("com.sun.star.text.TextField.URL")
     urlField.URL            = ConvertToURL(theUrlString)
     If urlField.URL="" Then Goto next_y
     urlField.Representation = theUrlString
     theCell.String          = ""
     theText                 = theCell.GetText
     theText.insertTextContent(theText.createTextCursor(), urlField, False)
     next_y:
   Next y
  Next x
End With
End Sub

There are no tests concerning the question if the string found in a cell can at all be converted to a clickable URL.

Thank you Lupp, this basic SUB it's ok and work great.
I to make clickable, I had to do the procedure manually
F2
SPACE
RETURN

Thank you LUPP

pasaico