La fonction rechercher-remplacer de Word 2013

Version imprimable

Voir 40 message(s) de cette discussion en une page

21/04/2014, 11h49
Heureux-oli

Salut,

Tu peux utiliser presque ce que tu veux. Il faut éviter les caractères spéciaux et éventuellement les caractères qui existeraient dans ton document.

Une triple lettre conviendrait aussi.
21/04/2014, 11h58
jawa123

oui merci.

Je constate avec zc et zd et aussi zc et z1 nouvellement que le nombre [ (21017) n'est pas identique au ] (22192).

Comment peut-on faire une recherche des mots qui n'ont pas le [ et seulement le ] ?
21/04/2014, 12h20
Heureux-oli

Salut,

Une recherche générique sur un seul caractère va donner des résultats non souhaités.
Ainsi, un recherche sur *] va sélectionner tout le texte jusqu'à ce caractère.
21/04/2014, 12h23
jawa123

Salut,

C'est ok !

J'ai utilisé z1 z2 le nombre de [] est identique (22192) et le nombre de mots mis en italique est 22159.

Tout est en ordre.

Maintenant, je souhaiterai agir dans un autre fichier composé de dialogues avec des noms comme Simon. et Michel.

Comment mettre un interligne au dessus de Simon et de Michel ?
Ainsi que les sous titres qui sont tous en italique mais avec un interligne au dessus et au dessous.
21/04/2014, 12h53
jawa123

Salut heureux-Oli,

Je suis désolé pour toutes ces questions mais mon travail de bénévole en association, consiste de réimprimés des livres du 16ème siècle, mais doivent d’abord être dactylographiés avec une orthographe modernisées.

Je souhaiterai remplacer plusieurs mots en même temps de l’ancien français en français modernisé.

Par exemple : eft en est ; mefme en même ; & en et ; vtile en utile ; souventeffois en souventes fois, etc.

Peut-on utiliser la fonction Rechercher-Remplacer à cet effet ou bien créer une macro ?

Avec mes remerciements.
21/04/2014, 14h02
Heureux-oli

Salut,

Il y a un exemple dans un tuto qui permet de le faire.

http://heureuxoli.developpez.com/off...emplacer/#L3-A
21/04/2014, 20h06
jawa123

La fonction Recherche et Remplacement en VBA

Salut,

Je n'ai jamais utilisé le VBA. J'ai lu le tuto mais je ne sais par où ni par quoi commencé.
Est-ce que je dois créer un fichier Word avec deux colonnes ayant les mots à rechercher et ceux à remplacer ?
21/04/2014, 22h57
Heureux-oli

Salut,

Pour commencer, c'est là : http://heureuxoli.developpez.com/office/word/vba-all/ et là : http://heureuxoli.developpez.com/office/word/vba-word/

Salut,

Après avoir lu les Tutos : Initiation au VBA Office ; Débutez en VBA Word ; La fonction Recherche et Remplacement en VBA.

ça fait quand même pour un novice une somme d'informations à digérer.

J'ai utilisé le code de votre Tuto ci-dessous, après avoir créer un fichier source avec 2 colonnes et le fichier cible. Ceci me donne un message d'erreur : Erreur de complilation: Sub ou Function non définie.

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
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
Sub RemplacerListeDeMots()
'-------------------------------------------------
'Cette macro a pour rôle de remplacer les mots d'un
' document par une liste de
'mots se trouvant dans une table à deux colonnes
'-------------------------------------------------
'Déclaration des variables
'Le document oDocSource , contient la
'liste des mots et le document oDocCible les mots
'à remplacer
Dim oDocSource As Document, oDocCible As Document
'Déclaration des variables table
Dim oTbl As Table
Dim oRow As Row
'Une boîte de dialogue pour choisir les documents
Dim oDlg As FileDialog
 
'Ouverture du premier document
'Affectation de l'objet oDlg
Set oDlg = Application.FileDialog(msoFileDialogFilePicker)
'Ouverture de la boîte de dialogue
With oDlg
    .AllowMultiSelect = False
    .Title = "Document contenant le tableau"
    .Show
End With
'La propriété SelectedItems contient
Set oDocSource = Documents.Open(oDlg.SelectedItems(1))
'Il faut répéter l'opération une seconde fois pour le
'document cible
With oDlg
    .AllowMultiSelect = False
    .Title = "Document avec remplacement"
    .Show
End With
'ouverture du second document
Set oDocCible = Documents.Open(oDlg.SelectedItems(1))
'Affectation de la table
Set oTbl = oDocSource.Tables(1)
'Boucle sur les cellules de la table
For Each oRow In oTbl.Rows
        'Sélection du document cible
        oDocCible.Select
            Selection.HomeKey unit:=wdStory
            With Selection.Find
                .ClearFormatting
                .Forward = True
                .Text = NetText(oRow.Cells(1).Range.Text)   'utilisation de notre fonction
                .Replacement.Text = NetText(oRow.Cells(2).Range.Text)   'utilisation de notre fonction
                .Replacement.ClearFormatting
                .Execute Replace:=wdReplaceAll
            End With
 
Next oRow
'Libération des objets
Set oDlg = Nothing
Set oTbl = Nothing
oDocSource.Close savechanges:=wdDoNotSaveChanges
Set oDocSource = Nothing
 
 
End Sub

22/04/2014, 18h02
Heureux-oli

Salut,

Il y a dans le tuto une fonction pour nettoyer le texte, elle manque.
Ce qui fait que lorsque cette fonction est appelée, une erreur est levée.

Code:

.Replacement.Text = NetText(oRow.Cells(2).Range.Text) 'utilisation de notre fonction
22/04/2014, 18h54
jawa123

Salut,

Ou dois-je l'insérer ?

.Replacement.Text = NetText(oRow.Cells(2).Range.Text) 'utilisation de notre fonction
22/04/2014, 22h16
jawa123

Bonsoir Heureux-Oli,

ça y est ! ça fonctionne !

Par ailleurs, est-ce normal, que le boite de dialogue s'ouvre 2 fois, une fois pour le fichier source et une autre fois pour le fichier cible ?

Ensuite, vous ne m'avez pas répondu sur cette question :

Maintenant, je souhaiterai agir dans un autre fichier composé de dialogues avec des noms comme Simon. et Michel.

Comment mettre une interligne au dessus de Simon et de Michel qui constituent une début de dialogue ?

Ainsi que les sous titres qui sont tous en italique mais avec un interligne au dessus et au dessous-

Avec mes remerciements.
22/04/2014, 23h57
Heureux-oli

Salut,

Dans la séquence destinée au remplacement, il faut ajouter un saute de ligne ou de paragraphe.
23/04/2014, 10h16
jawa123

Bonjour Heureux-Oli,

Merci encore pour votre aide.

Toutes mes demandes sont résolus jusqu'à présent, et cela signifie pour moi un gain de temps et de rendement considérable.

A bientôt.
24/04/2014, 20h42
lilmod

* texte

J'ai suivi cette discussion
za*zb n'est pas compris comme un texte commençant par za et finissant par zb
il est compris comme 5 caractères avec * au milieu
pourquoi
Merci heureux oli et jawa 13 pour la réponse
25/04/2014, 18h15
Heureux-oli

Salut,

Il faut cocher les caractères génériques.

Voir 40 message(s) de cette discussion en une page