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.
Code : Tout sélectionner
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