Hello!
The following macro removes the font name and size and text align for columsn from the entire table.
How do I prevent this?
Private Sub pAddNewRow(ByRef uDoc As Object, ByRef uSm As Object)
Dim oDispatcher As Object
Dim oFrame As Object
Set oFrame = uDoc.getCurrentController().Frame
Set oDispatcher = uSm.CreateInstance("com.sun.star.frame.DispatchHelper")
Dim noArgs() As Variant
Call oDispatcher.executeDispatch(oFrame, ".uno:InsertRowsAfter", "", 0, noArgs())
End Sub