https://bz.apache.org/ooo/show_bug.cgi?id=126950
mroe <[email protected]> changed: What |Removed |Added ---------------------------------------------------------------------------- Status|UNCONFIRMED |RESOLVED Resolution|--- |NOT_AN_ISSUE --- Comment #1 from mroe <[email protected]> --- Sub WriteCellFieldURL() Dim oCell, oFields, oField Dim i As Integer oCell = ThisComponent.Sheets(0).getCellByPosition(0, 0) oFields = oCell.getTextFields() For i = 0 To oFields.getCount() - 1 oField = oFields.getByIndex( i ) MsgBox oField.getPropertyValue( "Representation" ) & ": " & oField.getPropertyValue( "URL" ) oField.setPropertyValue( "Representation", "New file" ) oField.setPropertyValue( "URL", "file:///home/volker/newfile.pdf" ) MsgBox oField.getPropertyValue( "Representation" ) & ": " & oField.getPropertyValue( "URL" ) Next i End Sub -- You are receiving this mail because: You are the assignee for the issue.
