topic Re: Macro command to open html file using Microsoft Word in PowerMill Forum

Macro command to open html file using Microsoft Word

iamcdn79 — Tue, 05 Nov 2024 13:31:41 GMT

I just posted this 2 mins ago and it got deleted by someone in the forum page, so sorry if its not as detailed cause I am furious right now about it getting deleted

I am trying to create a macro that opens HTML files using Microsoft Word but get an error saying no program appears to be associated...

Does anyone know the right command to open HTML files?

FUNCTION Main (STRING $Selected_NCProgram) { // Execute preliminary commands KEEP SETUPSHEETS NCPROGRAM SELECTED TEXTINFO ACCEPT SPLITTER TABEXPLORE // Get the main project directory and construct the correct path STRING mainDirectory = dirname(project_pathname(0), "/") STRING projectSubfolder = project.Name + "" STRING htmlFilePath = mainDirectory + "/" + projectSubfolder + "/SetupSheets_files/project_sheets/lineup sheet.html" // Attempt to open the specified .html file in the correct directory OLE FILEACTION 'open' $htmlFilePath }

Re: Macro command to open html file using Microsoft Word

rafael.sansao — Tue, 05 Nov 2024 17:06:15 GMT

Hello,

On Windows, right-click on the HTML file > Open with > Choose another app > Select Word > Always

This will set Word as the default application for opening HTML files on your computer, and thus, the macro should work correctly.

Re: Macro command to open html file using Microsoft Word

iamcdn79 — Tue, 05 Nov 2024 17:25:22 GMT

It's already set to Word

Re: Macro command to open html file using Microsoft Word

rafael.sansao — Tue, 05 Nov 2024 19:37:57 GMT

Something went wrong. When Word is set as the default program for opening HTML, the HTML file icon changes to the Word icon.
When you double-click on the HTML file, the file has to be opened with Word...

Restart your computer and try again...

You can also change the default program through Control Panel > Default Programs

Re: Macro command to open html file using Microsoft Word

iamcdn79 — Tue, 05 Nov 2024 19:55:46 GMT

I think the directory code is incorrect. The macro code is looking into 'C:/Powermill/1792/1792 cavity/SetupSheets_files/project_sheets/lineup sheet.html' directory which doesn't exist for the lineup sheet.html file

The correct directory should be 'C:/Powermill/1792/1792 cavity/SetupSheets_files/project_sheets' to open the file called lineup sheet.html

When I change it to this code it opens a new file explorer window of that directory showing the lineup sheet.html file but doesn't open that file

Re: Macro command to open html file using Microsoft Word

rafael.sansao — Tue, 05 Nov 2024 20:05:01 GMT

Try this:

Re: Macro command to open html file using Microsoft Word

iamcdn79 — Tue, 05 Nov 2024 20:12:29 GMT

Same error as before because I think its looking in the wrong dir.

The correct dir should be 'C:\Powermill\1792\1792 cavity\SetupSheets_files\project_sheets' but the error code is showing dir called 'C:\Powermill\1792\1792
cavity\SetupSheets_files\project_sheets\lineup sheet.html' which doesn't exist

This is the dir it should be pointing too for the file called lineup sheet.html

Re: Macro command to open html file using Microsoft Word

nguyenthinhvt95 — Wed, 06 Nov 2024 02:16:46 GMT

Hi @iamcdn79 ,

I tested your macro and it's working well when opening an HTML file by Excel.

in my opinion, the macro is OK, the problem is Word not suitable to open HTML.

Re: Macro command to open html file using Microsoft Word

iamcdn79 — Wed, 06 Nov 2024 11:38:35 GMT

If you change it to Word instead of Excel to open HTML does it still work?

Re: Macro command to open html file using Microsoft Word

iamcdn79 — Wed, 06 Nov 2024 12:25:12 GMT

My macro doesn't even work for Excel files when I change the extension to .xlsx and Excel is already the default pgm for that extension.

Re: Macro command to open html file using Microsoft Word

rafael.sansao — Wed, 06 Nov 2024 13:53:31 GMT

Try this:

FUNCTION Main (STRING $Selected_NCProgram) { // Execute preliminary commands KEEP SETUPSHEETS NCPROGRAM SELECTED TEXTINFO ACCEPT SPLITTER TABEXPLORE // Get the main project directory and construct the exact path STRING $mainDirectory = REPLACE(project_pathname(0), "/", "\") STRING $htmlFilePath = $mainDirectory + "\SetupSheets_files\project_sheets\lineup sheet.html" IF NOT file_exists($htmlFilePath) { MESSAGE WARN "File not exists" MACRO ABORT } ELSE { STRING $cmd_content = "@echo off" + CRLF + 'start "" "' + $htmlFilePath + '"' STRING $cmd_path = $mainDirectory + "\run.cmd" FILE OPEN $cmd_path FOR WRITE AS cmd FILE WRITE $cmd_content TO cmd FILE CLOSE cmd OLE FILEACTION 'open' $cmd_path WAIT 1 FILE DELETE $cmd_path } }

Re: Macro command to open html file using Microsoft Word

iamcdn79 — Wed, 06 Nov 2024 14:05:43 GMT

Yes! that opens, but i get an error on line

FILE DELETE $cmd_path

after the file opens.

Is it trying to delete the lineup sheet.html file or that directory that it exists?

Removing that line seems to run without issues.

Re: Macro command to open html file using Microsoft Word

rafael.sansao — Wed, 06 Nov 2024 14:48:58 GMT

FUNCTION Main (STRING $Selected_NCProgram) { // Execute preliminary commands KEEP SETUPSHEETS NCPROGRAM SELECTED TEXTINFO ACCEPT SPLITTER TABEXPLORE // Get the main project directory and construct the exact path STRING $mainDirectory = REPLACE(project_pathname(0), "/", "\") STRING $htmlFilePath = $mainDirectory + "\SetupSheets_files\project_sheets\lineup sheet.html" IF NOT file_exists($htmlFilePath) { MESSAGE WARN "File not exists" MACRO ABORT } ELSE { STRING $cmd_content = "@echo off" + CRLF + 'start "" "' + $htmlFilePath + '"' STRING $cmd_path = $mainDirectory + "\run.cmd" FILE OPEN $cmd_path FOR WRITE AS cmd FILE WRITE $cmd_content TO cmd FILE CLOSE cmd OLE FILEACTION 'open' $cmd_path WAIT 1 DELETE FILE $cmd_path } }

Re: Macro command to open html file using Microsoft Word

iamcdn79 — Wed, 06 Nov 2024 15:00:09 GMT

Here is the complete code

FUNCTION Main (STRING $Selected_NCProgram) { IF ($powermill.Status.MultipleSelection.First) OR ($powermill.Status.MultipleSelection.Total == 0) { // Execute preliminary commands KEEP SETUPSHEETS NCPROGRAM SELECTED TEXTINFO ACCEPT SPLITTER TABEXPLORE } // Get the main project directory and construct the exact path STRING $mainDirectory = REPLACE(project_pathname(0), "/", "\") STRING $htmlFilePath = $mainDirectory + "\SetupSheets_files\project_sheets\lineup sheet.html" IF NOT file_exists($htmlFilePath) { MESSAGE WARN "File not exists" MACRO ABORT } ELSE { STRING $cmd_content = "@echo off" + CRLF + 'start "" "' + $htmlFilePath + '"' STRING $cmd_path = $mainDirectory + "\run.cmd" FILE OPEN $cmd_path FOR WRITE AS cmd FILE WRITE $cmd_content TO cmd FILE CLOSE cmd //Check if it is the last selection or if there are no items selected IF ($powermill.Status.MultipleSelection.Last) OR ($powermill.Status.MultipleSelection.Total == 0) { OLE FILEACTION 'open' $cmd_path WAIT 1 DELETE FILE $cmd_path } } }

is there a way to close the microsoft word lineup sheet.html file if it is already one when running this code?

Re: Macro command to open html file using Microsoft Word

rafael.sansao — Wed, 06 Nov 2024 21:43:54 GMT

You can try using Powershell to close the file, but you will need to select Powershell as the default program for executing ps1 files.

This will only work if your computer's group policy allows scripts to be executed.

FUNCTION Main (STRING $Selected_NCProgram) { // Get the main project directory and construct the exact path STRING $mainDirectory = REPLACE(project_pathname(0), "/", "\") STRING $htmlFilePath = $mainDirectory + "\SetupSheets_files\project_sheets\lineup sheet.html" IF ($powermill.Status.MultipleSelection.First) OR ($powermill.Status.MultipleSelection.Total == 0) { IF file_exists($htmlFilePath) { STRING $char = "$" STRING $ps1_content = $char + 'path = "' + $htmlFilePath + '"' $ps1_content = $ps1_content + CRLF + $char + 'word = [Runtime.InteropServices.Marshal]::GetActiveObject("Word.Application")' $ps1_content = $ps1_content + CRLF + 'foreach (' + $char + 'doc in ' + $char + 'word.Documents) {' $ps1_content = $ps1_content + CRLF + ' if (' + $char + 'doc.FullName -eq ' + $char + 'path) {' $ps1_content = $ps1_content + CRLF + ' ' + $char + 'doc.Close()' $ps1_content = $ps1_content + CRLF + ' break' $ps1_content = $ps1_content + CRLF + ' }' $ps1_content = $ps1_content + CRLF + '}' STRING $ps1_path = $mainDirectory + "\run.ps1" FILE OPEN $ps1_path FOR WRITE AS cmd FILE WRITE $ps1_content TO cmd FILE CLOSE cmd OLE FILEACTION 'open' $ps1_path WAIT 2 DELETE FILE $ps1_path } // Execute preliminary commands KEEP SETUPSHEETS NCPROGRAM SELECTED TEXTINFO ACCEPT SPLITTER TABEXPLORE } IF NOT file_exists($htmlFilePath) { MESSAGE WARN "File not exists" MACRO ABORT } ELSE { STRING $cmd_content = "@echo off" + CRLF + 'start "" "' + $htmlFilePath + '"' STRING $cmd_path = $mainDirectory + "\run.cmd" FILE OPEN $cmd_path FOR WRITE AS cmd FILE WRITE $cmd_content TO cmd FILE CLOSE cmd //Check if it is the last selection or if there are no items selected IF ($powermill.Status.MultipleSelection.Last) OR ($powermill.Status.MultipleSelection.Total == 0) { OLE FILEACTION 'open' $cmd_path WAIT 1 DELETE FILE $cmd_path } } }

Re: Macro command to open html file using Microsoft Word

iamcdn79 — Thu, 07 Nov 2024 12:17:16 GMT

So I did all that and I don't get any errors but it doesan't close the word file linup sheet.html when it is open.

I think it could because when I always close it manually its asking me if it needs to be saved or not due to a macro I have which runs and changes values automatically everytime it opens that particular file.

Is there a way to add a no to not to save the file then close it?

Re: Macro command to open html file using Microsoft Word

rafael.sansao — Thu, 07 Nov 2024 12:23:12 GMT

Replace:

$ps1_content = $ps1_content + CRLF + ' ' + $char + 'doc.Close()'

By:

$ps1_content = $ps1_content + CRLF + ' ' + $char + 'doc.Close(0)'

Re: Macro command to open html file using Microsoft Word

iamcdn79 — Thu, 07 Nov 2024 12:30:17 GMT

No change

Re: Macro command to open html file using Microsoft Word

rafael.sansao — Thu, 07 Nov 2024 13:46:15 GMT

FUNCTION Main (STRING $Selected_NCProgram) { // Get the main project directory and construct the exact path STRING $mainDirectory = REPLACE(project_pathname(0), "/", "\") STRING $htmlFilePath = $mainDirectory + "\SetupSheets_files\project_sheets\lineup sheet.html" IF ($powermill.Status.MultipleSelection.First) OR ($powermill.Status.MultipleSelection.Total == 0) { IF file_exists($htmlFilePath) { STRING $char = "$" STRING $ps1_content = $char + 'path = "' + $htmlFilePath + '"' $ps1_content = $ps1_content + CRLF + $char + 'word = [Runtime.InteropServices.Marshal]::GetActiveObject("Word.Application")' $ps1_content = $ps1_content + CRLF + 'foreach (' + $char + 'doc in ' + $char + 'word.Documents) {' $ps1_content = $ps1_content + CRLF + ' if (' + $char + 'doc.FullName -eq ' + $char + 'path) {' $ps1_content = $ps1_content + CRLF + ' ' + $char + 'doc.Close(0)' $ps1_content = $ps1_content + CRLF + ' break' $ps1_content = $ps1_content + CRLF + ' }' $ps1_content = $ps1_content + CRLF + '}' STRING $ps1_path = $mainDirectory + "\run.ps1" FILE OPEN $ps1_path FOR WRITE AS cmd FILE WRITE $ps1_content TO cmd FILE CLOSE cmd OLE FILEACTION 'open' $ps1_path STRING $cmd_content = "@echo off" + CRLF + 'powershell -ExecutionPolicy Bypass -File "' + $ps1_path + '"' STRING $cmd_path = $mainDirectory + "\run.cmd" FILE OPEN $cmd_path FOR WRITE AS cmd FILE WRITE $cmd_content TO cmd FILE CLOSE cmd OLE FILEACTION 'open' $cmd_path WAIT 2 DELETE FILE $cmd_path DELETE FILE $ps1_path } // Execute preliminary commands KEEP SETUPSHEETS NCPROGRAM SELECTED TEXTINFO ACCEPT SPLITTER TABEXPLORE } IF NOT file_exists($htmlFilePath) { MESSAGE WARN "File not exists" MACRO ABORT } ELSE { STRING $cmd_content = "@echo off" + CRLF + 'start "" "' + $htmlFilePath + '"' STRING $cmd_path = $mainDirectory + "\run.cmd" FILE OPEN $cmd_path FOR WRITE AS cmd FILE WRITE $cmd_content TO cmd FILE CLOSE cmd //Check if it is the last selection or if there are no items selected IF ($powermill.Status.MultipleSelection.Last) OR ($powermill.Status.MultipleSelection.Total == 0) { OLE FILEACTION 'open' $cmd_path WAIT 1 DELETE FILE $cmd_path } } }

Re: Macro command to open html file using Microsoft Word

iamcdn79 — Thu, 07 Nov 2024 15:42:01 GMT

No go.

Would a lockfile be preventing it from closing? When I have the file open there is a hidden file in the dir called "~$nep sheet.html"