Macro writer sélectionner un champs de saisie

[Yoba]

Bonjour chacun,
1 ) Dans un modèle Writer j’ai inséré un certain nombre champs de saisie que j’ai trouvé de la manière ci-dessous:
Menu: Insertion/Champs/Autres Champs, onglet: fonctions type: Champs de saisie.
2) J’aimerai à l’aide d’une macro, sélectionner le texte d’un de ces champs.
3) Cela fait un moment que je cherche dans le dédale de XRay, mais point ne trouve.
Qui aurait l’amabilité de me souffler la bonne réponse avant que je ne mange mon écran.
4) J’ai essayé avec les zones de texte mais le résultat de l’impression dans un PDF ne me convient pas.
Merci pour toute réponse

[PYS]

Bonjour

Ci-dessous un exemple correspondant strictement à la demande (champs insérés comme indiqué) :

sub PysMajChamps

dim oDoc as object, oColl as object, oVar as object

oDoc = thiscomponent

oColl = oDoc.textFields.createEnumeration

do while oColl.hasMoreElements

	oVar = oColl.nextElement

	if oVar.supportsService("com.sun.star.text.TextField.Input") then
		if oVar.Hint = "Champ1" then
			oVar.Content = "Champ 1 modifié à " & time
		elseif oVar.Hint = "Champ2" then
			oVar.Content = "Champ 2 modifié à " & time
		end if
	end if
loop 

thiscomponent.getTextFields.refresh()

end sub

• Hint correspond à l’annotation donnée lors de l’insertion du champ
• Content correspond au contenu

Voir MajChamps.odt

[Ajout]

En relisant la question j’avais compris que tu désires récupérer le contenu (voire le modifier) mais s’il s’agit réellement de sélectionner le champ (dans l’interface), merci de le préciser en ajoutant un commentaire.

Cordialement

[Yoba]

Non c’est tout bon. Il s’agit bel et bien de sélectionner le contenu. Merci bien.