I didn't receive any answer within a week.
OK, here is the answer :
-
'Replace Title
If txtTitle.Text <> MainForm.Editor.DocumentTitle Then
PI = InStr(LCase(MainForm.Editor.DocumentHTML), "<title>")
PJ = InStr(LCase(MainForm.Editor.DocumentHTML), "</title>")
PH = Mid(MainForm.Editor.DocumentHTML, PI, PJ - PI + 8)
PM = "<title>" + txtTitle.Text + "</title>"
MainForm.Editor.DocumentHTML = Replace(MainForm.Editor.DocumentHTML, PH, PM)
End If
-
Have a nice day !
Thank you.
Omid Soroori of OMID SOFT.