Jeremy Simmons: The Blog

I can't really take credit for this. I found it somewhere on the net, and wanted to make sure I kept it around.

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.outerHTML = paramStr


End If

Next

End Sub

Batch script to run FiltDump against a list of files

SET FiltDump="C:\Programs\Microsoft Platform SDK for Windows Server 2003 R2\Bin\FiltDump.Exe"
net use z: /delete /y
net use z: \\server\share
for /R z:\subfolder1\subfolderN\ %%i in (*.*) do @%FiltDump% %%i