DominoArea.org [Archive]

avis est le nom du champ richtext dont je veux reformater le texte qui y est placé. la messagebox me confirme bien que je travaille sur ce champ.Sub Click(Source As Button) Dim session As New NotesSession Dim workspace As New NotesUIWorkspace Dim uidoc As NotesUIDocument Dim doc As NotesDocument Dim item As NotesRichTextItem Dim richStyle As NotesRichTextStyle Set uidoc = workspace.CurrentDocument Set doc = uidoc.Document Set item = doc.GetFirstItem("avis") Set richStyle = session.CreateRichTextStyle richStyle.NotesFont = FONT_COURIER richStyle.FontSize = 12 Call item.AppendStyle(richStyle) Messagebox item.Name & " = " & item.Text Call doc.Save(True, False)End Sub

AppendStyle veut dire ce qu'il veut dire, c'est à dire "ajouter à la fin" et non pas au début..Si tu veux tout remettre dans un style définit, il te faudrait extraire dans un 'String' tout le champ (donc sans les styles) et recréer le texte riche en faisant d'abord ton AppendStyle, puis un AppendText du contenu de ta String.