[WD-2010] Perte format numérique [Résolu]

[Jerome2606]

Bonjour,
Je dois recréer un word protégé pour remplissage de facture qui fonctionnait sous Word 2007.
Mais il semble que Word 2010 (64 bits) m'efface à chaque fermeture du document le format numérique du champ à savoir celui fourni par le logiciel :
€ #.##0,00;(€ #.##0,00)

Cela me pose beaucoup de problèmes.
J'ai lu ceci qui concernait word 2001:
http://support.microsoft.com/default...d=kb;fr;469701

Je ne sais pas trop si ça peut m'aider, je n'ai jamais utilisé de macro auparavant.

Merci,
Jérôme

[Jerome2606]

Personne n'utilise les zones d'édition de l'outil développeur dans Word 2010 ??

[Heureux-oli]

Salut,

Le nombre d'utilisateurs de la version 64 bits est relativement faible.

[Jerome2606]

Héhé ok, pour l'instant pas encore trop intégré la suite office 64 bits, même pas par Microsoft !! MDr (Dynamics CRM 4.0 incompatible avec Outlook 64 bits c'est fou !!)

Sinon j'ai résolu mon problème avec un peu de programmation VB, je le poste au cas où quelqu'un en aurait besoin:

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
 
Sub zoneEditEuro()
'Unprotect the file
If ActiveDocument.ProtectionType <> wdNoProtection Then
    ActiveDocument.Unprotect Password:=""
End If
selectTxt = Null
'Set Format Euro
If Selection.FormFields.Count = 1 Then
    'No textbox but a check- or listbox
    'MsgBox Selection.FormFields(1).Name
    selectTxt = Selection.FormFields(1).Result
    Selection.FormFields(1).TextInput.EditType Type:=wdNumberText, Default:="", Format:="€ #.##0,00; (€ #.##0,00)"
    Selection.FormFields(1).Result = selectTxt
ElseIf Selection.FormFields.Count = 0 And Selection.Bookmarks.Count > 0 Then
    'MsgBox Selection.Bookmarks(Selection.Bookmarks.Count).Name
    selectTxt = ActiveDocument.FormFields(Selection.Bookmarks(Selection.Bookmarks.Count).Name).Result
    ActiveDocument.FormFields(Selection.Bookmarks(Selection.Bookmarks.Count).Name).TextInput.EditType Type:=wdNumberText, Default:="", Format:="€ #.##0,00; (€ #.##0,00)"
    ActiveDocument.FormFields(Selection.Bookmarks(Selection.Bookmarks.Count).Name).Result = selectTxt
End If
 
'Reprotect the document.
If ActiveDocument.ProtectionType = wdNoProtection Then
    ActiveDocument.Protect _
        Type:=wdAllowOnlyFormFields, NoReset:=True, Password:=""
End If
End Sub

A mettre dans macro à l'entrée dans les propriétés d'une zone d'édition.