En vbs, est-il possible de modifier le contenu d'un fichier WordRésolu

Question

Bonsoir &#224; tous....

J'ai cr&#233;e un fichier (trame) .doc dans lequel j'ai remplac&#233; certains mots par "[PROD-total-C]", [PROD-libre-C]...
Je copie ce fichier sous un nouveau nom (.rtf).

FicInput  = "d:\ControleRICOH\Trame RICOH - Controle journalier ORACLE.doc"
FicOutput = Replace(Replace(FicInput, "Trame ",""), "ORACLE.doc", "ORACLE du " & Right(Date,4) &_
            "-" & Mid(Date, 4, 2) & "-" & Left(Date, 2) & ".rtf")
fso.CopyFile FicInput, FicOutput 

Mon souhait serait d'ouvrir ce nouveau fichier (.doc ou .rtf) et
et remplacer les valeurs "[PROD-total-C]", [PROD-libre-C]...
par le contenu de variables issues de mon script vbs.
Celui-ci r&#233;cup&#232;re l'espace disk (total, libre..) de plusieurs disks et lecteurs r&#233;seaux.

J'ai parcouru ce forum, exalead et MSDN. 
Rien ne m'a inspir&#233;.
Si quelqu'un d'entre-vous a une id&#233;e ou une orientation.
Merci.
jean-marc

J'utilise vbs pour ouvrir des .mdb, .txt ou .xls,mais  l&#224;, c'est la premi&#232;re fois
que je suis confront&#233; &#224; word.
=======================================
mauvaise synthaxe:
Dim oWordApp
Set oWordApp = CreateObject("Word.Application")


Set oDoc = oWordApp.Documents.Open(FicOutput, 1)
'un process winword est ouvert, mais pas mon fichier
=======================================

Do While Not ObjTextStream.AtEndOfStream
strtmp = Split(objTextStream.ReadLine,".")
For i = 0 To UBound(strtmp)
strtmp = Replace(strtmp, "[PROD-total-C]", [PROD-total-C])
strtmp = Replace(strtmp, "[PROD-libre-C]", [PROD-libre-C])
strtmp = Replace(strtmp, "[PROD-total-D]", [PROD-total-D])
strtmp = Replace(strtmp, "[PROD-libre-D]", [PROD-libre-D])
Next
Loop

Renfield · Accepted Answer

il suffit de faire :

Dim Word
Dim Doc

Set Word = CreateObject("Word.Application")
Word.DisplayAlerts = wdAlertsNone
Set Doc = Word.Documents.Open("i:\a.doc", True)
If Not Doc Is Nothing Then
    Doc.Tables(1).Cell(2, 2).Range.Text = "=Prod-total-C"
    Doc.Tables(1).Cell(2, 3).Range.Text = "=Prod-libre-C"
    Doc.Tables(1).Cell(3, 2).Range.Text = "=Prod-total-D"
    Doc.Tables(1).Cell(3, 3).Range.Text = "=Prod-libre-D"
    Doc.Tables(1).Cell(4, 2).Range.Text = "=Prod-total-E"
    Doc.Tables(1).Cell(4, 3).Range.Text = "=Prod-libre-E"
    Doc.Tables(1).Cell(5, 2).Range.Text = "=Prod-total-F"
    Doc.Tables(1).Cell(5, 3).Range.Text = "=Prod-libre-F"
    Doc.Tables(1).Cell(6, 2).Range.Text = "=Prod-total-G"
    Doc.Tables(1).Cell(6, 3).Range.Text = "=Prod-libre-G"
    Doc.Save
    MsgBox "Termin&#233;", vbInformation
End If
Word.Quit

pour le mettre au point, a moins d'avoir VB6 sous la main, utilise l'environnement VBA (Alt + F11 dans Word)
en tatonnant un peu , tu arriveras a tes fins

Renfield
Admin CodeS-SourceS - MVP Visual Basic

Renfield · Answer

pourquoi joues tu avec un TextStream... ?

Renfield
Admin CodeS-SourceS - MVP Visual Basic

Renfield · Answer

il suffit de faire :

Dim Word 
Dim Doc

Set Word = CreateObject("Word.Application")
Word.DisplayAlerts = wdAlertsNone

Set Doc = Word.Documents.Open("i:\a.doc", True)
If Not Doc Is Nothing Then
    Doc.Content = Replace(Doc.Content, "[PROD-total-C]", TotalC)
    Doc.Save
    MsgBox "Termin&#233;", vbInformation
End If
Word.Quit

Renfield
Admin CodeS-SourceS - MVP Visual Basic

cs_JMO · Answer

Bonjour &#224; tous....

Merci Renfield,
Je vais test&#233;. Je sais que TextStream n'est pas la bonne synthaxe,
mais je ne connais pas les fonctions VBA de Word.
Je vais regarder l'help de Word.

cs_JMO · Answer

Bonjour,

Renfield, avec ta synthaxe, les zones en variables ont bien &#233;t&#233; remplac&#233;es,
mais j'ai perdu la pr&#233;sentation de mon document !!!

Fichier avant modif:

ESPACE LIBRE SIBL-DB-PROD<?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" />


parcourrrir


PARTITION

,
ESPACE TOTAL

,
ESPACE DISPO

,
COMMENTAIRES

,
----

C : (SYSTEM)

,
[PROD-total-C]

,
[PROD-libre-C]

,
 

,
----

D : (SWAP)

,
[PROD-total-D]

,
[PROD-libre-D]

,
,
----

E : (ARCHIVELOG)

,
[PROD-total-E]

,
[PROD-libre-E]

,
Signaler si espace libre < 500Mo (archives)

Le vendredi : signaler si < 650Mo (archives)

,
----

F: (DATA)

,
[PROD-total-F]

,
[PROD-libre-F]

,

,
----

G: (INDEX)

,
[PROD-total-G]

,
[PROD-libre-G]


 
fichier apr&#232;s modif:


 


ESPACE LIBRE SIBL-DB-PROD


parcourrrir


PARTITION


ESPACE TOTAL


ESPACE DISPO


COMMENTAIRES


 


C : (SYSTEM)


10 Go          ' c'est bien le contenu de ma variable PROD_total_C


8   Go     ' c'est bien le contenu de ma variable PROD_libre_C


 


 


D : (SWAP)


27 Go


10 Go


 


 


E : (ARCHIVELOG)


[PROD-total-E]


[PROD-libre-E]


Signaler si espace libre < 500Mo (archives)


Le vendredi : signaler si < 650Mo (archives)


 


F: (DATA)



Donc, la solution finale ne doit pas &#234;tre trop eloign&#233;e.
Je suis optimiste.

jean-marc

cs_JMO · Answer

Re,

Merci Renfield.
Je n'ai plus qu'&#224; regarder l'aide dans la doc,car j'ai plusieurs tableaux &#224; renseigner
ainsi qu'&#224; remplacer des zones texte.

R&#233;sultat obtenu:

 <?xml:namespace prefix o ns "urn:schemas-microsoft-com:office:office" />


 


ESPACE LIBRE SIBL-DB-PROD


parcourrrir


PARTITION

,
ESPACE TOTAL

,
ESPACE DISPO

,
COMMENTAIRES

,
----

C : (SYSTEM)

,
9,76 Go

,
2,19 Go

,
 

,
----

D : (SWAP)

,
27,48 Go

,
10,59 Go

En vbs, est-il possible de modifier le contenu d'un fichier Word

6 réponses

Discussions similaires