msWord to html

[noursnours]

hi,

i would like to know if it s possible and how (in Applescript) to open a word document (.doc) and save it as an html page in using word application. I try but it’s not ok.
Sorry for my english i m french

thanks for answers

• nicolas

[jonn8]

This will save a Word document to your desktop with the name “test.html” (adjust the path to the Word document, of course):

–Open this script in a new Script Editor window.

set word_document to “path:to:word document”
set desktop_path to ((path to desktop) as string)
set html_name to “test.html”
tell application “Microsoft Word”
open (word_document as alias)
set the_VBA to " ChangeFileOpenDirectory “” & desktop_path & “”"
set the_VBA to my [color=green]convert_line_endings/color
do Visual Basic the_VBA
set the_VBA to " ActiveDocument.SaveAs FileName:=“” & html_name & “”, FileFormat:=wdFormatHTML, _
LockComments:=False, Password:=“”, AddToRecentFiles:=True, WritePassword _
:=“”, ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _
SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _
False, HTMLDisplayOnlyOutput:=False"
set the_VBA to my [color=green]convert_line_endings/color
do Visual Basic the_VBA
close document 1
end tell

on [color=green]convert_line_endings/color
tell (a reference to my text item delimiters)
set {old_delim, contents} to {contents, return}
set {the_VBA, contents} to {(“” & (paragraphs of the_VBA)), old_delim}
end tell
return the_VBA
end convert_line_endings

Word is recordable. The only caveat is that in OS X, the Script Editor changes the line ending style so you’ll have to modify any hard returns in the recorded script with returns (as demonstrated in the code above).
Jon

---

[This script was automatically tagged for color coded syntax by Convert Script to Markup Code]

[noursnours]

est ce que ce script est compatible OS X ?

merci

• nico

[jonn8]

Sorry, my French is rusty. Are you asking if this script is compatible with Mac OS X? If so, yes, the code above is compatible with Mac OS X.

Jon

[noursnours]

i m sorry for use french language, yes it was my question and it s OK !!

Thank you, you understand well french

++ nicolas

[jimmur]

If you are using Office 2004 you can do the following:

set word_document to choose file with prompt “Select the Word document to be
save as HTML” of type {“W8BN”}

tell application “Finder”
set doc_Name to name of file word_document
end tell

set desktop_path to ((path to desktop) as string)
set html_name to desktop_path & “test.html”

tell application “Microsoft Word”

open word_document
set my_Doc to the document named doc_Name
if exists my_Doc then
	save as my_Doc file name html_name file format format HTML
	close active document saving no
end if

end tell

[noursnours]

Thank you for this new script, it’s ok

best regards

• nicolas