sin-titulo

Sub InserirTaulaIP() Dim oDoc As Object Dim oText As Object Dim oTable As Object Dim oCell As Object Dim i As Integer Dim oCursor As Object oDoc = ThisComponent oText = oDoc.getText() ' Crear taula de 2 files i 5 columnes oTable = oDoc.createInstance("com.sun.star.text.TextTable") oTable.initialize(2, 5) ' Inserir la taula a la posició del cursor oText.insertTextContent(oDoc.getCurrentController().getViewCursor(), oTable, False) ' Capçaleres oTable.getCellByPosition(0, 0).setString("Equip") oTable.getCellByPosition(1, 0).setString("IP") oTable.getCellByPosition(2, 0).setString("Màscara") oTable.getCellByPosition(3, 0).setString("Porta d'enllaç") oTable.getCellByPosition(4, 0).setString("DNS") ' Formatar capçalera (fons gris i text en negreta) For i = 0 To 4 oCell = oTable.getCellByPosition(i, 0) oCell.BackColor = RGB(220, 220, 220) oCursor = oCell.createTextCursor() oCursor.gotoStart(False) oCursor.gotoEnd(True) oCursor.CharWeight = 150 Next i ' Dades d'exemple oTable.getCellByPosition(0, 1).setString("Servidor-01") oTable.getCellByPosition(1, 1).setString("192.168.1.10") oTable.getCellByPosition(2, 1).setString("255.255.255.0") oTable.getCellByPosition(3, 1).setString("192.168.1.1") oTable.getCellByPosition(4, 1).setString("8.8.8.8") End Sub