Come non detto... ho trovato!!! :king:
A chi potesse interessare, la soluzione è questa:
una volta copiato il richtext nel nuovo documento basta eseguire queste istruzioni prima di salvarlo
[I]If rtnav.FindFirstString(STARTSTR) Then
Call rtrange.SetBegin(rtnav)
End If
If rtnav.FindFirstString(ENDSTR) Then
rtnav.FindNextElement
Call rtrange.SetEnd(rtnav)
End If
Call rtrange.Remove
Call memo.Save(True, False)[/I]
|