ReplaceWordByImage

Syntax

Result% = RTF.ReplaceWordByImage(Handle, OldText, NewImageFile[, ScaleX]
[, ScaleY][, ReplaceCount][, CompareOption][,IncludeTextFrames])

Description

Vervangt de tekstfragment met een nieuw fragment van een geopend documentcontainer met handle. Geeft de waarde True wanneer de bewerking succesvol is uitgevoerd, anders False.

Parameter	Description
handle	Numeriek, referentie naar de met CreateHandle geopende documentcontainer.
OldText	Het tekstfragment dat dient te worden vervangen
NewImageFile	Verwijzing naar de pad- en bestandsnaam dat het oude tekstfragment dient te vervangen.
ScaleX	Optioneel. Horizontale schaalgrootte in hele procenten. Standaardwaarde = 100
ScaleY	Optioneel. Verticale schaalgrootte in hele procenten. Standaardwaarde = 100
ReplaceCount	Optioneel, het aantal keren dat het tekstfragment dient te worden vervangen. Standaardwaarde = -1 (alles vervangen).
CompareOption	Optioneel, vergelijkingsoptie, Binary, Database of Text. Standaardwaarde = vbTextCompare (niet-hoofdlettergevoelig)
IncludeTextFrames	Optioneel. Indien True, wordt er ook gezocht in alle tekstvakken in het document. Standaardwaarde = 0 (alleen in hoofddocument vervangen).

See Also

WordCount, ReplaceWord.

Example

Sub Main

Dim rs As ADODB.Recordset, sFile As String, dFile As String
Dim tFile As String, iFile As String, h%

   SQL.RunRecordset "SELECT TOP 10 * FROM ArtikelIllustraties " & _
                    "WHERE Tonen = 1 AND DATALENGTH(BLOBdata) > 0 " & _
                    "ORDER BY RowID DESC", _
                    rs, adOpenKeyset, adLockReadOnly, adUseClient

sFile = "o:\test_source.jpg": dFile = "o:\test_resampled.jpg"

tFile = "o:\test_images.rtf": iFile = "o:\test_thumb.rtf"

h% = RTF.CreateHandle()

RTF.LoadFile h%, "o:\adminsql\scripts\voorbeelden\" & _
"invoegen afbeelding op at-veld.rtf"

While Not rs.EOF

SQL.RetrieveFileFromField rs!BLOBdata, sFile

SQL.RetrieveFileFromField rs!ICONdata, iFile

Printer.ReSamplePicture sFile, dFile, 80

RTF.ReplaceWordByImage h%, "@IMAGE", dFile,100,100, 1
RTF.ReplaceWordByImage h%, "@THUMB", iFile,100,100, 1

Kill sFile: Kill dFile: Kill iFile

rs.MoveNext

Wend

rs.Close

Set rs = Nothing

RTF.SaveFile h%, tFile

RTF.CloseHandle h%

SQL.OpenTradiumDocument tFile

Kill tFile

End Sub

ReplaceWordByImage

NB: een voorbeeld, inclusief sjabloon, is te vinden in o:\adminsql\scripts\voorbeelden.