Bonsoir,
Il faut placer un TextFields.refresh()
Option Explicit
Sub rafraichirTextField()
'le nom de la variable insérée est "Nom"
Dim oDoc as object, oFeuil as object, oVar as Object
oDoc = ThisComponent
oFeuil = oDoc.TextFieldMasters
oVar = oFeuil.getByName("com.sun.star.text.FieldMaster.User.Nom")
MsgBox "avant = " & oVar.content
oVar.content = InputBox("Modifier le contenu de oVar :","Ca va
rafraîchir ;-)")
oDoc.TextFields.refresh()
MsgBox "après = " & oVar.content
End Sub
Selon "[EMAIL PROTECTED]" <[EMAIL PROTECTED]>:
> Bonjour à tous,
> je souhaiterai d'abord à remercier Laurent pour son aide et je me permet
> de valider un code afin de compléter au mieux ce sujet :
> J'insère donc dans un document Writer, une variable (texte dans cet
> exemple) par le biais de "Insérer > Champs > Autres ...". Puis dans
> l'onglet "Variables" > Type de champ : "Champs utilisateur"
>
> Ma macro :
> Option Explicit
> Sub Main
> 'le nom de la variable insérée est "Nom"
> Dim Feuil, maVar as Object
> Dim Variable as String
>
> Feuil = thisComponent.TextFieldMasters
> maVar = Feuil.getByName("com.sun.star.text.FieldMaster.User.Nom")
> Variable = maVar.content
>
> End Sub
>
> Mon dernier problème est que lorsque je change le contenu de cette
> variable par la propriété "Content", elle en prend bien la valeur mais
> ne réactulise pas celle ci sur le document Writer.
>
> Merci de votre aide
>
> Fred
>
Francois Gatto
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
