IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

VBScript Discussion :

insérer un mot sans formatage dans un texte formaté


Sujet :

VBScript

  1. #1
    Candidat au Club
    Inscrit en
    Novembre 2007
    Messages
    5
    Détails du profil
    Informations personnelles :
    Âge : 48

    Informations forums :
    Inscription : Novembre 2007
    Messages : 5
    Points : 4
    Points
    4
    Par défaut insérer un mot sans formatage dans un texte formaté
    Bonjour à tous,

    c'est avec un peu d'émotion que j'écris sur ce forum pour la première fois. Je vous dois déjà quelques lignes de code que j'ai récupéré en vous lisant et je peux enfin vous en remercier.
    J'apprends petit à petit le vbscript grâce à vous entre autre mais là j'ai un petit problème dont je n'arrive pas à trouver la solution malgré tout mes efforts alors que je pense que ça doit être tout bête. Peut-être pourrez vous m'éclairer.

    Je me demande s'il est possible d'insérer une chaine de caractère sans format (par exemple sans italique) à l'intérieur d'un paragraphe qui lui est formaté (par exemple en italique).

    exemple concret, je cherche les éléments surlignés et je veux insérer des balises avant et après. Le texte doit rester surligné (et italique s'il est italique ect...) mais les balises elles ne doivent pas l'être (ne doivent pas prendre le formatage du texte surligné).

    voici le morceau de code incriminé (j'ai essayé avec plein de variantes) :

    Code : Sélectionner tout - Visualiser dans une fenêtre à part
    1
    2
    3
    4
    5
    6
    7
    8
    9
    10
    ActiveDocument.Content.Select
        Selection.Find.ClearFormatting
        Selection.Find.Highlight = True
     
        While Selection.Find.Execute
            Selection.InsertBefore Text:="<t>"
            Selection.InsertAfter Text:="</t>"
            Selection.MoveRight Unit:=wdCharacter, Count:=1
     
        Wend
    si quelqu'un a une idée sur la ligne de code à insérer ou me dire si c'est impossible, je lui en serait reconnaissant.

    merci d'avance

    Happyculteur

  2. #2
    Expert éminent sénior


    Profil pro
    Inscrit en
    Juin 2003
    Messages
    14 008
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : Juin 2003
    Messages : 14 008
    Points : 20 038
    Points
    20 038
    Par défaut
    bonjour happyculteur.. bienvenu sur le forum ..

    pourrai tu être plus précis sur ton environnement de travail .. vu ton code je doute qu'il soit question de VBScript... ne serait-ce pas plutôt du VBA sous Word par exemple..?

  3. #3
    Candidat au Club
    Inscrit en
    Novembre 2007
    Messages
    5
    Détails du profil
    Informations personnelles :
    Âge : 48

    Informations forums :
    Inscription : Novembre 2007
    Messages : 5
    Points : 4
    Points
    4
    Par défaut
    merci de ta réponse, effectivement je me suis trompé et pourtant j'avais lu tout ce qu'il fallait savoir pour ne pas se tromper. Je suis vraiment désolé, je vais reposter dans le bon forum.

    happyculteur pas en forme aujourd'hui

Discussions similaires

  1. Réponses: 8
    Dernier message: 09/04/2013, 04h50
  2. insérer un mot sans formatage dans un texte formaté
    Par happyculteur dans le forum VBA Word
    Réponses: 5
    Dernier message: 19/11/2007, 20h55
  3. Réponses: 1
    Dernier message: 01/05/2007, 10h39
  4. insérer le caractere "retour chariot" dans le text
    Par moicats dans le forum Access
    Réponses: 11
    Dernier message: 13/04/2006, 13h56
  5. prob affichage mot en gras dans un texte
    Par klik dans le forum XML/XSL et SOAP
    Réponses: 6
    Dernier message: 13/07/2005, 08h38

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo