Attribute VB_Name = "Hover"
Option Explicit

Sub HoverRepair()

  Dim applet As IHTMLElement
  Dim param As IHTMLElement
  Dim paramStr As String
  Dim Text As String
  Dim URL As String
  Dim target As String

  For Each applet In ActiveDocument.All.tags("applet")
    If applet.getAttribute("code") = "fphover.class" Then
      
      Text = ""
      URL = ""
      target = ""
      paramStr = ""
      For Each param In applet.Children
        If param.Tagname = "param" Then
          paramStr = paramStr & param.outerHTML
          
          If param.getAttribute("name") = "target" Then
            target = param.getAttribute("value")
          End If
          If param.getAttribute("name") = "url" Then
            URL = param.getAttribute("value")
          End If
          If param.getAttribute("name") = "text" Then
            Text = param.getAttribute("value")
          End If
          
        End If
      Next
      
      paramStr = paramStr & "<a href=""" & URL & """"
      If target <> "" Then
        paramStr = paramStr & " target=""" & target & """"
      End If
      paramStr = paramStr & ">" & Text & "</a>"
      
      applet.innerHTML = paramStr
      
    End If
  Next

End Sub