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).
|
|
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
|