Dim mydoc As FPHTMLDocument
     ' Create a new instance of the scripting.encoder object
     Dim myEncoder As New scripting.Encoder
     ' Get the current active document
     Set mydoc = ActiveDocument
     ' Get the HTML for the active document
     strHTML = mydoc.DocumentHTML
     ' Call the encodescriptfile method with the HTML
     strHTML = myEncoder.EncodescriptFile(".htm", strHTML, 0, "")
     ' Set the documentHTML to be the return HTML with encoded script
     mydoc.DocumentHTML = strHTML
     ' We're done!
End Sub


原作者：不详
来 源：不详

上一页  [1] [2]