MonDoc is Document <- TT_SansNom1
// Récupération du fragment correspondant à la sélection en cours dans le champ
Frag is docFragment <- MonDoc[TT_SansNom1.Curseur to TT_SansNom1.FinCurseur]

// Passage du contenu du fragment en gras
Frag.MiseEnForme.PoliceGras = True

// Lister les styles d'un document
MonChampDoc is Control

// Récupération d'un document associé
MonDoc is Document = MonChampDoc

// Listage de tous les styles utilisé par le document
FOR EACH UnStyleDuDoc OF MonDoc.Style
	Trace(UnStyleDuDoc.StyleID)
END

// Ajouter le style "Titre1" dans un document et l'appliquer à la sélection
// La définition du style "Titre1" provient d'un autre document
MonChampDoc is Control = {"MonChampTT", indControl}

// Récupération d'un document associé
MonDoc is Document = MonChampDoc

// si le style "Titre1" n'existe pas, on va l'ajouter 
	// à partir d'un document contenant des styles prédéfinis
IF MonDoc.Style["Titre1"] = Null THEN
	// ouvre une document contenant les styles
	MonDocContenantLesStyles is Document = "c:\MonDocAvecMesStyles.docx"
	// récupérer le style Titre 1
	StyleTitre1 is docStyle <- MonDocContenantLesStyles.Style["Titre1"]
	IF StyleTitre1 <> Null THEN
		// Ajouter le style dans le document
		Add(MonDoc.Style, StyleTitre1)
	END
END

// on applique le style à la sélection
StyleTitre1PourSelection is docStyle <- MonDoc.Style["Titre1"]
IF StyleTitre1PourSelection <> Null THEN
	// créer le fragment (à partir de la sélection)
	f is docFragment(MonChampDoc.Valeur, MonChampDoc.Curseur, MonChampDoc.LongueurSélection)
	// applique le style Titre1 à la sélection
	f.StyleID = StyleTitre1PourSelection.Identifier
END