Passing a Data File Name via Command Line to a Macro

Question: How to handle embedded spaces in the passed filename
Answer: Enclose it with double quotes and then strip them off in the macro
Question: How to handle passing more than one variable
Answer: Same technique, enclose each in double quotes, write them as multiple lines in the temporary text file.
An example for passing two variables is as follows:

---------------------------------SNIP------------------------------------------

@echo off
:Batch File SaveName2.bat
:Example to pass two parameters on command line
:CA Matz - Author
:Call from a command line as: SaveName2 "var1" "var2"
:Where var1 and var2 are variables to be passed to macro and can have embedded spaces
:Writes the variables passed to a temp file "---TMP---.txt" in the Users TEMP directory

ECHO %1 > %temp%---TMP---.txt
ECHO %2 >> %temp%---TMP---.txt


:Start Word with Macro ReadTemp
"C:Program Files (x86)Microsoft OfficeOffice14winword.exe" /MReadTemp2

---------------------------------SNIP------------------------------------------


Sub ReadTemp2()
'CA Matz - Author
Dim hNum As Integer
Dim strFile As String
Dim strLine1 As String
Dim strLine2 As String
Dim DQ As String
DQ = Chr(34)

hNum = FreeFile()

strFile = Environ("temp") & "---TMP---.txt"
Open strFile For Input As #hNum

Line Input #hNum, strLine1
' Strip the Double Quotes is they were passed for the pathfilename
strLine1 = Replace(strLine1, DQ, "")
MsgBox strLine1
Line Input #hNum, strLine2
' Strip the Double Quotes is they were passed for the pathfilename
strLine2 = Replace(strLine2, DQ, "")
MsgBox strLine2

' Your processing using variables strLine1 and strLine2 starts here instead of the message boxes

End Sub

I use a macro to read information from a text file to populate fields in my Word document (version of document, owner, date of issue etc.). The text file is dynamically created by another program which writes the information to my text file.
I use the " GetPrivateProfileString" command to read the information into my Word document and the macro formats it.

Also sent the following as an email due to the text wrapping mess

Write the filename to a temp file with a batch file and then read the temp file within the Word macro to pass the variable

Batch file to save the filename to a temp file

---------------------------------SNIP------------------------------------------
@echo off
:Batch File SaveName.bat
:CA Matz - Author
:Call from a command line as: SaveName argument
:Where argument is the "pathfilename" to be passed to macro
:Writes the argument passed to a temp file "---TMP---.txt" in the Users TEMP directory

ECHO %1 > %temp%---TMP---.txt

: Note! for the drag and drop graphical batch processor FileViking use the following line instead
: ECHO %FV_FILE% > %temp%---TMP---.txt
: FileViking is found at FileViking.com

:Start Word with Macro ReadTemp
"C:Program Files (x86)Microsoft OfficeOffice14winword.exe" /MReadTemp

---------------------------------SNIP------------------------------------------

Word Subroutine to read the temp file into a variable called strLine

---------------------------------SNIP------------------------------------------

Sub ReadTemp()
'CA Matz - Author
Dim hNum As Integer
Dim strFile As String
Dim strLine As String

hNum = FreeFile()
strFile = Environ("temp") & "---TMP---.txt"
Open strFile For Input As #hNum

Line Input #hNum, strLine
MsgBox strLine
' Your processing starts here instead of the message box

End Sub

---------------------------------SNIP------------------------------------------