Modification d'un document par VBA et instances multiples de Word

Bonjour,

J'aimerais savoir s'il est possible en VBA d'insérer à l'endroit où se trouverait le curseur dans Document1 si Document1 était actif tout en travaillant dans Document2. Document2 serait modifié manuellement ou par programmation en parallèle aux modifications s'effectuant dans Document1.

Choses que je voudrais insérer par VBA dans Document1 :
tableaux, texte (avec modification de mise en forme), images, fichiers word, etc.

Donc je voudrais l'équivalent de Selection.TypeText
ou Selection.InlineShapes.AddPicture
ou Selection.InlineShapes.AddOLEObject
Pour insérer dans Document1 en ayant Document2 ouvert aussi en travaillant manuellement ou par programmation dans Document2.

Merci

Salut,

Il n'y a qu'un seul objet selection et il se trouve dans le document actif.

Si le document actif change, l'objet selection change.

Cependant, si on sélectionne du texte dans le doc 1 que l'on bascule dans le doc 2, le texte du doc 1 reste sélectionné et lorsque l'on revient au doc 1 , la sélection està nouveau active et le texte est toujours contenu dans la selection.

Pour exemple :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18

Sub TestOli002() Dim oDoc1 As Document Dim oDoc2 As Document   Set oDoc1 = ActiveDocument Set oDoc2 = Documents.Add oDoc1.Activate Selection.TypeText "texte du document 1" Selection.HomeKey unit:=wdStory, Extend:=wdExtend   oDoc2.Activate Selection.TypeText "texte du document 2" oDoc1.Activate Debug.Print Selection.Range.Text     End Sub

---

Mon projet doit alterner ajout en fin de document / ajout à un endroit précis.
Il n'est donc pas possible de le faire sans perturber le travail de l'utilisateur dans un autre document ?

Salut,

J'avais pas lu cette particularité dans le premier message !

Il suffit d'ouvrir une instance de Word pour modifier un document.

Mais si tu pouvais être plus clair et plus complet, ce serait pas plus mal.

Citation:

---

Envoyé par Heureux-oli

Salut,

Mais si tu pouvais être plus clair et plus complet, ce serait pas plus mal.

---

Contexte : L'utilisateur veut pouvoir travailler dans word sans être perturbé par une macro qu'il a lancée pour générer automatiquement un document.

C'est dans ce document que, parfois je dois ajouter du texte à la suite, parfois à un endroit précis, par exemple dans un tableau word que je viens de créer par

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

doc.Characters.Last.Select Selection.Collapse wdCollapseEnd doc.Tables.Add Selection.Range, 1, 1 doc.Tables(1).Cell(1,1).Select Selection.TypeText "Hello" doc.Characters.Last.Select Selection.Collapse wdCollapseEnd Selection.InsertParagraphAfter Selection.TypeText "Hello à la fin du doc" Selection.Collapse wdCollapseEnd Selection.InsertParagraphAfter Selection.Collapse wdCollapseEnd Set tabl = doc.Tables.Add Selection.Range, 2, 2 tabl.Cell(1,2).Select Selection.TypeText "2ème tableau" doc.Characters.Last.Select 'Insertion à la fin du document

---

Ma question est donc est-il possible de modifier doc, de la même manière que le code ci-dessus le ferait, sans que doc soit actif, car l'utilisateur travaille dans document 2. C'est donc document 2 qui est actif. Il faut que le code ci-dessus agisse sur doc et laisse mon document 2 tranquille et qu'il reste actif pour qu'on puisse quand même continuer à écrire dedans.
Dans le projet, c'est une boucle donc il faudrait qu'on puisse quand même travailler dans doc 2 sans avoir à attendre la fin de la macro.

Il peut y avoir des changements de police par VBA que je veux garder donc avec l'objet Range, ça me semble compliqué.

Salut,

Essaie ce 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

Sub Testolivier0012() Dim wApp As Word.Application Dim odoc1 As Document Dim odoc2 As Document Dim oTbl As Table     Set odoc1 = ActiveDocument Set wApp = New Word.Application Set odoc2 = wApp.Documents.Add     odoc2.Select odoc2.Range.Text = "Salut comment vas tu bien ?"   Selection.TypeParagraph Set oTbl = odoc2.Tables.Add(Range:=odoc2.Paragraphs(1).Range, Numrows:=5, numcolumns:=5) oTbl.Cell(1, 1).Range.Text = "Nouveau texte" odoc1.Select Selection.TypeText "Le texte du premier document" wApp.Visible = True   End Sub

---

Merci, mais après avoir testé, je me rends compte que le document ne contient que le tableau et que "Salut comment vas tu bien a été effacé.
J'ai modifié ce code pour que ce ne soit plus le cas. Je l'ai mis dans une boucle pour que l'exécution soit assez longue pour voir si l'utilisateur peut entre temps modifier un autre document.

Tant que la macro s'exécute, l'utilisateur ne peut modifier le document à partir de laquelle celle-ci a été lancée.

Est-il possible de lancer une nouvelle application et lui demander de modifier elle-même odoc2 ? Qu'en est-il si la macro a des arguments ?

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

Sub Testolivier0012_Modifie() Dim wApp As Word.Application Dim odoc1 As Document Dim odoc2 As Document Dim oTbl As Table   Set odoc1 = ActiveDocument Set wApp = New Word.Application Set odoc2 = wApp.Documents.Add() wApp.Visible = True Dim s As String Set odoc2 = Application.Documents.Add() While i < 39 i = i + 1 odoc2.Characters.Last.Select wApp.Selection.Collapse wdCollapseStart Set oTbl = odoc2.Tables.Add(Range:=wApp.Selection.Range, Numrows:=5, numcolumns:=5) oTbl.Style = "Table Grid" oTbl.Cell(1, 1).Range.Select wApp.Selection.TypeText "Nouveau texte" odoc2.Characters.Last.Select wApp.Selection.Collapse wdCollapseEnd wApp.Selection.TypeParagraph Wend wApp.Selection.Collapse wdCollapseEnd Set oTbl = odoc2.Tables.Add(wApp.Selection.Range, 5, 5) oTbl.Style = "Table Grid" oTbl.Cell(1, 1).Select wApp.Selection.TypeText "Hello" End Sub

---

Suis-je bête...
Pour arriver à générer un document sans perturber l'utilisateur,
il suffit que celui-ci lance le document word qui contient la macro avec la commande :

Code:

---

winword.exe /x MaMacro.docm

---

Je suppose qu'on ne va jamais enregistrer un document dans C:\Program Files\Microsoft Office\Office14

On peut donc créer un fichier .cmd qui se trouve dans le répertoire où on a stocké MaMacro.docm et qui contient les lignes suivantes:

Code:

---

1 2	Set a= %cd%\MaMacro.docm "C:\Program Files\Microsoft Office\Office14\winword.exe" /x %a%

---

/x force word à ouvrir le document MaMacro.docm dans une nouvelle instance. Ainsi, pas de gêne pour l'utilisateur...