New Word.application en VB6

Bonjour,

Utilises plutot
Set AppWord = CreateObject("Word.Application")


--
Cordialement,

Sebastien Bovo
Microsoft France
----------
Ce message est fourni en l'état, sans garantie d'aucune sorte, et ne vous
confère aucun droit. Vous assumez tous les risques liés à son utilisation.


"ijmls" <ijmls@discussions.microsoft.com> wrote in message
news:1EBA2FE0-3334-4D37-A66A-B045A064BA7A@microsoft.com...

J'ai un gros problème, lorsque vient le moment de créer cette instance Set
AppWord=New Word.application. Le message que j'obtiens est "Error in
loading
DLL". Maintenant, je vais voir dans la liste des processus, et je vois mon
application Winword qui attend que je termine. Le code que j'ai
fonctionnait,
jusqu'à ce que j'installe le SP3 d'Office 2000, et XP. Je suis vraiment
embêté, car c'est un bug, ou je n'ai aucun control.

Merci

Sébastien, j'ai fait ce test, et ça ne fonctionne pas. Est-ce que tu as fait
le test avec la version d'office sp3. Le problème c'est sp3 d'office 2000, et
xp. Avant, mon logiciel fonctionnait très bien.


"Sebastien Bovo [MS]" a écrit :

Bonjour,

Utilises plutot
Set AppWord = CreateObject("Word.Application")


--
Cordialement,

Sebastien Bovo
Microsoft France
----------
Ce message est fourni en l'état, sans garantie d'aucune sorte, et ne vous
confère aucun droit. Vous assumez tous les risques liés à son utilisation.


"ijmls" <ijmls@discussions.microsoft.com> wrote in message
news:1EBA2FE0-3334-4D37-A66A-B045A064BA7A@microsoft.com...
> J'ai un gros problème, lorsque vient le moment de créer cette instance Set
> AppWord=New Word.application. Le message que j'obtiens est "Error in
> loading
> DLL". Maintenant, je vais voir dans la liste des processus, et je vois mon
> application Winword qui attend que je termine. Le code que j'ai
> fonctionnait,
> jusqu'à ce que j'installe le SP3 d'Office 2000, et XP. Je suis vraiment
> embêté, car c'est un bug, ou je n'ai aucun control.
>
> Merci

Bonjour,

Je n'ai pas fait le test avec Office 2000 SP3. As-tu le service pack 6 de
VB6 ?
As-tu la même erreur avec Set AppWord = CreateObject("Word.Application") ?
As-tu un message d'erreur en essayant ceci : PRB: GetObject or
GetActiveObject Cannot Find a Running Office Application -
http://support.microsoft.com/kb/238610/en-us ?

--
Cordialement,

Sebastien Bovo
Microsoft France
----------
Ce message est fourni en l'état, sans garantie d'aucune sorte, et ne vous
confère aucun droit. Vous assumez tous les risques liés à son utilisation.


"Stéphane" <Stéphane@discussions.microsoft.com> wrote in message
news:F413E531-310E-46BB-B583-C0D89EA9B4E6@microsoft.com...

Sébastien, j'ai fait ce test, et ça ne fonctionne pas. Est-ce que tu as
fait
le test avec la version d'office sp3. Le problème c'est sp3 d'office 2000,
et
xp. Avant, mon logiciel fonctionnait très bien.


"Sebastien Bovo [MS]" a écrit :

Bonjour,

Utilises plutot
Set AppWord = CreateObject("Word.Application")


--
Cordialement,

Sebastien Bovo
Microsoft France
----------
Ce message est fourni en l'état, sans garantie d'aucune sorte, et ne vous
confère aucun droit. Vous assumez tous les risques liés à son
utilisation.


"ijmls" <ijmls@discussions.microsoft.com> wrote in message
news:1EBA2FE0-3334-4D37-A66A-B045A064BA7A@microsoft.com...
> J'ai un gros problème, lorsque vient le moment de créer cette instance
> Set
> AppWord=New Word.application. Le message que j'obtiens est "Error in
> loading
> DLL". Maintenant, je vais voir dans la liste des processus, et je vois
> mon
> application Winword qui attend que je termine. Le code que j'ai
> fonctionnait,
> jusqu'à ce que j'installe le SP3 d'Office 2000, et XP. Je suis vraiment
> embêté, car c'est un bug, ou je n'ai aucun control.
>
> Merci

Voici mon code ;

Public Sub RunWord()
On Error GoTo ErrRunWord
'Fonction qui permet d'ouvrir Word ou Non s'il est déja ouvert
'Creer l'instance de word si necessaire
'Tester pour voir si l'application est deja ouverte

If AppWord Is Nothing Then 'Signifie que lobjet nexiste pas
' *************************************************
' Creer une nouvelle instance si word ne run pas deja
' *************************************************
Set AppWord = CreateObject("Word.Application")
Else
' *************************************************
' Utilise une instance creer par le programme deja ouvert
' *************************************************
Set AppWord = GetObject(, "Word.Application")
End If
Exit Sub
ErrRunWord:
Select Case Err
Case Else
MsgBox Error$ & " dans le RunWord"
Resume Next
End Select
End Sub

Écoute, je suis en VB6, SP6, mon application est distribué à plus de 150
utilisateurs. Et ceux qui ont SP3 d'office (2000, XP) ne sont plus capable
d'imprimer nos pages personnalysés.

Je suis aller voir votre page de support, suggéré, et j'ai essayé l'appèle
de Shell ..... , et j'ai tjrs le même message. Je pense suggérer à tous le
monde de ne pas installer le SP3, car il est buggé, du moins il fait buggé
mon application. il me faudrait avoir la procédure pour enlever le SP3 de
ceux qui l'on installer, si vous n'avez pas de solution.

Merci de bien vouloir m'aidé!!!

"Sebastien Bovo [MS]" a écrit :

Bonjour,

Je n'ai pas fait le test avec Office 2000 SP3. As-tu le service pack 6 de
VB6 ?
As-tu la même erreur avec Set AppWord = CreateObject("Word.Application") ?
As-tu un message d'erreur en essayant ceci : PRB: GetObject or
GetActiveObject Cannot Find a Running Office Application -
http://support.microsoft.com/kb/238610/en-us ?

--
Cordialement,

Sebastien Bovo
Microsoft France
----------
Ce message est fourni en l'état, sans garantie d'aucune sorte, et ne vous
confère aucun droit. Vous assumez tous les risques liés à son utilisation.


"Stéphane" <Stéphane@discussions.microsoft.com> wrote in message
news:F413E531-310E-46BB-B583-C0D89EA9B4E6@microsoft.com...
> Sébastien, j'ai fait ce test, et ça ne fonctionne pas. Est-ce que tu as
> fait
> le test avec la version d'office sp3. Le problème c'est sp3 d'office 2000,
> et
> xp. Avant, mon logiciel fonctionnait très bien.
>
>
> "Sebastien Bovo [MS]" a écrit :
>
>> Bonjour,
>>
>> Utilises plutot
>> Set AppWord = CreateObject("Word.Application")
>>
>>
>> --
>> Cordialement,
>>
>> Sebastien Bovo
>> Microsoft France
>> ----------
>> Ce message est fourni en l'état, sans garantie d'aucune sorte, et ne vous
>> confère aucun droit. Vous assumez tous les risques liés à son
>> utilisation.
>>
>>
>> "ijmls" <ijmls@discussions.microsoft.com> wrote in message
>> news:1EBA2FE0-3334-4D37-A66A-B045A064BA7A@microsoft.com...
>> > J'ai un gros problème, lorsque vient le moment de créer cette instance
>> > Set
>> > AppWord=New Word.application. Le message que j'obtiens est "Error in
>> > loading
>> > DLL". Maintenant, je vais voir dans la liste des processus, et je vois
>> > mon
>> > application Winword qui attend que je termine. Le code que j'ai
>> > fonctionnait,
>> > jusqu'à ce que j'installe le SP3 d'Office 2000, et XP. Je suis vraiment
>> > embêté, car c'est un bug, ou je n'ai aucun control.
>> >
>> > Merci
>>
>>
>>

Salut Sébastien,

J'ai enfin trouvé, la solution. J'ai demandé à tous le monde de mon réseau,
qui utilise mon logiciel, d'identifier les versions de OS + SP?, Office ????
+ Sp?, et compilé les stats. Des gens qui ont SP3 d'office sous WinXP + SP2
sont plus suceptible à ce que ca ne fonctionne pas. Par contre les gens en
Win2000, et Win'98, ça fonctiuonne à coup sur.

Le problème se corrige dans la façon d'initialyser la variable oWordApp;

Dim oWordApp as Object' Bon
Au lieu de;
Dim oWordApp as Word.Application 'Pas bon
...ensuite
set oWordApp = CreateObject("Word.Application")

C'est emmerdant, car de cette facon, on ne peut avoir le correcteur
automatique, et comme on n'en fait pas souvant, ou que rarement, et bien on
oublie vite les commandes. Aussi, que ca fonction, avec une configuration
plutôt qu'une autre, et bien, j'espers que microsoft va faire quelque chose
pour rendre tous ca, stable.

Enfin, merci d'avoir participé, et je te souhaite une bonne année 2005 :-)


"Steph" wrote:

Voici mon code ;

Public Sub RunWord()
On Error GoTo ErrRunWord
'Fonction qui permet d'ouvrir Word ou Non s'il est déja ouvert
'Creer l'instance de word si necessaire
'Tester pour voir si l'application est deja ouverte

If AppWord Is Nothing Then 'Signifie que lobjet nexiste pas
' *************************************************
' Creer une nouvelle instance si word ne run pas deja
' *************************************************
Set AppWord = CreateObject("Word.Application")
Else
' *************************************************
' Utilise une instance creer par le programme deja ouvert
' *************************************************
Set AppWord = GetObject(, "Word.Application")
End If
Exit Sub
ErrRunWord:
Select Case Err
Case Else
MsgBox Error$ & " dans le RunWord"
Resume Next
End Select
End Sub

Écoute, je suis en VB6, SP6, mon application est distribué à plus de 150
utilisateurs. Et ceux qui ont SP3 d'office (2000, XP) ne sont plus capable
d'imprimer nos pages personnalysés.

Je suis aller voir votre page de support, suggéré, et j'ai essayé l'appèle
de Shell ..... , et j'ai tjrs le même message. Je pense suggérer à tous le
monde de ne pas installer le SP3, car il est buggé, du moins il fait buggé
mon application. il me faudrait avoir la procédure pour enlever le SP3 de
ceux qui l'on installer, si vous n'avez pas de solution.

Merci de bien vouloir m'aidé!!!

"Sebastien Bovo [MS]" a écrit :

> Bonjour,
>
> Je n'ai pas fait le test avec Office 2000 SP3. As-tu le service pack 6 de
> VB6 ?
> As-tu la même erreur avec Set AppWord = CreateObject("Word.Application") ?
> As-tu un message d'erreur en essayant ceci : PRB: GetObject or
> GetActiveObject Cannot Find a Running Office Application -
> http://support.microsoft.com/kb/238610/en-us ?
>
> --
> Cordialement,
>
> Sebastien Bovo
> Microsoft France
> ----------
> Ce message est fourni en l'état, sans garantie d'aucune sorte, et ne vous
> confère aucun droit. Vous assumez tous les risques liés à son utilisation.
>
>
> "Stéphane" <Stéphane@discussions.microsoft.com> wrote in message
> news:F413E531-310E-46BB-B583-C0D89EA9B4E6@microsoft.com...
> > Sébastien, j'ai fait ce test, et ça ne fonctionne pas. Est-ce que tu as
> > fait
> > le test avec la version d'office sp3. Le problème c'est sp3 d'office 2000,
> > et
> > xp. Avant, mon logiciel fonctionnait très bien.
> >
> >
> > "Sebastien Bovo [MS]" a écrit :
> >
> >> Bonjour,
> >>
> >> Utilises plutot
> >> Set AppWord = CreateObject("Word.Application")
> >>
> >>
> >> --
> >> Cordialement,
> >>
> >> Sebastien Bovo
> >> Microsoft France
> >> ----------
> >> Ce message est fourni en l'état, sans garantie d'aucune sorte, et ne vous
> >> confère aucun droit. Vous assumez tous les risques liés à son
> >> utilisation.
> >>
> >>
> >> "ijmls" <ijmls@discussions.microsoft.com> wrote in message
> >> news:1EBA2FE0-3334-4D37-A66A-B045A064BA7A@microsoft.com...
> >> > J'ai un gros problème, lorsque vient le moment de créer cette instance
> >> > Set
> >> > AppWord=New Word.application. Le message que j'obtiens est "Error in
> >> > loading
> >> > DLL". Maintenant, je vais voir dans la liste des processus, et je vois
> >> > mon
> >> > application Winword qui attend que je termine. Le code que j'ai
> >> > fonctionnait,
> >> > jusqu'à ce que j'installe le SP3 d'Office 2000, et XP. Je suis vraiment
> >> > embêté, car c'est un bug, ou je n'ai aucun control.
> >> >
> >> > Merci
> >>
> >>
> >>
>
>
>

Salut à tous,
comme vous avez l'air de maitriser le Contrôle ActiveX de Word, j'aurais une
question à vous poser.
je dois réaliser l'impression de document word, mais certaint dépasse des
marges, ce qui me vaut, lors d'une impression, une messageBox m'informant que
la section XX dépasse des marges et me demandant si je souhaite ou non
continuer l'impression.
Ce que j'aimerais c'est que ce message n'aparaisse plus.
Donc si vous avez une solution je suis preneur.
Sur ce bonne journée