Tem como eu zera o espaçamento entre linha ou colocar menos que 1?

[enzobarbieridalcumun]

tem como eu zera o espaçamento entre linha ou colocar menos que 1? é que eu preciso muito fazer isso mas não aparece a opção para isso

[schiavinatto]

SE for uso constante, ligue a macro em um botão…

Sub EntrelinhaZero
dim args3(1) as new com.sun.star.beans.PropertyValue
args3(0).Name = "LineSpacing.Mode" : args3(0).Value = 1
args3(1).Name = "LineSpacing.Height" : args3(1).Value = 0
CreateUnoService("com.sun.star.frame.DispatchHelper") _
.executeDispatch(ThisComponent.CurrentController _
.Frame, ".uno:LineSpacing", "", 0, args3())
End Sub 'EntrelinhaZero

[enzobarbieridalcumun]

obrigado cara