Displaying Word.htm in InnerHTML

[jwestan]

I am trying to get a Word document that was saved as a .htm file into a DataArea.InnHTML span and I keep getting an Unspecified error. I would like to keep this as a file as this is instructions for using the HTA and would like to only update a file and not have to modify the HTA but keep the formating in the document.

This is what I am using to read the file but I suspect that the extra HTML is causing the error.

Code: Select all

Const ForReading = 1
	
Dim instrFileLoc : instrFileLoc = "C:Test_2.htm"
Dim fso1 : Set fso1 = CreateObject("Scripting.FileSystemObject")
Dim f : Set f = fso1.OpenTextFile(instrFileLoc,ForReading)
Dim strInstructions : strInstructions = f.ReadAll
f.Close
	
Sub window_onLoad
CheckForNewHTA 'Checks for new HTA on the O:Drive
 window.resizeTo 1200,800
  AppName.InnerHTML = strAppName
  AppVersion.InnerHTML = strAppVer
  'TextBox1.Focus
  AppDate.InnerHTML = strDate
  DataArea.InnerHTML = strInstructions
End Sub
	

Anyone have any ideas or examples?

[jwestan]

I am trying to get a Word document that was saved as a .htm file into a DataArea.InnHTML span and I keep getting an Unspecified error. I would like to keep this as a file as this is instructions for using the HTA and would like to only update a file and not have to modify the HTA but keep the formating in the document.

This is what I am using to read the file but I suspect that the extra HTML is causing the error.

Code: Select all

Const ForReading = 1
	
Dim instrFileLoc : instrFileLoc = "C:Test_2.htm"
Dim fso1 : Set fso1 = CreateObject("Scripting.FileSystemObject")
Dim f : Set f = fso1.OpenTextFile(instrFileLoc,ForReading)
Dim strInstructions : strInstructions = f.ReadAll
f.Close
	
Sub window_onLoad
CheckForNewHTA 'Checks for new HTA on the O:Drive
 window.resizeTo 1200,800
  AppName.InnerHTML = strAppName
  AppVersion.InnerHTML = strAppVer
  'TextBox1.Focus
  AppDate.InnerHTML = strDate
  DataArea.InnerHTML = strInstructions
End Sub
	

Anyone have any ideas or examples?

[rasimmer]

I would suggest using a iFrame vs writing the data to a SPAN, otherwise you're placing another entire HTML document inside of another which would mess your tags all up. Some of the other members might tell me I'm crazy, but it's what I would try.

[rasimmer]

So, how does that work JVierra? All of the HTML tags duplicated in the middle of an existing document....no issue?

[jvierra]

Here is the easiest wat to do this. I used PoSH because it is faster and easier to demo this with. VBS works the same way.

Code: Select all

	
$ie=new-object -com internetexplorere.application
$ie.Navigate("c:testtest.htm")
$ie.Document.body.innerHTML
	
# the following is extracted
	

Hello World 

This will NOT work with documents loaded from the Internet or other untrusted sources. It will work with all domain trusted sources.

[jwestan]

So would it look something like this for vbscript in a HTA? I am still getting an Unspecified Error.

Code: Select all

	Sub window_onLoad
	  Dim ie : Set ie = CreateObject("InternetExplorer.Application") ie.Navigate("C:Test_3.htm") Dim ieInner : ieInner = ie.Document.body.InnerHTML  DataArea.InnerHTML = ieInner
	end sub
	[/code

[jvierra]

I like this myself:

Code: Select all

	
    With CreateObject("InternetExplorer.Application")
        .Navigate("C:testTest.htm")
        DataArea.InnerHTML = .Document.body.InnerHTML
    End With

No need for all those variabes for somethng that is a throw-away.