TianK

@freitasmarcus, No LibreOffice Writer você precisa da combinação de teclas Ctrl+Shift+F para executar o comando "Repetir Pesquisa". Ele faz exatamente o que você quer, sem macro, pesquisa o caractere selecionado e cada vez que você tecla a combinação (Ctrl+Shift+F), repete a pesquisa. Se você preferir, é possível mudar as atribuições da tecla F3 para executar o comando "Repetir Pesquisa". Para isso vá no Menu Ferramentas > Personalizar... > Aba "Teclado": Na seção "Funções", em "Categoria" escolha "Editar". Depois procure "Repetir Pesquisa" em "Função". Agora vá na seção "Teclas de atalho" selecione "F3". Clique no botão "Modificar". Agora a tecla F3 executará "Repetir Pesquisa". []s. TianK

Olá, Responderam você << aqui >> no Ask do LibreOffice. O erro apresentado é porque todo o rol de Objetos, serviços, métodos, propriedades são muito diferentes entre o VBA e a API UNO Basic do LibreOffice ou do Apache OpenOffice. Mais informações neste << link >>. []s. TianK

É um prazer ajudar, @Agt00! []s.

Aluísio Duarte, Você já encontrou uma solução para sua macro? Bem, eu estava dando uma olhada em seu código e fiz algumas alterações que funcionaram aqui no meu LibreOffice. Espero que ele funcione para você também! Sub Negritar (pPlanilha, pCol, pLin, pInicio, pTamanho)'COMENTÁRIOS SOBRE OS PARÂMETROS'pPlanilha: é a planilha em que está a célula'pCol: a coluna da célula que contém o texto a ser trabalhado'Lin: a linha da célula que contém o texto a ser trabalhado'pInicio: é a posição do texto em que deve iniciar o negrito'Tamanho: é a extensão do texto que deve ser negritado''Ex: Negritar ("Ata", 0, 11, 50, 10)'No exemplo, pega a célula A10 (0,11) e negrita o texto a partir da posição 50'com extensão de 10 caracteresoPlanilha = ThisComponent.Sheets.getByName( pPlanilha )ThisComponent.CurrentController.setActiveSheet( oPlanilha )tPlanilha = ThisComponent.CurrentController.ActiveSheetDim oCell As ObjectDim oCursor As ObjectDim oText As ObjectDim colonLoc As LongDim i As LongoCell = tPlanilha.getCellByPosition( pCol,pLin )tmpTamTotal = Len(oCell.getString())oText = oCell.getText()oCursor = oText.createTextCursoroCursor.gotoStart(False) 'Cursor no íniciooCursor.goRight( (pInicio-1),False ) 'Cursor antes da primeira letraoCursor.goRight( pTamanho,True ) 'Cursor no final da palavra 'True seleciona o percursooCursor.CharWeight = com.sun.star.awt.FontWeight.BOLDEnd Sub []s. TianK

Olá, Coloque a seguinte instrução no início do Módulo: Option VBASupport 1 Ela ativa a compatibilidade do Open/LibreOffice Basic com o VBA. Mas, só funciona para macros simples. Códigos mais complexos precisam ser reescritos para a API UNO do Open/LibreOffice. Testei seu código com a instrução acima e chegou a funcionar no LibreOffice 4.3.5.2.