Olá, sempre que eu utilizo a mala direta, para poder fazer filipetas para o agendamentos de exames que eue faço, ela cria quebras de páginas indesejáveis, que, as vezes eu gostaria que permanecesse 2 ou mais filipetas na mesa folha para a economização de papéis.
Diante disso, eu tenho que excluir quebra por quebra para que todas a filipetas fiquem organizadas em uma folha, porém as vezes me deparo com arquivos mais de 100 folhas, e acaba demorando muito acabar um por um.
Pesquisei na internet algumas soluções e descobri que é possivel criar um macro para que eu possa automatizar isso, e então pedi para uma IA fazer um código para mim, para que eu possa usar no libreoffice e após algumas tentativas ele não funciona, gostaria de saber o que posso fazer para consertar isso.
Código criado pela IA:
Sub RemovePageBreaks
Dim oDoc as Object
Dim oCursor as Object
Dim oSearchDesc as Object
Dim oSearchResult as Object
oDoc = ThisComponent
oCursor = oDoc.Text.createTextCursor()
oSearchDesc = oDoc.createSearchDescriptor()
’ Define o critério de busca para a quebra de página
oSearchDesc.setSearchString(Chr(12)) ’ código ASCII para quebra de página
’ Localiza todas as quebras de página no documento
oSearchResult = oDoc.FindFirst(oSearchDesc)
Do While Not IsNull(oSearchResult)
’ Move o cursor para a quebra de página encontrada
oCursor.gotoRange(oSearchResult.getStart(), False)
' Remove a quebra de página
oDoc.Text.clearAttribute("BreakType")
' Localiza a próxima quebra de página
oSearchResult = oDoc.FindNext(oSearchResult.getEnd(), oSearchDesc)
Loop
End Sub
Qualquer dúvida estarei a disposição
Att.
Vitor Calelo.