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.

Reply via email to