질문하기

jamadagni's profile - activity

2016-06-10 03:35:24 +0200 받은 배지  유명한 질문 (source)
2016-01-16 18:30:01 +0200 받은 배지  유명한 질문 (source)
2015-08-26 20:28:45 +0200 받은 배지  주목할 만한 질문 (source)
2015-08-26 20:26:46 +0200 받은 배지  주목할 만한 질문 (source)
2015-06-17 13:50:17 +0200 받은 배지  조력자 (source)
2015-06-17 13:49:04 +0200 코멘트달린 답변 How to apply faux bold to cells with particular content

@karolus: Thanks for your help. While conditional format still doesn't apply faux bold, I recorded the actions and it works fine. Great!

2015-06-17 13:21:54 +0200 받은 배지  인기있는 질문 (source)
2015-05-28 03:29:57 +0200 받은 배지  인기있는 질문 (source)
2015-05-27 16:24:30 +0200 코멘트달린 답변 How to apply faux bold to cells with particular content

Hey thanks for the reply but it would be good to automate this as this is a repeated process I have to do on multiple documents every now and then. If I have a macro, all I have to do is a click on the toolbar.

2015-05-27 15:20:09 +0200 받은 배지  학자 (source)
2015-05-27 15:19:33 +0200 질문하였습니다 How to apply faux bold to cells with particular content

In relation to my query I experimented a bit with the recent macro recorder and trimmed its bloated output to get the following macro which sure enough applies bold to cells O4 to O45 in all 12 of my sheets.

sub addTithiBold

    document = ThisComponent.CurrentController.Frame
    dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
    dispatcher.executeDispatch(document, ".uno:JumpToFirstTable", "", 0, Array())

    dim selectCells(0) as new com.sun.star.beans.PropertyValue
    dim addBoldAttr(0) as new com.sun.star.beans.PropertyValue

    selectCells(0).Name = "ToPoint"
    selectCells(0).Value = "$O$4:$O$45"
    addBoldAttr(0).Name = "Bold"
    addBoldAttr(0).Value = true

    sheet = 1
    do
        if sheet <> 1 then dispatcher.executeDispatch(document, ".uno:JumpToNextTable", "", 0, Array())

        dispatcher.executeDispatch(document, ".uno:GoToCell", "", 0, selectCells())
        dispatcher.executeDispatch(document, ".uno:Bold", "", 0, addBoldAttr())

        sheet = sheet + 1
    loop while sheet < 13

end sub

However I want to apply bold only to cells with particular textual content. Based on the solution given to my query, I was able to add the line:

if oCell.string = "पौर्णमासी" or oCell.string = "अमावास्या" then oCell.charWeight = com.sun.star.awt.FontWeight.BOLD else oCell.charWeight = com.sun.star.awt.FontWeight.NORMAL

but as I have noted in that answer, this is not sufficient to apply faux bold when the font itself does not provide a separate proper bold. However the above dispatch method produced by the macro recorder is able to apply faux bold. Now I'd like to know how to apply the dispatch method by selecting cells with a particular textual content.

Or if there is any other method also to get the required faux bold I'd be happy.

Thanks.

2015-05-27 15:06:48 +0200 코멘트달린 답변 macro to remove bold from a particular range in all sheets

I now tried your solution (and thanks for the ref to Xray). But it does not work as desired. The cell font attribute is indeed changed, but my font comes in regular weight only and the bold is a faux-bold which apparently cannot be enabled by setting the charWeight. Any idea how to set faux bold?

2015-05-27 09:28:27 +0200 코멘트달린 답변 macro to remove bold from a particular range in all sheets

Hi thanks a lot for your kind reply! I agree that the reference lists the properties you mention but I searched a lot and wasn't sure where to refer to if I just, say, wanted to know what members a cell has, or a cell range has for that matter. Can you clarify that?

Note that I still need to know how to identify the text content of a cell based on which I have to make it bold (the second part of my question).

2015-05-27 07:46:24 +0200 질문하였습니다 macro to remove bold from a particular range in all sheets

Hello. I am trying to write a macro using LibO 4.4.3 on Linux 64 bit.

In the 14th column of all sheets, from rows 4 to 45, it should make only the cells with content "अमावास्या" and "पौर्णमासी" bold and remove bold from all other cells. However, I am totally stumped as to how to access the font etc attributes from BASIC. Please help!

This is my attempt going as far as getting the requisite cell object but after that I'm at a loss:

sub boldenPurniAma
    sheets = ThisComponent.Sheets
    for each sheet in sheets
        for row = 4 to 45
            c = sheet.getCellByPosition(14,row)
            ' what should I do here?
        next row
    next sheet
end sub

Thanks!

2014-08-29 05:05:02 +0200 받은 배지  유명한 질문 (source)
2014-04-13 05:29:17 +0200 받은 배지  개근상
2014-04-05 15:56:26 +0200 받은 배지  주목할 만한 질문 (source)
2014-04-04 15:17:12 +0200 코멘트달린 답변 LibreOffice 4.2 API IDL Reference Tarball?

Hello thanks for this reply. I do not see a download link at http://www.libreoffice.org/download/l... or http://www.libreoffice.org/download/p... . Googling for "libreoffice sdk download" does not help much either. Please can you point to where I can download the SDK? (I'm using Kubuntu Linux (Saucy) 64bit.) Thanks!

2014-04-04 15:10:12 +0200 받은 배지  인기있는 질문 (source)
2014-04-04 11:39:42 +0200 질문하였습니다 LibreOffice 4.2 API IDL Reference Tarball?

I would like to have an offline copy of the LibreOffice 4.2 API IDL Reference which is available online at http://api.libreoffice.org/docs/idl/r... . Can anyone please point me to where I can download a tarball or other archive? Thanks!