Discussion :

[nabileon]

Bonjour les amis
je travail sur une application et je veux inserer des text sur un document word
exemple
---------------------------
" salut @@@ ca va, aujourd'hui j'ai vendu ### pieces, bla bla
bla bla %%% .
Merci . "
-------------------------------------------------
le but c'est de remplacer le @@@ par combobox1.text
le ### par combobox2.text
le %%% par combobox3.text

merci d'avance pour votre aide

[Graffito]

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
Imports Word = Microsoft.Office.Interop.Word  
Public Class Form1  
 
    ' Find / Replace in Word Document  
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click  
        Dim objWordApp As New Word.Application  
        objWordApp.Visible = True 
 
        'Open an existing document.  
        Dim objDoc As Word.Document = objWordApp.Documents.Open("C:\Trydata\1.doc")  
        objDoc = objWordApp.ActiveDocument  
 
        'Find and replace some text  
        'Replace 'VB' with 'Visual Basic'  
        objDoc.Content.Find.Execute(FindText:="VB", ReplaceWith:="Visual Basic Express", Replace:=Word.WdReplace.wdReplaceAll)  
        While objDoc.Content.Find.Execute(FindText:="  ", Wrap:=Word.WdFindWrap.wdFindContinue)  
            objDoc.Content.Find.Execute(FindText:="  ", ReplaceWith:=" ", Replace:=Word.WdReplace.wdReplaceAll, Wrap:=Word.WdFindWrap.wdFindContinue)  
        End While 
 
        'Save and close the document  
        objDoc.Save()  
        objDoc.Close()  
        objDoc = Nothing 
        objWordApp.Quit()  
        objWordApp = Nothing 
 
    End Sub 
End Class

[nabileon]

Merci fréro je vais essayé

[nabileon]

Imports Word = Microsoft.Office.Interop.Word
je blok sur l'erreur suivante

l'espace de noms ou le type specifier dans les import Microsoft.Office.Interop.Word ne contien aucun member ou est introuvable.

[infosam76]

Faire

Code :

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

1
2
 
Imports Word = Microsoft.Office.Interop.Word

ne suffit pas tu dois aussi l'ajouter dans les références de ton projet

[nabileon]

j'ai ajouter la reference "microsoft word 11.0 object library (8.3)
mais toujours le meme prbléme.

Faire

Code :

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

1
2
 
Imports Word = Microsoft.Office.Interop.Word

ne suffit pas tu dois aussi l'ajouter dans les références de ton projet

[infosam76]

j'ai ajouter la reference "microsoft word 11.0 object library (8.3)
mais toujours le meme prbléme.

Ca c'est un composant COM.

Tu dois aller dans les références NET et ajouter Microsoft.Office.Interop.Word

[nabileon]

Oui mais le probléme c'est que j'utilise .Net framework 3.5 , et je trouve pas la reference Microsoft.Office.Interop.Word
ya t'il moyen pour l'ajouter?
merci

Ca c'est un composant COM.

Tu dois aller dans les références NET et ajouter Microsoft.Office.Interop.Word

[infosam76]

Certains namespaces ont été renommé entre le 3.5 et le 4.0. Maintenant j'ai office sur mon poste il faudrait que je vérifie sur un poste qui ne l'a pas ...

[nabileon]

j'ai changer la cible de l'assembly du framwork 3.5 au framwork 4.0
merci

Certains namespaces ont été renommé entre le 3.5 et le 4.0. Maintenant j'ai office sur mon poste il faudrait que je vérifie sur un poste qui ne l'a pas ...

[nabileon]

merci l'expert pour votre aide, et j'ai deux question a vous posé

1- j'ai changer la cible de framework 3.5 au framework 4.5 , mais j'ai rencontré un probléme de connexion, l'application ne se connécte pas o base d donné localhost j'ai perdu la connexion, mais o reseau ya pas ce porbléme, pourqoui?

2- Je veux que le document word sera sauvgardé dans un repertoire diffirente avec un nom diffirente

genre

Code :

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

1
2
3
4
5
6
7
8
9
10
 
 
  Dim objDoc As Word.Document = objWordApp.Documents.Open(" c:\NOM.doc")
 
'Save and close the document  
        'objDoc.Save as ( <s>g:autreNOM.doc</s>)
        'objDoc.Close()
        'objDoc = Nothing
        'objWordApp.Quit()
        'objWordApp = Nothing

merci

Certains namespaces ont été renommé entre le 3.5 et le 4.0. Maintenant j'ai office sur mon poste il faudrait que je vérifie sur un poste qui ne l'a pas ...

[infosam76]

On pourrait avoir le code ou tu fais ta connexion DB et la string de connexion ?

[nabileon]

Code :

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

 Public connexion As New SqlConnection("Data Source=localhost; Initial Catalog=MABASE ;integrated security=sspi")

ca donne l'erreur suivante :

Le délai d'attente pour la connexion expiré. Le délai d'attente s'est écoulé au début de la phase suivant la connexion.La connexion a pu passer le délai en attendant que le serveur termine le processus de connexion et réponde. Elle peut également avoir passé le délai lors de la tentative de création de plusieurs connexions actives. Le temps écoulé lors de la tentative de connexion à ce serveur était de - [Préconnexion] initialisation=2013; poignée de main=0; [connexion] initialisation=0; authentification=0; [Post connexion] terminé=12006;

NB: ce probléme existe que lors de la connéxion localhost , en réseau ca marche.

On pourrait avoir le code ou tu fais ta connexion DB et la string de connexion ?