ruta información combinada

hola,

Al hacer un word con datos combinados, me pide una ruta del archivo
dedatos. Se la doy y todo perfecto.
1º ...hago una copia del archivo y ... copia del archivo de datos...
cambio cosas, al abrir este nuevo archivo, en otra carpeta, me pide que
abra el origen de datos, pero cuando lo vinculo a un nuevo archivo de
datos, no se queda guardado.

Si realizas una copia de ambos archivos y quieres que exista combinacion en
esos archivos de copia, deberas de crear de nuevo una nueva combinacion de
correspondencia...

2º Me gustaria darle una ruta guardada al archivo de word que fuera
\datos.xls (siendo que al ponerlo así, empezara a contar desde la carpeta
en la que se encuentra el archivo de word) ...es posible ponerlo de alguna
forma? de esta forma se mueve el archivo de word y los datos a otra
carpeta y no habria problemas al abrirlo tener que buscar.

Hasta donde se y creo recordar que esto no es posible sobre combinaciones de
correspondencia ya que cuando se pierde el origen de la combinacion el
propio programa te avisa para que puedas ubicar de nuevo la ruta del
archivo que ha perdido su ruta ? ...

Comentanos...!

Saludos
Monica

www.fermu.com
www.teladearana.es

sobre el primero gracias y conseguido

sobre el segundo, gracias también, pero lástima hubiera sido estupendo,
nos ahorraríamos bastante trabajo

Monica May escribió:

hola,

Al hacer un word con datos combinados, me pide una ruta del archivo
dedatos. Se la doy y todo perfecto.
1º ...hago una copia del archivo y ... copia del archivo de datos...
cambio cosas, al abrir este nuevo archivo, en otra carpeta, me pide
que abra el origen de datos, pero cuando lo vinculo a un nuevo archivo
de datos, no se queda guardado.

Si realizas una copia de ambos archivos y quieres que exista combinacion
en esos archivos de copia, deberas de crear de nuevo una nueva
combinacion de correspondencia...

2º Me gustaria darle una ruta guardada al archivo de word que fuera
\datos.xls (siendo que al ponerlo así, empezara a contar desde la
carpeta en la que se encuentra el archivo de word) ...es posible
ponerlo de alguna forma? de esta forma se mueve el archivo de word y
los datos a otra carpeta y no habria problemas al abrirlo tener que
buscar.

Hasta donde se y creo recordar que esto no es posible sobre
combinaciones de correspondencia ya que cuando se pierde el origen de la
combinacion el propio programa te avisa para que puedas ubicar de nuevo
la ruta del archivo que ha perdido su ruta ? ...

Comentanos...!

Saludos
Monica

Se me ha ocurrido una pequeña idea, la dejo por si sirve, funciona
perfectamente, si se te ocurre algo para mejorarla sería estupendo por
código se puede colocar esto.

La mejora sería algo así, al abrir el word, este podría preguntarte si
quieres cambiar el nombre del origen de datos (puesto que la ruta
siempre será la de el word) si tú le dice que sí, lo que haces es
escribir en un inputbox, o en el filedialog, el nombre del archivo, esto
ahora la clave es guardar ese nombre en algún sitio (esto es lo que
no sabría hacer, si me ayudas, acabamos de completarlo), claro eso sí,
tendría que ser un archivo de excel y la hoja siempre la 1

bueno espero a alguien le sirva, para mi es muy útil no tener que ir
buscando cada vez el origen de datos

un saludo y muchas gracias Mónica.

Sub autoopen()
'
' Macro1 Macro
' Macro grabada el 27/06/2009 por Fernando Mollat Pardo
'
MsgBox "Tu estás funcionando con la macro ""autoopen""",
vbMsgBoxSetForeground

AbrirOrigenDatos

End Sub

Sub AbrirOrigenDatos()
'
' Macro1 Macro
' Macro grabada el 27/06/2009 por Fernando Mollat Pardo
'

ActiveDocument.MailMerge.OpenDataSource Name:= _
ThisDocument.Path & "\Libro1.xls" _
, ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="",
PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="",
Revert:=False, _
Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User
ID=Admin;Data Source=" & ThisDocument.Path &
"\Libro1.xls;Mode=Read;Extended Pr" _
, SQLStatement:="SELECT * FROM `Hoja1$`", SQLStatement1:="",
SubType:= _
wdMergeSubTypeAccess
ThisDocument.MailMerge.ViewMailMergeFieldCodes = False


End Sub

Monica May escribió:

hola,

Al hacer un word con datos combinados, me pide una ruta del archivo
dedatos. Se la doy y todo perfecto.
1º ...hago una copia del archivo y ... copia del archivo de datos...
cambio cosas, al abrir este nuevo archivo, en otra carpeta, me pide
que abra el origen de datos, pero cuando lo vinculo a un nuevo archivo
de datos, no se queda guardado.

Si realizas una copia de ambos archivos y quieres que exista combinacion
en esos archivos de copia, deberas de crear de nuevo una nueva
combinacion de correspondencia...

2º Me gustaria darle una ruta guardada al archivo de word que fuera
\datos.xls (siendo que al ponerlo así, empezara a contar desde la
carpeta en la que se encuentra el archivo de word) ...es posible
ponerlo de alguna forma? de esta forma se mueve el archivo de word y
los datos a otra carpeta y no habria problemas al abrirlo tener que
buscar.

Hasta donde se y creo recordar que esto no es posible sobre
combinaciones de correspondencia ya que cuando se pierde el origen de la
combinacion el propio programa te avisa para que puedas ubicar de nuevo
la ruta del archivo que ha perdido su ruta ? ...

Comentanos...!

Saludos
Monica

Hola Fernando,

Puedes probar a mejorarla asi >>

'[]

Sub demo_a()
Dim xconexion As String
With ActiveDocument.MailMerge
.MainDocumentType = wdNotAMergeDocument
.MainDocumentType = wdFormLetters
.OpenDataSource Name:=ThisDocument.Path & "\Libro1.xls", _
ReadOnly:=True, _
Connection:=xconexion ', _
SQLStatement:="SELECT * FROM `Hoja1$`"
End With
End Sub

'[]

Fijate en la linea de codigo >>

SQLStatement:="SELECT * FROM `Hoja1$`"

La `hoja1$` esta entrecomillada con los apostrofes invertidos y si quitas
esta linea puedes elegir la hoja a crear la combinacion.

En cuanto al libro puedes crear una variable y asociarle esa variable
mediante algun inputbox ? pero lo logico es que si creas una macro AutoOpen
lo logico es que le pongas ya el archivo de excel el cual lleve su
combinacion ( para las copias su archivo de excel de la combinacion
original) ya que si vas a cambiar de origen de datos no te hace falta ningun
codigo ya que el propio programa te da opcion a cambiar el origen de datos
...no sep... comprueba a ver y gracias a ti Fernando:-) !

Saludos
Monica


- Consulta-

Se me ha ocurrido una peque#a idea, la dejo por si sirve, funciona
perfectamente, si se te ocurre algo para mejorarla seria estupendo por
codigo se puede colocar esto.
La mejora seria algo asi, al abrir el word, este podria preguntarte si
quieres cambiar el nombre del origen de datos (puesto que la ruta siempre
será la de el word) si tu le dice que si, lo que haces es escribir en un
inputbox, o en el filedialog, el nombre del archivo, esto ahora la clave
es guardar ese nombre en algun sitio (esto es lo que no sabría hacer, si
me ayudas, acabamos de completarlo), claro eso si, tendria que ser un
archivo de excel y la hoja siempre la 1
bueno espero a alguien le sirva, para mi es muy útil no tener que ir
buscando cada vez el origen de datos
un saludo y muchas gracias Mónica.
Sub autoopen()
'
' Macro1 Macro
' Macro grabada el 27/06/2009 por Fernando Mollat Pardo
'
MsgBox "Tu estás funcionando con la macro ""autoopen""",
vbMsgBoxSetForeground

AbrirOrigenDatos

End Sub

Sub AbrirOrigenDatos()
'
' Macro1 Macro
' Macro grabada el 27/06/2009 por Fernando Mollat Pardo
'

ActiveDocument.MailMerge.OpenDataSource Name:= _
ThisDocument.Path & "\Libro1.xls" _
, ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True,
_
AddToRecentFiles:=False, PasswordDocument:="",
PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="",
Revert:=False, _
Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User ID=Admin;Data
Source=" & ThisDocument.Path & "\Libro1.xls;Mode=Read;Extended Pr" _
, SQLStatement:="SELECT * FROM `Hoja1$`", SQLStatement1:="",
SubType:= _
wdMergeSubTypeAccess
ThisDocument.MailMerge.ViewMailMergeFieldCodes = False


End Sub

He estado fuera, lo pruebo y te digo

gracias por todo

Monica May escribió:

Hola Fernando,

Puedes probar a mejorarla asi >>

'[]

Sub demo_a()
Dim xconexion As String
With ActiveDocument.MailMerge
.MainDocumentType = wdNotAMergeDocument
.MainDocumentType = wdFormLetters
.OpenDataSource Name:=ThisDocument.Path & "\Libro1.xls", _
ReadOnly:=True, _
Connection:=xconexion ', _
SQLStatement:="SELECT * FROM `Hoja1$`"
End With
End Sub

'[]

Fijate en la linea de codigo >>

SQLStatement:="SELECT * FROM `Hoja1$`"

La `hoja1$` esta entrecomillada con los apostrofes invertidos y si
quitas esta linea puedes elegir la hoja a crear la combinacion.

En cuanto al libro puedes crear una variable y asociarle esa variable
mediante algun inputbox ? pero lo logico es que si creas una macro
AutoOpen lo logico es que le pongas ya el archivo de excel el cual lleve
su combinacion ( para las copias su archivo de excel de la combinacion
original) ya que si vas a cambiar de origen de datos no te hace falta
ningun codigo ya que el propio programa te da opcion a cambiar el origen
de datos ...no sep... comprueba a ver y gracias a ti Fernando:-) !

Saludos
Monica


- Consulta-

Se me ha ocurrido una peque#a idea, la dejo por si sirve, funciona
perfectamente, si se te ocurre algo para mejorarla seria estupendo por
codigo se puede colocar esto.
La mejora seria algo asi, al abrir el word, este podria preguntarte si
quieres cambiar el nombre del origen de datos (puesto que la ruta
siempre será la de el word) si tu le dice que si, lo que haces es
escribir en un inputbox, o en el filedialog, el nombre del archivo,
esto ahora la clave es guardar ese nombre en algun sitio (esto es lo
que no sabría hacer, si me ayudas, acabamos de completarlo), claro eso
si, tendria que ser un archivo de excel y la hoja siempre la 1
bueno espero a alguien le sirva, para mi es muy útil no tener que ir
buscando cada vez el origen de datos
un saludo y muchas gracias Mónica.
Sub autoopen()
'
' Macro1 Macro
' Macro grabada el 27/06/2009 por Fernando Mollat Pardo
'
MsgBox "Tu estás funcionando con la macro ""autoopen""",
vbMsgBoxSetForeground

AbrirOrigenDatos

End Sub

Sub AbrirOrigenDatos()
'
' Macro1 Macro
' Macro grabada el 27/06/2009 por Fernando Mollat Pardo
'

ActiveDocument.MailMerge.OpenDataSource Name:= _
ThisDocument.Path & "\Libro1.xls" _
, ConfirmConversions:=False, ReadOnly:=False,
LinkToSource:=True, _
AddToRecentFiles:=False, PasswordDocument:="",
PasswordTemplate:="", _
WritePasswordDocument:="", WritePasswordTemplate:="",
Revert:=False, _
Format:=wdOpenFormatAuto, Connection:= _
"Provider=Microsoft.Jet.OLEDB.4.0;Password="""";User
ID=Admin;Data Source=" & ThisDocument.Path &
"\Libro1.xls;Mode=Read;Extended Pr" _
, SQLStatement:="SELECT * FROM `Hoja1$`", SQLStatement1:="",
SubType:= _
wdMergeSubTypeAccess
ThisDocument.MailMerge.ViewMailMergeFieldCodes = False


End Sub