LibreOffice Calc: Mesclando células com Bordas, removendo o lado direito das bordas

Question

LibreOffice Calc: Mesclando células com Bordas, removendo o lado direito das bordas

#1 resposta do (1 votos)

0

Ao usar o recurso de borda no LibreOffice Calc, funciona bem. Mas quando estou mesclando as células dentro de uma célula que tem bordas, ela remove o lado direito das bordas. Por favor, olhe as imagens:

Basta mesclar algumas células.
Adicionou bordas à célula após a mesclagem.
Aqui, depois de aplicar a opção de mesclagem a uma célula com borda, veja que a borda do lado direito da caixa desaparece.

O que está acontecendo aqui? Preciso de uma solução na qual o lado direito da borda não desapareça. Qualquer ajuda seria apreciada.

libreoffice-calc

por Animesh Patra 05.08.2016 / 14:25

1 resposta

Tags libreoffice-calc

Como consertar uma unidade Flash SanDisk USB 3.0 conectada como HiSpeed em vez de SuperSpeed? OpenNTPD reclama de um arquivo de drift vazio no archlinux

score 1 · Accepted Answer

Defina todas as bordas antes da mesclagem, não apenas as bordas externas:

Seaprimeiracélulanãomescladanãotiverumabordainferioroudireita,nenhumadelasseráacélulamesclada:

EDITAR:

Parafacilitaraexecuçãodestaaçãorepetidamente,graveiamacroaseguir.PodeseratribuídoaumbotãodeatalhooubarradeferramentaspormeiodeTools->Customize.

sub SetAllBordersAndMerge
    dim document   as object
    dim dispatcher as object
    document   = ThisComponent.CurrentController.Frame
    dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

    dim args1(12) as new com.sun.star.beans.PropertyValue
    args1(0).Name = "OuterBorder.LeftBorder"
    args1(0).Value = Array(0,0,2,0,0,2)
    args1(1).Name = "OuterBorder.LeftDistance"
    args1(1).Value = 0
    args1(2).Name = "OuterBorder.RightBorder"
    args1(2).Value = Array(0,0,2,0,0,2)
    args1(3).Name = "OuterBorder.RightDistance"
    args1(3).Value = 0
    args1(4).Name = "OuterBorder.TopBorder"
    args1(4).Value = Array(0,0,2,0,0,2)
    args1(5).Name = "OuterBorder.TopDistance"
    args1(5).Value = 0
    args1(6).Name = "OuterBorder.BottomBorder"
    args1(6).Value = Array(0,0,2,0,0,2)
    args1(7).Name = "OuterBorder.BottomDistance"
    args1(7).Value = 0
    args1(8).Name = "InnerBorder.Horizontal"
    args1(8).Value = Array(0,0,2,0,0,2)
    args1(9).Name = "InnerBorder.Vertical"
    args1(9).Value = Array(0,0,2,0,0,2)
    args1(10).Name = "InnerBorder.Flags"
    args1(10).Value = 0
    args1(11).Name = "InnerBorder.ValidFlags"
    args1(11).Value = 127
    args1(12).Name = "InnerBorder.DefaultDistance"
    args1(12).Value = 0
    dispatcher.executeDispatch(document, ".uno:SetBorderStyle", "", 0, args1())

    dim args2(0) as new com.sun.star.beans.PropertyValue
    args2(0).Name = "MoveContents"
    args2(0).Value = true
    dispatcher.executeDispatch(document, ".uno:ToggleMergeCells", "", 0, args2())
end sub