Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
Mehdi HAMMADI
Bonjour, je vous propose le code ci-après, réalisé sous Word 2007.
Utilisation: 1/- Ajouter la macro dans un module VBA 2/- Sur votre document Word, sélectionnez le texte à transformer 3/- Exécuter la macro à partir due l'onglet "développeur" ou d'un raccourcis de votre choix, le texte précédent est remplacé
La macro: Sub Insertion1() Dim TexteOrigine As String Dim NouveauTexte As String
"Fetnat" a écrit dans le message de groupe de discussion : #
Bonjour à tous,
Je cherche une macro pour insérer un caractère prédéterminé (comme ; ou _ ou autre)entre chaque lettre d'un mot en surbrillance.
Je n'ai pas trouvé dans les archives avec différents termes de recherches.
A défaut, si une base similaire existe pour démarrer.
Merci pour votre aide.
Cordialement
fetnat
Bonjour,
je vous propose le code ci-après, réalisé sous Word 2007.
Utilisation:
1/- Ajouter la macro dans un module VBA
2/- Sur votre document Word, sélectionnez le texte à transformer
3/- Exécuter la macro à partir due l'onglet "développeur" ou d'un raccourcis
de votre choix, le texte précédent est remplacé
La macro:
Sub Insertion1()
Dim TexteOrigine As String
Dim NouveauTexte As String
Bonjour, je vous propose le code ci-après, réalisé sous Word 2007.
Utilisation: 1/- Ajouter la macro dans un module VBA 2/- Sur votre document Word, sélectionnez le texte à transformer 3/- Exécuter la macro à partir due l'onglet "développeur" ou d'un raccourcis de votre choix, le texte précédent est remplacé
La macro: Sub Insertion1() Dim TexteOrigine As String Dim NouveauTexte As String
"Fetnat" a écrit dans le message de groupe de discussion : #
Bonjour à tous,
Je cherche une macro pour insérer un caractère prédéterminé (comme ; ou _ ou autre)entre chaque lettre d'un mot en surbrillance.
Je n'ai pas trouvé dans les archives avec différents termes de recherches.
A défaut, si une base similaire existe pour démarrer.
Merci pour votre aide.
Cordialement
fetnat
Fetnat
Bonsoir Medhi,
C'est une merveille, exactement ce que je voulais.
Merci beaucoup.
Cordialement
Fetnat
Le 15/03/2010 18:48, Mehdi HAMMADI a écrit :
Bonjour, je vous propose le code ci-après, réalisé sous Word 2007.
Utilisation: 1/- Ajouter la macro dans un module VBA 2/- Sur votre document Word, sélectionnez le texte à transformer 3/- Exécuter la macro à partir due l'onglet "développeur" ou d'un raccourcis de votre choix, le texte précédent est remplacé
La macro: Sub Insertion1() Dim TexteOrigine As String Dim NouveauTexte As String
For intIndex = 2 To Len(TexteOrigine) - 1 NouveauTexte = NouveauTexte & "_" & Mid$(TexteOrigine, intIndex, 1) Next NouveauTexte = NouveauTexte & Right$(TexteOrigine, 1)
Selection.TypeText Text:=NouveauTexte end sub
Donnez-nous vos impressions. Merci
Bonsoir Medhi,
C'est une merveille, exactement ce que je voulais.
Merci beaucoup.
Cordialement
Fetnat
Le 15/03/2010 18:48, Mehdi HAMMADI a écrit :
Bonjour,
je vous propose le code ci-après, réalisé sous Word 2007.
Utilisation:
1/- Ajouter la macro dans un module VBA
2/- Sur votre document Word, sélectionnez le texte à transformer
3/- Exécuter la macro à partir due l'onglet "développeur" ou d'un
raccourcis de votre choix, le texte précédent est remplacé
La macro:
Sub Insertion1()
Dim TexteOrigine As String
Dim NouveauTexte As String
C'est une merveille, exactement ce que je voulais.
Merci beaucoup.
Cordialement
Fetnat
Le 15/03/2010 18:48, Mehdi HAMMADI a écrit :
Bonjour, je vous propose le code ci-après, réalisé sous Word 2007.
Utilisation: 1/- Ajouter la macro dans un module VBA 2/- Sur votre document Word, sélectionnez le texte à transformer 3/- Exécuter la macro à partir due l'onglet "développeur" ou d'un raccourcis de votre choix, le texte précédent est remplacé
La macro: Sub Insertion1() Dim TexteOrigine As String Dim NouveauTexte As String
