High-Tech
Santé-Médecine
Droit-Finances
CodeS-SourceS
Inscription
Plan
Connexion
Rechercher un code, un tuto, une réponse
Accueil
Forum
Tutoriels
Codes Sources
Snippets
Top membres
Tous les langages
Delphi / Pascal
Java
Python
SQL
RegEx
Flash
ASM
IRC
Graphisme
PDA
ColdFusion
Foxpro
Flex
Visual Basic / VB.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
PHP
Forum
Tutoriels
Codes Sources
Snippets
Top membres
C/C++/C++.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
Javascript
Forum
Tutoriels
Codes Sources
Snippets
Top membres
C#/.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
ASP/ASP.NET
Forum
Tutoriels
Codes Sources
Snippets
Top membres
Accueil
Connexion
Déposer un code
Code
Recherche
Haut
Forum
Visual Basic
Sujet Précédent
Sujet Suivant
Macro sur word
cs_hartecel
Messages postés
2
Date d'inscription
mardi 6 décembre 2005
Statut
Membre
Dernière intervention
8 décembre 2005
- 6 déc. 2005 à 20:16
cs_hartecel
Messages postés
2
Date d'inscription
mardi 6 décembre 2005
Statut
Membre
Dernière intervention
8 décembre 2005
-
8 déc. 2005 à 13:01
Salut,
Je souhaiterai faire une macro pour remplacer certains mots d'un document word par des blancs. Ces mots seraient définis dans un tableau.
Qqn peut m'aider ?
Afficher la suite
A voir également:
Macro sur word
Activer macro outlook
-
Forum Visual Basic
Les macros sur Outlook ne fonctionnent plus et ne sont plus accessibles !
-
Forum VBA Office (Excel, Word ...)
Ouverture d'un formulaire outlook par macro
-
Forum VBA Office (Excel, Word ...)
Delphi word to string
-
Forum Delphi / Pascal
C++ word
-
Forum C / C++ / C++.NET
1 réponse
Réponse 1 / 1
cs_hartecel
Messages postés
2
Date d'inscription
mardi 6 décembre 2005
Statut
Membre
Dernière intervention
8 décembre 2005
8 déc. 2005 à 13:01
voilà ce que j'ai fait . Qqn peut me donner son avis ppour améliorer . Merci d'avance.
Sub MacroTest2()
Dim tabMots(50) As String
Dim i As Integer
tabMots(0) = "album"
tabMots(1) = "mp3"
tabMots(2) = "www"
'pour l'instant le nombre de mots n'est pas défini, j'en rajouterai au fur et à mesure
For i = 0 To 49
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = tabMots(i)
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Find.Execute Replace:=wdReplaceAll
Next i
End Sub
Discussions similaires
Rechercher et Remplacer dans Word par Macro Excel
Passager10
-
15 juin 2007 à 15:05
jrivet
-
15 oct. 2007 à 08:21
Récupérer par une macro les dimension d'une pièce sur CATIA
fehmous
-
3 juil. 2014 à 10:49
fehmous
-
4 juil. 2014 à 09:14
[VBA - Word] Recherche et ajout de texte.
Madvin
-
6 juin 2007 à 15:44
Drikce06
-
7 juin 2007 à 16:05
Activer macros outlook
biggir
-
20 août 2004 à 15:35
ajarnaud
-
16 sept. 2005 à 17:36
Remplir un fichier Word type avec des valeurs en POST PHP
Tl_IT
-
5 juin 2015 à 22:57
christianr06
-
4 juil. 2017 à 17:26
Rejoignez-nous