Discussion :

[megapacman]

bonjour,

alors je sais parcourir un fichier excel avec vba mais word je ne sais pas

j'ai besoin de remplacer une string par une autre string dans 1 page pour cela j'utiliserai replace(oldstring,newstring)

mais comment chercher oldstring dans ma page ?

comment on parcours un fichier word ?

merci

[ouskel'n'or]

Regarde find, dans l'aide, tu as l'option Replace

[ouskel'n'or]

Comme je te vois hésiter...

Code :

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

1
2
3
4
5
6
7
    Selection.HomeKey Unit:=wdStory 'envoie en début de document
    Selection.Find.Replacement.ClearFormatting 'si le format n'a pas d'importance
    With Selection.Find
        .Text = "taratata"
        .Replacement.Text = "blabla"
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

A+

[megapacman]

oui ca fonctionne merci

donc ca done ca par exemple :

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
 
 
Sub cover()
 
Dim myRange As Range
Dim volume As String
Dim filename As String
 
 
filename = "D:\test\04_!cover.doc"
Debug.Print filename
 
volume = "Volume1"
Debug.Print volume
 
Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:="#NUMBER#", ReplaceWith:=volume, _
    Replace:=wdReplaceAll
 
ActiveDocument.SaveAs filename:=filename
 
 
 
End Sub

j'ai une liste excel de volume ,

comment par exemple parcourir ma liste de volume (fichier excel) puis ouvrir le doc word remplace le volume par celui de la liste parcouru sauvegarde sous puis ferme et prend le le volume suivant de excel

merci

[ouskel'n'or]

Je ne comprends pas ce que tu veux faire Désolé.
Parcourir un répertoire pour avoir la liste des fichiers contenus ?
Mais après...
Peux-tu expliquer point par point ?

Une remarque : Filename est un mot clé de VBA, tu dois éviter d'utiliser les mots clés comme nom de variable sinon tu vas avoir des problèmes Utilise plutôt un truc comme "NomFich"

[megapacman]

donc par exemple j'ai une cover sous word

avec une balise #NUMBER# on va dire que ce doc word est une template

et stocké dans un repertoire


le but est d'ouvrir mon fichier excel avec la liste de volumes (environ 100)
et pour chaque volume ouvrir la cover sous word changer le #NUMBER# en le nom de volume en cours de mon fichier excel puis enregistrer sous le cover nom du volume .doc sans toucher au template cover.doc ce qui va creer environ 100 covers avec le nom du volume sur chaque cover

j'espere que j'ai ete assez clair dans mes explications

oki doki je change filename

merci pour ton aide

[megapacman]

merci les gars en fait, ca commence a entrer le vba word

il faut une periode d'adaptation (c mieux vba excel quand meme )

donc j'ai une liste de volumes volume-01-01 soit 12lettres), vol2.....vol100
je parcours cette liste word de volume , et j'ouvre ma cover (jaquette)
template je change le nom du volume et je sauvegarde sous le nom de mon volume et donc ca me fait 100 jaquettes avec le nom qui lui correspond

ouf voila , donc voila mon code et il fonctionne pour ceux que ca peut aider

volume.doc c'est ma liste de volume dans un tableau word a 1 colonne
cover.doc est la jaquette template qui ne change jamais avec #NUMBER#

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
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
 
 
Public volume As String
 
Sub parcour()
 
Dim i As Integer
Dim fin As Integer
Dim vol As Variant
Dim volumefile As String
Dim coverfile As String
 
coverfile = "H:\My Documents\Travail\Macro\macro planjo 171106\cover.doc"
Debug.Print coverfile
 
volumefile = "H:\My Documents\Travail\Macro\macro planjo 171106\Volume.doc"
Debug.Print volumefile
 
Documents(volumefile).Activate
 
fin = Selection.Tables(1).Columns(1).Cells.Count
Debug.Print fin
 
For i = 1 To fin
 
vol = Left(Selection.Tables(1).Columns(1).Cells(i), 12)
 
volume = vol
Debug.Print volume
 
Call cover
 
Next i
 
 
End Sub
 
Sub cover()
 
Dim myRange As Range
Dim newcoverfile As String
Dim volumefile As String
Dim coverfile As String
 
coverfile = "H:\My Documents\Travail\Macro\macro planjo 171106\cover.doc"
Debug.Print coverfile
 
volumefile = "H:\My Documents\Travail\Macro\macro planjo 171106\Volume.doc"
Debug.Print volumefile
 
Documents(coverfile).Activate
 
Debug.Print volume
 
newcoverfile = "D:\test\Cover_" & volume
Debug.Print newcoverfile
 
Set myRange = ActiveDocument.Content
myRange.Find.Execute FindText:="#NUMBER#", ReplaceWith:=volume, _
    Replace:=wdReplaceAll
 
ActiveDocument.SaveAs filename:=newcoverfile
 
ActiveDocument.Close SaveChanges:=wdSaveChanges
 
Documents.Open (coverfile)
 
Documents(volumefile).Activate
 
End Sub

ce n'est qu'une partie mais ca commence bien

merci les gars pour votre aide