Erreur dans le code (ouvrir document Word)

Version imprimable

Bonjour,

je suis débutante en VB.NET et j'ai écrit ce code pour simplement ouvrir un document Word mais il ne fonctionne pas. Est-ce que quelqu'un peut me dire où est l'erreur ?

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
Public Class Form1
 
    Dim WordApp As Word.Application
    Dim WordDoc As Word.Document
    Dim oW As Object
 
    Private Sub Button1_Click()
        WordApp = CreateObject("Word.Application")
        WordApp.Visible = True
        Process.Start("C:\Utilisateurs\lculot\exemple.doc")
    End Sub
 
 
End Class

Essaie ça

Code:

1
2
3
Private Sub Button1_Click()
    Process.Start("C:\Utilisateurs\lculot\exemple.doc")
End Sub

bonjour,

sinon, moi j'utilise ça et ça marche très bien:

Code:

1
2
3
4
5
Dim doctrouve As Word.Document
            Dim app As Word.Application
            app = CreateObject("Word.Application")
            app.Visible = True
            doctrouve = app.Documents.Open(CType(Lstresult.Tag(Lstresult.SelectedIndex), Object))

Merci mais j'ai encore les erreurs suivantes :

Dans "Dim oWord As Word.Application"

Citation:

Application est ambigu dans l'espace de nom "Microsoft.Office.Interop.Word"

"Dim oDoc As Word.Document"

Citation:

Document est ambigu dans l'espace de nom "Microsoft.Office.Interop.Word"

"Me.Close"

Citation:

erreur de syntaxe

Code:

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
 
Imports Word = Microsoft.Office.Interop.Word
 
Public Class Form1
 
    Dim oWord As Word.Application
    Dim oDoc As Word.Document
 
    'Start word and open the document template
    oWord = CreateObject("Word.Application")
    oWord.Visible = True
 
 
    'Open a document
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Process.Start("C:\Utilisateurs\lculot\Exemple.docx")
    End Sub
 
    'Convert .docx to .doc
    Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
 
    End Sub
 
    'Replace a bookmark
    Private Sub Button3_Click(sender As System.Object, e As System.EventArgs) Handles Button3.Click
        oDoc = oWord.Document.Add
        oWord.Documents.Add("C:\Cartolink Desktop\Urbanisme\Templates\Avis\AvisAgric.dot")
        oDoc.Bookmarks.Item("INITIALES").Range.Text = "LC"
    End Sub
 
    'All done. Close this form
     Me.Close()
 
End Class

23/02/2012, 00h35
Graffito
Code:

1 2 3 4 5 Dim oWord As Microsoft.Office.Interop.Word.Application Dim oDoc As Microsoft.Office.Interop.Word.Document
Sinon, le problème pourrait (mais j'y crois pas trop) venir du fait que plusieurs versions de Word sont installées sur le PC.
23/02/2012, 10h03
pitite

Merci mais ça ne change rien. Toujours les même erreurs et je n'ai que Word 2007 sur mon PC
23/02/2012, 10h06
Livesecours

as-tu bien importé la référence office et la référence word dans ton projet?

Oui, c'était bien un problème de référence qui était présente 2 fois

J'ai améliorer un peu mon le code :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
Imports Word = Microsoft.Office.Interop.Word
 
Public Class Form1
 
    Dim oWord As Word.Application
    Dim oDoc As Word.Document
 
    'Open a document
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        Try
            oWord = CreateObject("Word.Application")
            oWord.Visible = True
            oDoc = oWord.Document.Add
            'Process.Start("C:\Utilisateurs\lculot\Documents\Exemple.docx")
        Catch ex As Exception
            MessageBox.Show("Erreur lors de l'ouverture du document")
        End Try
    End Sub

Mais à chaque fois que je le lance, j'ai la MessageBox qui se lance et jamais le document s'ouvre

Pendant que j'y suis comment transforme-t-on un .dot en .docx ?

23/02/2012, 15h34
franticfranz

Bonjour,

Remplacez

Code:

oDoc = oWord.Document.Add

Par

Code:

oDoc = oWord.Documents.Add()

Citation:

Pendant que j'y suis comment transforme t'on un .dot en .docx ?

La méthode sauvage consiste à changer l'extension ".dot" ou ".dotx" en ".doc". Mais je ne crois pas que ça fonctionne avec les ".docx".

Sinon je suppose qu'il faut ouvrir le ".dot" et l'enregistrer sous un document ".docx"

Bizarre néanmoins comme besoin : pourquoi convertir un modèle de document en document ?

J'ai essayé ceci :
- ouvrir un template
- remplacer un bookmark par du texte
- l'enregistrer
mais j'ai à chaque fois la messagebox qui s'affiche

Code:

1
2
3
4
5
6
7
8
9
10
11
12
   'Replace a bookmark
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
        Try
            oWord = CreateObject("Word.Application")
            oWord.Visible = True
            oWord.Documents.Add("C:\Cartolink Desktop\Urbanisme\Templates\Avis\AvisIDEA.dot")
            oDoc.Bookmarks.Item("INITIALES").Range.Text = "LC"
            oWord.ActiveDocument.SaveAs("AvisIDEA.docx", "C:\Users\lculot\Documents\")
            Process.Start("C:\Users\lculot\Documents\AvisIDEA.docx")
        Catch ex As Exception
            MessageBox.Show("Impossible de remplacer le bookmark")
        End Try

24/02/2012, 13h51
Graffito

Il faudrait aussi afficher le message renvoyé dans l'exception, à savoir ex.Message.ToString().
Et identifier quelle instruction gènére cette exception

Bonjour

Voici le code que j'utilise et qui fonctionne tres bien :
En utilisant :

Code:

1
2
 
Imports Microsoft.Office.Interop.Word

Déclaration globale :

Code:

1
2
3
 
Dim AppWord As New Microsoft.Office.Interop.Word.Application
Dim w As Microsoft.Office.Interop.Word.Document

Code :

Code:

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
 
 'Dim w As Microsoft.Office.Interop.Word.Document = AppWord.Documents.Add(modelPath.ToString)
        Try
            AppWord.ActivePrinter = My.Settings.printer
            nbCopieEtiquette = CInt(NUD_nbCopie.Value)
 
            For numEtiquette = CInt(TBX_finNumDep.Text) To CInt(TBX_finNumFin.Text) Step 1
                For numCopie = 1 To CInt(NUD_nbCopie.Value) Step 1
                    If stopPrint = False Then
                        w = New Microsoft.Office.Interop.Word.Document
                        w = AppWord.Documents.Add(modelPath.ToString)
                        code25i = New CodeBarre.Code25i(debNum & CStr(numEtiquette))
 
                        w.Bookmarks("numEti").Range.Text = CStr(numEtiquette)
                        w.Bookmarks("dateEti").Range.Text = CStr(DTP_dateEdition.Value.ToString.Substring(0, 10))
                        w.Bookmarks("codabar").Range.Text = code25i.getAscii25i 'code25i .dot
                        w.Bookmarks("libNature").Range.Text = libNature
                        w.Bookmarks("codeEti").Range.Text = debNum & CStr(numEtiquette)
 
                        w.PrintOut(False, False)
                        Threading.Thread.Sleep(500)
 
                        w.Close(Microsoft.Office.Interop.Word.WdSaveOptions.wdDoNotSaveChanges)
                        nbEtiPrint = nbEtiPrint + 1
 
                    End If
                Next
            Next
        Catch ex As Exception
            erreurBgWorker = ex.ToString
            stopPrint = True
        End Try

Ce code me permet d'imprimer en boucle à partir d'un modèle .DOT comportant plusieurs signets. Impression d'étiquette code barre pour inventaire de matériel.