Pergunte aqui
1

Macro para abrir outro documento

perguntadas 2016-09-08 21:43:02 +0200

imagem do gravatar de Rodrigo Zimmermann

Preciso de uma macro para abrir um outro documento. Vou criar um botão em um formulário no Writer, que irá abrir outro formulário também no Writer.

Alguém sabe como fazer?

editar alterar tag assinalar como ofensivo fechar mesclar Excluir

Comentários

Outra opção seria criar um segundo formulário no mesmo documento, acessando outra tabela do meu banco de dados. No entanto, o item Ferramentas -> Formulários -> Navegador de Formulários está desabilitado.

imagem do gravatar de Rodrigo ZimmermannRodrigo Zimmermann ( 2016-09-09 21:48:37 +0200 )editar

2 Respostas

0

respondidas 2016-09-10 18:36:40 +0200

imagem do gravatar de sp24horas

Olá! Tente esta macro para abrir outro documento Writer.

Sub CriaNovoDoc()
Dim tipo As String
Dim oArg()
Dim oDoc As Object

    tipo = "private:factory/swriter"
    oDoc = StarDesktop.loadComponentFromURL( tipo, "_default", 0, oArg() )

End Sub

**Agora, se a intenção é abrir um formulário no Base, veja abaixo.

Obs: verifique a conexão ao BD e se está aberta. Neste exemplo a conexão já foi estabelecida previamente em outro procedimento.** Boa sorte!

REM BASIC
function OpenForm1( formContainer as variant, oConnection as variant, sFormName as string) as variant
Dim aProp(1) As New com.sun.star.beans.PropertyValue
aProp(0).Name = "ActiveConnection"
aProp(0).Value = oConnection
aProp(1).Name = "OpenMode"
aProp(1).Value = "open"
OpenForm1 = formContainer.loadComponentFromURL(sFormName,"_blank",0,aProp())
end function

function getFormsTC() as variant
getFormsTC = thisComponent.Parent.getFormDocuments
end function

function getConnectionTC() as variant
getConnectionTC = thisComponent.Drawpage.Forms(0).ActiveConnection
end function

' ------------------------------------------
' IMPORTANTE - ABRIR FORM VISITAS
' ------------------------------------------

sub OpenForm_FVisitas( oev as variant )
sFormName = "FVisitas"
OpenForm1( getFormsTC, getConnectionTC, sFormName )
end sub
editar assinalar como ofensivo Excluir Link mais
0

respondidas 2016-09-13 16:21:06 +0200

imagem do gravatar de Rodrigo Zimmermann

A macro 1 abre um novo documento.

A solução é criar um hyperlink (muito mais simples).

editar assinalar como ofensivo Excluir Link mais

Comentários

Descobri que basta adicionar um botão de ação, e nas propriedades do mesmo basta definir a ação como "Abrir um documento".

Outro meio que encontrei também foi adicionar um subformulário (para que o navegador de formulários esteja disponível precisei abrir o documento no modo design).

imagem do gravatar de Rodrigo ZimmermannRodrigo Zimmermann ( 2016-09-14 15:14:15 +0200 )editar
Login/Registrar para responder

Ferramentas de perguntas

1 seguidor

Estatísticas

Perguntadas: 2016-09-08 21:43:02 +0200

Lidas: 420 vezes

Última atualização: Sep 13 '16