Compartir a través de

Método Documents.Open (Visio)

  • Artículo

Abre un archivo existente para que pueda modificarse.

Sintaxis

expresión. Open (FileName)

Expresión Variable que representa un objeto Documents .

Parameters

Nombre Obligatorio/opcional Tipo de datos Descripción
FileName Necesario String Nombre del archivo que se va a abrir.

Valor devuelto

Documento

Comentarios

Cuando se usa el método Open para abrir un objeto Document , se abre un archivo de Microsoft Visio como original. Dependiendo de la extensión del nombre de archivo, el método Open abrirá un dibujo (.vsd), una galería de símbolos (.vss), una plantilla (.vst), un área de trabajo (.vsw), un dibujo XML (.vdx), una galería de símbolos XML (.vsx) o una plantilla XML (.vtx). También puede utilizar este método para abrir y convertir archivos que no son de Visio en archivos de Visio. Si el archivo no existe o su nombre no es válido, no se devolverá ningún objeto Document y se generará un error.

Si pasa un nombre de archivo de galería de símbolos (.vss) válido, se abrirá el archivo de galería de símbolos original. A partir de Microsoft Office Visio 2003, solo se pueden editar las galerías de símbolos creadas por el usuario. De forma predeterminada, las galerías de símbolos de Visio no son editables. A menos que desee crear o editar los patrones, abra la galería de símbolos como galería de sólo lectura.

Ejemplo:

Esta macro de Microsoft Visual Basic para Aplicaciones (VBA) muestra cómo abrir un documento en blanco, un documento nuevo basado en una plantilla y un documento existente.

Antes de ejecutar esta macro, reemplace elnombre de archivo de ruta de acceso \ por la ruta de acceso y el nombre de archivo de un archivo de plantilla válido (.vst) en el equipo.

 
Public Sub OpenDocument_Example() 
 
 Dim vsoDocument As Visio.Document 
 
 'Open a blank document (not based on a template). 
 Set vsoDocument = Documents.Add("") 
 
 'Open a new document based on a template. 
 Set vsoDocument = Documents.Add _ 
 ("path \filename ") 
 
 'Open an existing document. 
 Set vsoDocument = Documents.Open _ 
 ("path \filename ") 
 
End Sub

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.