Cookbook	rTextRange.Insert
Anchors Area Hotspots Caption Change image size Color squares (rulers) Convert images to/from resources Convert DocLinks to Hotspots Create Image Resource Doclink info in sections II Embedded Table Sort Export images Format passthru text Format simple text Generate HTML Hotlink retrieval Hotspot creation Import JPEG/GIFs Insert text/object in particular place Java Applet Read and Modify Parameters Process sections Replace attachment icon resource references Retrieve info from doclinks rTextRange.Insert RTF import Rulers Simple table Simple table - bars Sort text (horizontal bars) Sort text (II) - bar chart Substitute fonts Table - Merged cells Table - vertical alignment in cell Table processing - check for Merged cells Table processing - dynamic table Quick replace Quick table Table Sort Table Transpose Table with rulers Table, create a tabbed table Table processing - tabbed table	rTextRange rtGraphic rtHotLink rtNoteLink add (rtContainer) Add (rtCollection) Add (rTextParagraph) Bold Caption CaptionPosition Collapse Find Font FontSize getRichTextItem Insert NoteLink PicWidth Style Typeface Code fragment from sample "rTextRange.Insert"; see full running samples in downloadable help. ctxDump.getRichTextItem doc, "Body" dim typeface as string if ses.platform = "Macintosh" then path = strLeft(ndb.FilePath,":") + ":"' default place(?) where it stores things without path (exported to in export sample) typeface = "Aristocrat LET" Else path = Environ("TEMP") if path<>"" then path = path + "\"' it's a W32 client typeface = "Brush Script" End if Dim r As rTextRange Dim ins As New rtGraphic(path &"flagIT.gif") ins.picWidth=ins.picWidth *3' scale the picture ins.Caption = "This is the Italy caption" Set ins.Style = New rtStyle(9) Set ins.Style.Font = New rtFontStyle(0) ins.Style.Font.Bold = True ins.Style.Font.FontSize = 18 ins.Style.Font.Typeface = typeface ins.CaptionPosition = CAPTION_POSITION_BELOW_CENTER ' CAPTION_POSITION_MIDDLE_CENTER dim hotlink as new rtHotlink(8) dim ws as new notesuiworkspace Set hotlink.NoteLink = new rtNoteLink(ws.currentDocument.document) set rtp = new rTextParagraph(ws.currentDocument.document.tTitle(0)) hotlink.add rtp set r = ctxDump.Find("text",0).Collapse(nxCollapseEnd) r.Insert ins 'r.Insert hotlink