[VB.Net 2005]Libérer un document open office

**DonF** · 10/01/2007, 09h42

Bonjour.
Je travaille sur un projet d'automation open office, et mon soucis est de pouvoir libérer mon document sans le fermer. Alors si quelqu'un à une idée...

**jjameau** · 11/01/2007, 13h54

Qu'entends tu par libérer?

**DonF** · 12/01/2007, 12h41

En fait ce qui se passe, c'est que lorsque je click sur un bouton, mon appli ouvre un document pour y écrire. Lorsque je ferme mon document alors que mon appli est encore ouverte, j'ais un message d'erreur. C'est comme si mon appli maintenait un lien avec le document. C'est ce lien que je veut casser.

**jjameau** · 12/01/2007, 13h21

pourrais tu poster ta syntaxe pour ouvrir ton document. Ca pourrait aider peut etre que avec un Monappli = nothing ca pourrait briser le lien .. ca depend comment ton code est fait

**DonF** · 12/01/2007, 13h36

Voici le code de mes principales fonctions

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
'root object from OOo API
    Public oSM As Object        '---ServiceManager
    Public ODesk As Object     '---Desktop (Bureau)
    Public oDoc As Object       '---Document ouvert
 
    '*****************************************************************************************
    Public Sub ouvre_ObjetOOo()
        '*****************************************************************************************
        'Instanciate OOo : la première ligne est toujours exigée dans Visual Basic pour OOo
        oSM = CreateObject("com.sun.star.ServiceManager")
        ODesk = oSM.createInstance("com.sun.star.frame.Desktop")
    End Sub
 
    '*****************************************************************************************************
    Public Sub CommandOuvreDoc_Click()
        '*****************************************************************************************************
        Dim CheminOOo As String, FichierOOo As String
        CheminOOo = ""
        FichierOOo = "private:factory/swriter"
        ouvre_ObjetOOo()
        ouvre_Document(CheminOOo, FichierOOo, "")
    End Sub
 
    '*****************************************************************************************************
    Public Function ouvre_Document(ByVal CheminOOo As String, ByVal FichierOOo As String, ByVal MDPOOo As String) As Boolean
        '*****************************************************************************************************
        ' ouverture de document avec paramètres
        Dim OpenPar(2) As Object
        Dim FichierCompletOOo As String
        '----------------------------------------------------------------------------
        'Nous appelons la fonction de setOOoProp, pour accéder à la structure
        OpenPar(0) = setOOoProp("ReadOnly", False)
        OpenPar(1) = setOOoProp("Password", MDPOOo)
        OpenPar(2) = setOOoProp("Hidden", False)
        If CheminOOo = "" Then
            FichierCompletOOo = FichierOOo
        Else
            FichierCompletOOo = CheminOOo & "/" & FichierOOo
        End If
        'Maintenant nous pouvons appeler la méthode de loadComponentFromURL d'OOo,
        'en lui donnant comme quatrième argument le résultat de notre appel précédent de setOOoProp
        oDoc = ODesk.loadComponentFromURL(FichierCompletOOo, "_blank", 0, OpenPar)
    End Function
 
    '*****************************************************************************************
    Public Function setOOoProp(ByVal cName As String, ByVal uValue As Object) As Object
        '*****************************************************************************************
        'Quelques propriétés d'objet dans OOo api ont la structure de type.
        'Les structures sont l'équivalent du type défini pour l'utilisateur (UDT) dans visual basic.
        'En raison de l'exécution du pont d'UNO-Automation, il n'est pas possible de passer un UDT
        'comme argument de méthode.
        '(Cf http://api.openoffice.org/docs/DevelopersGuide/ProfUNO/ProfUNO.htm#1+4+4+5+3+Usage+of+Types).
        'dans visual basic, on doit employer une méthode particulière d'OOo api (Bridge_GetStruct):
        'il donne l'accès à une structure d'OOo dans visual basic.
        'Après ce, on peut donner le résultat de l'appel de Bridge_GetStruct comme argument dans un appel de méthode.
        'Vous pourriez par exemple employer une fonction d'aide comme ceci:
        Dim oPropertyValue As Object
        oPropertyValue = oSM.Bridge_GetStruct("com.sun.star.beans.PropertyValue")
        oPropertyValue.Name = cName
        oPropertyValue.Value = uValue
        setOOoProp = oPropertyValue
    End Function
 
    Public Sub OOo_Test()
 
        Dim Table, Cols, Rows, Cell, Separator As Object
        Dim oText, oCursor As Object
        'Dim args()
 
        oText = oDoc.getText()
        'Création du curseur d'écriture
        oCursor = oText.createTextCursor
        'Déplace le curseur a la fin , sans sélection(False)
        oCursor.gotoEnd(False)
        'insère du texte et un saut de ligne a l'emplacement du curseur , Sans sélection(False)
        oText.insertString(oCursor, vbLf & vbLf & vbLf & vbLf & vbLf & vbLf, False)
        Table = oDoc.CreateInstance("com.sun.star.text.TextTable")
        Table.initialize(6, 5)
        oText.insertTextContent(oCursor, Table, False)
 
        Cols = Table.getColumns
        Rows = Table.getRows
 
        Separator = Table.TableColumnSeparators
        Separator(0).Position = 1000
        Separator(1).Position = 4850
        Separator(2).Position = 5150
        Separator(3).Position = 6150
        Table.TableColumnSeparators = Separator
 
        'Inscription des libellés
        Cell = Table.getCellByName("E1")
        Cell.String = "Test" 
        Cell = Table.getCellByName("A2")
        Cell.String = "A2"
        Cell = Table.getCellByName("A3")
        Cell.String = "A3"
        Cell = Table.getCellByName("A4")
        Cell.String = "A4"
        Cell = Table.getCellByName("B4")
        Cell.String = "B4"
        Cell = Table.getCellByName("A5")
        Cell.String = "A5"
        Cell = Table.getCellByName("B5")
        Cell.String = "B5"
        Cell = Table.getCellByName("A6")
        Cell.String = "A6"
        Cell = Table.getCellByName("B6")
        Cell.String = "B6"
 
        'Prise en main
        oCursor.gotoEnd(False)
    End Sub

et voilà le code de mon bouton

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        CommandOuvreDoc_Click()
        OOo_Test()
    End Sub

**jjameau** · 12/01/2007, 18h08

je pense qu'il faut que tu regardes plus particulièrement cette méthode (doc?)

oDoc = ODesk.loadComponentFromURL(FichierCompletOOo, "_blank", 0, OpenPar)

Il peut y avoir un lien entre oDoc et donc document, essai peut etre cela

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        CommandOuvreDoc_Click()
        OOo_Test()
        oDoc = nothing
    End Sub

mais dans ce cas tu ne pourra plus piloter ton logiciel avec ton appli...

Sinon si tu peux poster l'erreur qui ressort quand tu fermes ton document cela pourrait aider...

**DonF** · 15/01/2007, 17h39

j'ais un message critique intitulé: "Microsoft Visual C++ Runtime Library"

Le corps du message est le suivant:

Runtime Error !
Program: C:\Program Files\OpenOffice.org 2.0\program\soffice.BIN
R6025
- pure virtual function call

[VB.Net 2005]Libérer un document open office

Windows Forms

Discussions similaires

Partager

Partager