Forums Últimos mensajes - Powered by IBM
 
Tags Palabras claves

Ruta para Archivar

31/03/2006 - 15:45 por Compumakro | Informe spam
Ayuda Hacer una pregunta
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
email Siga el debateRespuesta 3 respuestasRespuesta Tengo una respuesta
DRAGON AGE™: INQUISITION – Matadragones
 

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)

Preguntas similares

 

Busqueda sugerida :