Publipostage : Commutateurs de formats passe de FR en US

Symptômes



Dans Word 2000, à l'ouverture d'un fichier créé sous Word 97, avec les
paramètres régionaux français, les séparateurs décimaux présents dans les
champs de publipostage sont convertis en format US (la virgule est
remplacée par un point).

C

Cause



Lors de l'ouverture d'un fichier créé sous Word 97, Word 2000 convertit
par défaut le format numérique des champs de publipostage en format US.




MOYEN DE CONTOURNEMENT :
===========================

Le moyen de contournement consiste a créer une macro substituant, à
l'intérieur des champs de publipostage, le point par la virgule.

EXEMPLE DE CODE:
Les lignes de code sont fournies par Microsoft à titre d'exemple et
suppose que vous ayez des connaissances en la matière. Microsoft n'offre
aucune garantie expresse et implicite quand à leur fonctionnement.

Le programme suivant va chercher tous les documents *.doc présents dans
le dossier d:\test, et va modifier le format numérique des champs de
publipostage en remplaçant le point par la virgule.

#########################################################################
' Code Visual Basic anglais

Sub checkfolder()
With Application.FileSearch

.NewSearch
' Set primary folder to search.
.LookIn = "d:\test"
' Search for only Word documents.
.FileName = "*.doc"
.MatchAllWordForms = True
' Execute search.
If .Execute() > 0 Then
' open document
For i = 1 To .FoundFiles.Count
Documents.Open (.FoundFiles(i))
'execute replace
If ActiveWindow.View.ShowFieldCodes = False Then
ActiveWindow.View.ShowFieldCodes = Not
ActiveWindow.View.ShowFieldCodes
End If
For Each champ In ActiveDocument.Fields
If InStr(1, champ.Code.Text, "\#") Then
champ.Code.Find.Execute FindText:=",", ReplaceWith:="",
Replace:=wdReplaceOne
champ.Code.Find.Execute FindText:=".", ReplaceWith:=",",
Replace:=wdReplaceOne
End If
Next
'close document
ActiveDocument.Close wdSaveChanges, wdoriginal
Next i
Else
MsgBox "Le dossier ne contient pas de documents"
End If
End With
End Sub
#########################################################################

MOTS-CLES :

La liste de(s) mot(s) suivant(s) permet une recherche plus efficace de
cette fiche technique :
french ; letters and mailings ; field ; format switch ; formula ;
français ; letter et publipostage ; champ ; Formule


kbhelpfile kbhowto kbkeyword kbmacro kbother kbprg kbusage
Propriétés

ID d'article : 19897 - Dernière mise à jour : 11 oct. 2006 - Révision : 1

Commentaires