Macro Word : Erreur d'execution 4608 : Chaine de caractère trop longue
BOnjour ,
J'ai édité une macro relié à des formulaire de champ case a cocher et zone de saisie de texte
L'idée est que l'orsque je coche la case un certain texte apparait et que lorsque je la décoche un autre apparait .
La macro fonctionne , seulement la chaine de caractère que je veux faire apparaitre est trop longue et j'ai un message d'erreur erreur 4608 !
Pourtant sur les parametre de la zone de texte j'ai bien mis nombre de caractères illimités . Y a t il une solution pour pouvoir insérer beaucoup de lignes sans limites ?
Je suis sous word 2013 et voici la macro :
Code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| Sub caseacocher1()
Dim macase As CheckBox
Dim montexte As FormField
Set macase = ActiveDocument.FormFields("Case1").CheckBox
Set montexte = ActiveDocument.FormFields("Texte1")
If macase.Value = True Then
montexte.Result = "Poste 1: Réunion d'enclenchement, plan de prévention et visite d'inspection commune "
Else: montexte.Result = ""
End If
End Sub |
Merci d'avance ;)
Yoann
