Forum |  HardWare.fr | News | Articles | PC | S'identifier | S'inscrire | Shop Recherche
979 connectés 

  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA] Remplacer du texte par un champ Word

 


 Mot :   Pseudo :  
 
Bas de page
Auteur Sujet :

[VBA] Remplacer du texte par un champ Word

n°553352
urd-sama
waste of space
Posté le 29-10-2003 à 11:20:28  profilanswer
 

coucou all :hello:
j'ai un collègue qui a un petit problème avec du vba, si vous pouviez nous aider ca serait sympa  :)  
 
On aimerait remplacer un bout de texte dans un document Word par un champ (Nom de l'auteur).
 
On arrive sans autre a remplacer le texte par un autre texte, mais pas avec un champ.
 
Voilà le code pour remplacer le texte par un autre texte:
 
Selection.Find.ClearFormatting
   Selection.Find.Replacement.ClearFormatting
   With Selection.Find
      .Text = "%FIELD_pFrmPropProjectName%"  'Texte à remplacer
      .Replacement.Text = "<doc_name>"             'Remplacer par ce texte
      .Forward = True
      .Wrap = wdFindContinue
   End With
 Selection.Find.Execute Replace:=wdReplaceAll
 
Merci d'avance [:zytra]

mood
Publicité
Posté le 29-10-2003 à 11:20:28  profilanswer
 

n°553357
walli
Posté le 29-10-2003 à 11:33:53  profilanswer
 

t'as toujours pas essayé avec des signets ? ;)


---------------
NP :
n°553543
C17
-$$ W A N T E D $$-
Posté le 29-10-2003 à 14:06:04  profilanswer
 

Code :
  1. If FClient.ListClient!secteur <> "" And Not (IsNull(FClient.ListClient!secteur)) Then
  2.     X = Remplacer("[SECTEUR CLIENT]", FClient.ListClient!secteur)
  3. Else
  4.     X = Remplacer("[SECTEUR CLIENT]", "" )
  5. End If
  6. Private Function Remplacer(X As String, Y As String)
  7. With AppWord2.Documents.Application.Selection.Find
  8.     .ClearFormatting
  9.     .Replacement.ClearFormatting
  10.         .Text = X
  11.         .Replacement.Text = Y
  12.         .Forward = True
  13.         .Wrap = wdFindContinue
  14.         .Format = False
  15.         .MatchCase = False
  16.         .MatchWholeWord = False
  17.         .MatchWildcards = False
  18.         .MatchSoundsLike = False
  19.         .MatchAllWordForms = False
  20.     .Execute Replace:=wdReplaceAll
  21.     DoEvents
  22. End With
  23. End Function


 
voili voilou !  


---------------
C17

Aller à :
Ajouter une réponse
  FORUM HardWare.fr
  Programmation
  VB/VBA/VBS

  [VBA] Remplacer du texte par un champ Word

 

Sujets relatifs
VbScript + Excel + Fichier texteMacro word : changer la police et la taille caractère d'un texte ?
[Python] Imprimer une liste dans une zone texte...Vba Excel et élément de menu personnalisé
[urgent] probleme avec VBA sous excel 98: Trouver la derniere ligne[VB/VBA] Comment exécuter des procédures stockées SQL Server
[Access](reponse) Renvoyer Zéro si le contenu du champ est négatif ?[VBA-OLE]Pb pour changer l'imprimante active de Word
Plus de sujets relatifs à : [VBA] Remplacer du texte par un champ Word


Copyright © 1997-2022 Hardware.fr SARL (Signaler un contenu illicite / Données personnelles) / Groupe LDLC / Shop HFR