Olá amigos,
Tenho que númerar um documento .odt iniciando a numeração com um número fornecido pelo meu programa em java.A princípio pensei no cabeçalho, daí todas as páginas ficam com o mesmo número.Pensei em usar a númeração de páginas, no entanto não consigo efetuar cálculos com a numeração de páginas.Vamos agora para as macros, eu estou utilizando tabela e consigo uma númeração sequencial na mesma página, no entanto eu quero um número na primeira linha de cada página.Se alguém puder me ajudar com este código ou tiver uma solução melhor agradeço.Segue a macro que estou “batendo cabeça”.
Sub Tabela
DIM TotalPaginas As Integer
DIM PaginaInicial As Integer
oDoc = ThisComponent
oControlador = oDoc.getCurrentController()
TotalPaginas = oControlador.PageCount
oCVisao = oControlador.getViewCursor()
oCVisao.jumpToFirstPage()
PaginaInicial = 100
For i = 0 To TotalPaginas
' cria uma tabela (propriedades com valores padrão)
oTabela = oDoc.createInstance("com.sun.star.text.TextTable")
' define o número de linhas e colunas
oTabela.initialize ( 1, 2)
' insere a tabela no documento
oTxt = oDoc.getText()
oCur = oTxt.createTextCursor()
oTxt.insertTextContent (oCur, oTabela, False)
' define algumas propriedades da tabela:
' margens superior, esquerda e direita
oTabela.TopMargin = 0 ' 2 cm
oTabela.LeftMargin = 0
oTabela.RightMargin = 0
' horientação horizontal (margens dependem de NONE)
oTabela.HoriOrient = com.sun.star.text.HoriOrientation.NONE
oCelula = oTabela.getCellByName("B1")
oCelula.setString("INDICE : "&Str$(PaginaInicial + i))
i = i + 1
PaginaInicial = PaginaInicial + i
oCVisao.jumpToNextPage()
NEXT i
End Sub