page1
LibOBasic-3-Calc-Flat-A4-pt-br-v111..ods
1 de 8
Referência LibreOffice
LibreOffice Basic
Calc
Documentos do LibreOffice
Documento atual
Dim oDoc As Object
oDoc = ThisComponent
Abrir um documento existente
Modo visível
Dim oDoc As Object
Dim PathDoc As String
Dim Props() 'aqui, esta tabela não está inicializada
PathDoc = ConvertToURL("C:\Path\To\CalcFile.ods")
oDoc = StarDesktop.loadComponentFromURL(PathDoc, "_blank", 0, Props(0))
Modo invisível
Dim oDoc As Object
Dim PathDoc As String
Dim Props(0) As New com.sun.star.beans.PropertyValue
PathDoc = ConvertToURL("C:\Path\To\CalcFile.ods")
Props(0).Name = "Hidden" 'o documento vai abrir escondido "
Props(0).Value = True
oDoc = StarDesktop.loadComponentFromURL(PathDoc, "_blank", 0, Props(0))
Tornar visível a posteriori
oDoc.CurrentController.Frame.ContainerWindow.Visible = True
oDoc.CurrentController.Frame.ContainerWindow.toFront()
Criando um novo documento do Calc
De (1) o modelo padrão ou (2) um modelo específico.
Dim oDoc As Object
Dim Props() 'aqui, esta tabela não está inicializada
Model = "private:factory/scalc" '(1)
'or
Model = "C:\Path\To\ACalcTemplateFile.ots" '(2)
oDoc = StarDesktop.loadComponentFromURL(Model, "_blank", 0, Props())
Salvar um documento
O documento já existe
(equivalente a Arquivo > Salvar )
Use o armazenamento de métodos do objeto de documento. Ex :
ThisComponent.store