Poser votre question
0

Macro writer sélectionner un champs de saisie

posée 2020-02-03 17:25:54 +0100

Image Gravatar de 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

éditer requalifier signaler fermer fusionner supprimer

1Réponse

0

répondue 2020-02-03 17:51:08 +0100

Image Gravatar de pierre-yves samyn

updated 2020-02-03 17:54:00 +0100

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

éditer signaler supprimer permalien plus

Commentaires

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

Image Gravatar de YobaYoba ( 2020-02-03 19:17:36 +0100 )éditer
S'identifier/S'inscrire pour répondre

Outils de question

1 suiveurs

Stats

Posée: 2020-02-03 17:25:54 +0100

Consultée: 53 fois

Mise à jour: Feb 03 '20