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.
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.
J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ?
Débutez en VBA
Mes articles
Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !
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 ] ?
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.
J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ?
Débutez en VBA
Mes articles
Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !
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.
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.
Salut,
Il y a un exemple dans un tuto qui permet de le faire.
http://heureuxoli.developpez.com/off...emplacer/#L3-A
J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ?
Débutez en VBA
Mes articles
Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !
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 ?
Salut,
Pour commencer, c'est là : http://heureuxoli.developpez.com/office/word/vba-all/ et là : http://heureuxoli.developpez.com/office/word/vba-word/
J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ?
Débutez en VBA
Mes articles
Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !
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 : 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 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
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 : Sélectionner tout - Visualiser dans une fenêtre à part .Replacement.Text = NetText(oRow.Cells(2).Range.Text) 'utilisation de notre fonction
J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ?
Débutez en VBA
Mes articles
Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !
Salut,
Ou dois-je l'insérer ?
.Replacement.Text = NetText(oRow.Cells(2).Range.Text) 'utilisation de notre fonction
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.
Salut,
Dans la séquence destinée au remplacement, il faut ajouter un saute de ligne ou de paragraphe.
J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ?
Débutez en VBA
Mes articles
Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !
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.
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
Salut,
Il faut cocher les caractères génériques.
J'ai pas encore de décodeur, alors, postez en clair ! Comment mettre une balise de code ?
Débutez en VBA
Mes articles
Dans un MP, vous pouvez me dire que je suis beau, ... mais si c'est une question technique je ne la lis pas ! Vous êtes prévenus !
Vous avez un bloqueur de publicités installé.
Le Club Developpez.com n'affiche que des publicités IT, discrètes et non intrusives.
Afin que nous puissions continuer à vous fournir gratuitement du contenu de qualité, merci de nous soutenir en désactivant votre bloqueur de publicités sur Developpez.com.
Partager