Re: [oodisc] Надобна пара макросов...

[Vladimir]

Добрый день.
VM>   Надобна пара макросов, ну, похожих на рекодекир... срочно... сам не
VM>   напишу :( Нужно:
VM> выделение (если есть) или текущую ячейку - расквотить (т.е. `31.02.02 => 31.02.02, к
VM> примеру)
VM> выделение (если есть) или текущую ячейку - заквотить (т.е. 254,03 => `254,03, к примеру)
Маленькое уточнение.  Необходимо добавить пару строчек в подпрограмму.

Sub DelAphostr(oWorkRanges As Object)
        Dim oCells As Object
        Dim aCell As Object
        Dim Ctext As string
        oCells = oWorkRanges.Cells.createEnumeration
        If Not oCells.hasMoreElements Then Print "Менять нечего"
        While oCells.hasMoreElements
            aCell = oCells.nextElement
                if aCell.Type=com.sun.star.table.CellContentType.TEXT Then
                ctext=aCell.GetString()
                if IsNumeric(ctext) Then
                        aCell.Value=CDbl(ctext)

                    else
                        aCell.SetString(ctext)
                    ^^^^^^^^^^^^^^^^^^^^^^^^^^
                    
                    end if
                End If
        Wend
End Sub

С уважением,
 Владимир <vbux на artmed.ru>