[VBA] Remplacer du texte par un champ Word

Remplacer du texte par un champ Word [VBA] - VB/VBA/VBS - Programmation

Marsh Posté le 29-10-2003 à 11:20:28    

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]

Reply

Marsh Posté le 29-10-2003 à 11:20:28   

Reply

Marsh Posté le 29-10-2003 à 11:33:53    

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


---------------
NP :
Reply

Marsh Posté le 29-10-2003 à 14:06:04    

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
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed