Discussions et questions sur tout ce qui concerne la programmation tous langages et tous modules confondus.
Modérateur :Vilains modOOs
Règles du forum Balisage obligatoire dans cette section !
Aidez-nous à vous aider au mieux en balisant correctement votre question : reportez-vous sur les règles de cette section avant de poster !
J'essaie de faire une fonction qui transformerait un champs de texte en BOLD, mais ca ne fonctionne pas J'obtiens l'erreur variable d'objet non définie.
Je précise que je ne suis pas programmeur et que j'essaie d'adapter des bouts de code trouvés par ci par la.
Voici le morceau de code, qui devrait fonctionner par l'appel de BOLDIFY ("exemple") si le champs de texte sur mon document s'appelle exemple.
Function BOLDIFY(NomChampMaitre as String)
Dim oEnum, oField
oEnum = ThisComponent.getTextFields().createEnumeration()
Do While oEnum.hasMoreElements()
oField = oEnum.nextElement()
If oField.TextFieldMaster.Name = NomChampMaitre Then
BOLDIFY = oField.TextFieldMaster.Content
End If
Loop
BOLDIFY.charWeight = com.sun.star.awt.FontWeight.BOLD
End Function
Merci pour votre aide !
Version: 5.4.5.1.M2 Obligation de version travail
Windows 7
Pas la peine de descendre sur la propriété .TextFieldMaster.
Il faut agir sur .Anchor dans laquelle on retrouve les propriétés .Char...
On les voit quand on utilise XRay.
Réponse faite hors contexte(*).
(*) Fournir le contexte signifie joindre un document explicatif et exhaustif permettant de comprendre et surtout reproduire la problématique.
Pas la peine de descendre sur la propriété .TextFieldMaster.
Il faut agir sur .Anchor dans laquelle on retrouve les propriétés .Char...
On les voit quand on utilise XRay.
Réponse faite hors contexte(*).
(*) Fournir le contexte signifie joindre un document explicatif et exhaustif permettant de comprendre et surtout reproduire la problématique.
autant pour moi, voici mon document ou je tente de mettre le champs requete en BOLD.
Vous ne pouvez pas consulter les pièces jointes insérées à ce message.
Version: 5.4.5.1.M2 Obligation de version travail
Windows 7
Sub Test
oDoc = ThisComponent
oChamps = oDoc.getTextFields
for each oChamp in oChamps
if oChamp.TextFieldMaster.Name = "requete" then exit for
next
with oChamp.Anchor
.CharWeight = 150
.CharColor = RGB(128,0,200)
end with
End sub
Désolé si je me suis mal exprimé.
A la base, j'essayais de faire une fonction qui me permettrait de mettre certains éléments de la requête en gras, de la manière requete + bold("requete") + requete
Vous ne pouvez pas consulter les pièces jointes insérées à ce message.
Version: 5.4.5.1.M2 Obligation de version travail
Windows 7
Salut,
Ton code reprend un exemple de Pierre-Yves Samyn, qu'il faudrait comprendre avant de le bricoler.
Il y a là dedans tout un tas de code inutile pour ton problème, et à priori une confusion entre les champs du document et les contrôles de la boîte de dialogue.
Je suppose qu'il s'agit de construire un rapport avec un certain nombre de paramètres ?
Il faudrait donc :
Définir clairement le projet dans sa globalité
Décomposer en tâches élémentaires
Réaliser un programme pour chacune
Sans un apprentissage minimum de la programmation, ce sera difficile....
Note : la procédure test dans ton fichier fonctionne très bien, et fait exactement ce qui lui est demandé.
Cordialement,
Jean-Michel LibO 7.5.9 et AoO 4.1.15 sur Windows 11 & Ubuntu 22.04 LibO 7.6 sur OpenSuse & Linux MX