Access 07 Rich Text - SelStart, SelLength (1 Viewer)

Public Function HTMLPosition(ByVal iintVisiblePosition As Integer, ByVal istrHTMLtext As String) As Integer
Dim boolSkipTag As Boolean, boolSkipCarSpec As Boolean
Dim intCar As Integer, intLen As Integer, intPos As Integer
Dim strCar As String * 1

'Initialisations
'***************
intCar = 0
intLen = Len(istrHTMLtext)
intPos = 0
boolSkipTag = False
boolSkipCarSpec = False

'Boucle sur les caractères de la ligne & décodage
'************************************************
Do
  intCar = intCar + 1
  'If intCar = 1370 Then Stop
  strCar = Mid(istrHTMLtext, intCar, 1)
  Select Case True
    Case strCar = "<"
      boolSkipTag = True
    Case strCar = ">"
      boolSkipTag = False
    Case boolSkipTag
    Case strCar = "&"
      If Mid(istrHTMLtext, intCar, 6) = " " Then
        intCar = intCar + 5
      Else
        boolSkipCarSpec = True
      End If
    Case strCar = ";"
      boolSkipCarSpec = False
      intPos = intPos + 1
    Case boolSkipCarSpec
    Case strCar = vbCr
      If Mid(istrHTMLtext, intCar, 4) = vbCrLf & vbCrLf Then
        intCar = intCar + 3
        intPos = intPos + 1
      End If
    Case strCar = vbLf
    Case Else
      intPos = intPos + 1
  End Select
  If intPos >= iintVisiblePosition Then
    HTMLPosition = intCar
    Exit Function
  End If
Loop Until intCar >= intLen
HTMLPosition = 0
End Function

Mid([HTMLDetails],InStr([HTMLDetails],"href")+5,InStr([HTMLDetails],"</a>")-(InStr([HTMLDetails],"href")+5))

<strong><em><font color="#000080" face="Arial">Reverse update year</font></em></strong> 
<p></p><font face="Arial">
<div><strong><em>Updating year groups </em></strong>is an essential part of the <strong><em>Annual Update </em></strong>routine which is used to update student, teacher and timetable data in School Data Analyser each year. </div>
<div> </div>
<div>This routine is normally done during the summer holiday to ensure all data is updated ready for the start of the new academic year.</div>
<div> </div>
<div>After deleting data for specified year groups no longer in the school (normally Y11 and/or 13), the remaining year group still in the school are promoted for the following year i.e. Year 10 becomes Year 11 etc</div>
<div> </div>
<div>This should be planned carefully in conjunction with the information in the <strong><em>Annual Update Routine Guide.</em></strong></div>
<div> </div>
<div>However in case of problems it is possible to reverse the Update Year process i.e Year 11 is returned to Year 10 etc</div>
<div> </div>
<div>
<div>Although this is done automatically as part of the Annual Update routine, it is possible to do this independently if necessary. If so, the main and leavers database files are first backed up to ensure no risk of data loss</div></div>
<div> </div>
<div>From the <strong>Admin Menu</strong>, go to <strong>Annual Update</strong> then <strong>Reverse Update Year</strong></div>
<div><strong></strong> </div>
<div><img align="baseline" alt="" src="file://G:/Programs/MendipDataSystems/CommonFiles/SDA/Images/AdminMenuAnnualUpdate.gif" border="0" hspace="0"></div>
<div> </div></font>
<div><font face="Arial">For more information, see the <strong><em>linked file</em></strong> below:</font></div>
<p><font face="Arial"><strong><em><a [B][COLOR="DarkRed"]href="file://colin-pc/G/Programs/MendipDataSystems/CommonFiles/SDA/Documentation/AnnualUpdateRoutineGuide.pdf">AnnualUpdateRoutineGuide.pdf</a>[/COLOR][/B]</em></strong></font></p>

"file://colin-pc/G/Programs/MendipDataSystems/CommonFiles/SDA/Documentation/AnnualUpdateRoutineGuide.pdf">AnnualUpdateRoutineGuide.pdf