variable con nombres de archivos

[vmdv88]

Ayuda con mi primer script.

He intentado insertar un documento word, en uno nuevo, haciendo un script que me pida el nombre del archivo que deseo insertar, pero no lo encuentra si uso variables:

Code: Select all

!+n::

InputBox, arggan, Nombre del concepto,;pedirá el nombre del archivo

MsgBox, Se buscara "%arggan%.docx"
wdApp := ComObjActive("Word.Application")
wdApp.Selection.InsertFile("C:\Users\victor.diaz\Documents\PRUEBA\"%arggan%".docx")

return

Con ese código no encuentra el archivo que quiero, sin embargo con el siguiente sí:

Code: Select all

!+n::

InputBox, arggan, Nombre del concepto,;pedirá el nombre del archivo

MsgBox, Se buscara "%arggan%.docx"
wdApp := ComObjActive("Word.Application")
wdApp.Selection.InsertFile("C:\Users\victor.diaz\Documents\PRUEBA\1.docx")

return

[Mod edit: [code][/code] tags added.]

[burque505]

Hola @vmdv88, sería mejor buscar ayuda en el foro español, pero bueno Aquí estoy creando un nuevo Word en vez de trabajar con un objeto que ya existe, pero aparte de eso es más or menos lo mismo.

Code: Select all

!+n::
InputBox, arggan, Nombre del concepto, ;pedirá el nombre del archivo
MsgBox, % "Se buscara " arggan ".docx"
wd := ComObjCreate("Word.Application")
wd.Visible := True
wd.Activate
wd.Documents.Add
path := "C:\work\Word\" arggan ".docx"
wd.Selection.InsertFile(path)

return

Casí lo tenías ya, el problema es el formato.

Más o menos como lo querías - se supone que Word ya está activado.

Code: Select all

!+n::
InputBox, arggan, Nombre del concepto, ;pedirá el nombre del archivo
MsgBox, % "Se buscara " arggan ".docx"
wd := ComObjActive("Word.Application")
path := "C:\work\Word\" arggan ".docx"
wd.Selection.InsertFile(path)

return

burque505