Ruta para Archivar

31/03/2006 - 15:45 por Compumakro | Informe spam

Amigos de Word2003
Hace unos días Nilda Beatriz me envió un código de autonumeración:

Private Sub Document_New()

Dim Numerador As Integer

'para este ejemplo estamos guardando el archivo donde se

'guarda el último número en la unidad C:

Dim NombreArchivo As String

NombreArchivo = "C:/UltimoNumero.txt"

'Se fija si ya existe el archivo

If Dir(NombreArchivo) <> "" Then 'el archivo existe

Open NombreArchivo For Input As 1 'abre el archivo

Input #1, Numerador 'lee el número grabado en el archivo

Close 1 'cierra el archivo

End If

Numerador = Numerador + 1 'le suma uno

ActiveDocument.FormFields("Numerar").Result = Numerador

'coloca en el campo del documento el número que corresponde

Open NombreArchivo For Output As 1 'abre el archivo para grabar el nuevo
número

Print #1, Numerador 'guarda el número en el archivo

Close 1 'lo cierra

End Sub

Ahora necesito cómo se hace para que todos los documentos que se hagan desde
esa plantilla vayan a una carperta específica y no a Mis Documentos como es
lo estandard.

Sin alterar los nuevos documentos distintos a la plantilla

Gracias

Oscar

Siga el debate

3 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Francisco GMAIL

02/04/2006 - 15:34 | Informe spam

Esto es lo que buscas.

Propiedad DefaultFilePath
Vea también Se aplica a Ejemplo Específicos
Devuelve o establece carpetas predeterminadas para elementos tales como
documentos, plantillas y gráficos. String de Lectura/Escritura.

expresión.DefaultFilePath(Path)

expresión Requerida. Expresión que devuelve un objeto Options.

Path WdDefaultFilePath requerida. La carpeta predeterminada que se va a
definir.

WdDefaultFilePath puede ser una de estas constantes WdDefaultFilePath.
wdAutoRecoverPath
wdCurrentFolderPath
wdGraphicsFiltersPath
wdProgramPath
wdStartupPath
wdTempFilePath
wdToolsPath
wdUserOptionsPath
wdWorkgroupTemplatesPath
wdBorderArtPath
wdDocumentsPath
wdPicturesPath
wdProofingToolsPath
wdStyleGalleryPath
wdTextConvertersPath
wdTutorialPath
wdUserTemplatesPath

Comentarios
La nueva configuración se hace efectiva de forma inmediata.

Se puede utilizar una cadena vacía ("") para quitar la configuración del
registro de Windows.

Ejemplo
En este ejemplo se define la carpeta predeterminada de los documentos de
Word.

Options.DefaultFilePath(wdDocumentsPath) = "C:\Documents"
En este ejemplo se devuelve la ruta de acceso predeterminada actual de las
plantillas de usuario (se corresponde con el valor de la ruta de acceso
predeterminada de la ficha Archivos del cuadro de diálogo Opciones).

Dim strPath As String

strPath = Options.DefaultFilePath(wdUserTemplatesPath)

Responder a este mensaje

#2 Compumakro

03/04/2006 - 13:36 | Informe spam

Francisco Gracias por tu respuesta, Lamentablemente yo no tengo los
conocimientos suficientes para entender al vuelo lo que me explicas
Si yo tengo la carpeta final en:
C:\Documents and Settings\Compumakro\Mis documentos\Ropa

Quedaría así?...o algo así?...

Dim strPath As String
Options.wdDocumentsPath(wdDocumentsPath) = "C:\Documents and
Settings\Compumakro\Mis documentos\Ropa"
strPath = Options.wdDocumentsPath(wdUserTemplatesPath)

La verdad que no entiendo
Espero de tu gentileza una ayuda
Gracias
Oscar

"Francisco GMAIL" escribió en el mensaje
news:%

Esto es lo que buscas.

Propiedad DefaultFilePath
Vea también Se aplica a Ejemplo Específicos
Devuelve o establece carpetas predeterminadas para elementos tales como
documentos, plantillas y gráficos. String de Lectura/Escritura.

expresión.DefaultFilePath(Path)

expresión Requerida. Expresión que devuelve un objeto Options.

Path WdDefaultFilePath requerida. La carpeta predeterminada que se va a
definir.

WdDefaultFilePath puede ser una de estas constantes
WdDefaultFilePath.
wdAutoRecoverPath
wdCurrentFolderPath
wdGraphicsFiltersPath
wdProgramPath
wdStartupPath
wdTempFilePath
wdToolsPath
wdUserOptionsPath
wdWorkgroupTemplatesPath
wdBorderArtPath
wdDocumentsPath
wdPicturesPath
wdProofingToolsPath
wdStyleGalleryPath
wdTextConvertersPath
wdTutorialPath
wdUserTemplatesPath

Comentarios
La nueva configuración se hace efectiva de forma inmediata.

Se puede utilizar una cadena vacía ("") para quitar la configuración del
registro de Windows.

Ejemplo
En este ejemplo se define la carpeta predeterminada de los documentos de
Word.

Options.DefaultFilePath(wdDocumentsPath) = "C:\Documents"
En este ejemplo se devuelve la ruta de acceso predeterminada actual de las
plantillas de usuario (se corresponde con el valor de la ruta de acceso
predeterminada de la ficha Archivos del cuadro de diálogo Opciones).

Dim strPath As String

strPath = Options.DefaultFilePath(wdUserTemplatesPath)

Responder a este mensaje

#3 Francisco GMAIL

04/04/2006 - 03:14 | Informe spam

ya probaste correr el codigo ke mencionas, no hay nada como aprender en la
practica
resulta muy sencillo tal como lo excribiste
saludos

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida