Cookbook	Export images
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	rtGraphic add (rtContainer) addNewLine (rtContainer) addNewLine (rTextParagraph) appendText (rtContainer) appendText (rTextParagraph) Add (rtCollection) Add (rTextParagraph) Collection (rtContainer) Collection (rtEnumeration) exportToFile getRichTextItem hasMoreElements ImageType NextElement Code fragment from sample "Export images"; see full running samples in downloadable help. Dim path As String, o As rtGraphic path = Environ("TEMP") if path<>"" then path = path + "\"' it's a W32 client Set ctx =New rtContainer Call ctx.getRichTextItem(doc,"Body") Set hotcoll = ctx.Collection(PARSE_GROUP_GRAPHIC)' get images - import/export supported at the moment only R5 style native JPEG/GIF Set enum = New rtEnumeration(hotcoll) Dim fname(2) As String, cnt As Integer fname(0)="flagDE" fname(1)="flagEN" fname(2)="flagIT" Do While enum.hasMoreElements Set o = enum.nextElement If o.ImageType =CDIMAGETYPE_JPEG Then Set rtp = New rTextParagraph("JPEG image exported to " &path &"flagDE.jpg") ctxDump.addnewline 1 ctxDump.add rtp o.exportToFile path &"\" &"flagDE"' only one jpeg - its German flag End If If o.ImageType =CDIMAGETYPE_GIF Then ctxDump.addnewline 1 ctxDump.appendText ("GIF image exported to " &path &fname(cnt) &".gif") o.exportToFile path &"\" &fname(cnt) cnt = cnt + 1 End If Loop