Erro em Macro

wagnergarcia
(usa Outra)

Enviado em 23/02/2012 - 10:07h

Bom dia a todos. Estou iniciando meu aprendizado em macros no broffice, porém, a apostila que estou lendo contém um exemplo:

Sub AdicionaOla
Dim oDoc
Dim sTextService
Dim oCurs

'----------Referência ao documento ativo no momento----------
oDoc = ThisComponent

'----------Verifica se o documento é texto----------
'sTextService = "com.sun.star.text.TextDocument"
'If not oDoc.supportsService(sTextService) Then
' Msgbox "Esta macro somente funciona com documentos de texto"
' Exit Sub
'End if

'----------Obter o cursor visto a partir do controle atual----------
oCurs = oDoc.CurrentController.getViewCursor()

'----------Move o cursor para o final do documento----------
oCurs.gotoEnd(False)

'----------Insere o texto "Ola" no final do documento----------
oCurs.Text.insertString(oCurs, "Olá", False)
End Sub

Justamente na linha que contém: oCurs = "oDoc.CurrentController.getViewCursor()" apresenta um erro em tempo de execução. Por acaso tem que habilitar alguma biblioteca, ou o erro esta na programação????

Me ajudem!!!!