Поделиться через

Практическое руководство. Программное сохранение документов Visio

  • Статья

Существует несколько способов сохранить документы Microsoft Office Visio.

  • Сохраните изменения в существующем документе.

  • Сохраните новый документ или сохраните документ с новым именем.

  • Сохраните документ с заданными аргументами.

Дополнительные сведения см. в справочной документации VBA для метода Microsoft.Office.Interop.Visio.Document.Save, метода Microsoft.Office.Interop.Visio.Document.SaveAs и метода Microsoft.Office.Interop.Visio.Document.SaveAsEx.

Сохранение существующего документа

Процедура сохранения документа

  • Вызовите метод Microsoft.Office.Interop.Visio.Document.Save класса Microsoft.Office.Tools.Visio.Document сохраненного ранее документа.

    Чтобы использовать этот пример кода, выполните его из класса ThisAddIn в проекте.

    ПримечаниеПримечание

    Метод Microsoft.Office.Interop.Visio.Document.Save вызывает исключение в случае, если новый документ Visio еще не был сохранен.

    		 
    Me.Application.ActiveDocument.Save()

    this.Application.ActiveDocument.Save();

Сохранение документа с новым именем

Используйте метод Microsoft.Office.Interop.Visio.Document.SaveAs для сохранения нового документа или документа с новым именем.Этот метод требует указания нового имени файла.

Сохранение активного документа Visio с новым именем

  • Вызовите метод Microsoft.Office.Interop.Visio.Document.SaveAs документа Microsoft.Office.Tools.Visio.Document, который необходимо сохранить, с помощью полного пути, включая имя файла.Если файл с указанным именем уже существует в папке, он будет перезаписан без запроса подтверждения.

    Чтобы использовать этот пример кода, выполните его из класса ThisAddIn в проекте.

    Dim docPath As String = System.Environment.GetFolderPath(System.Environment.SpecialFolder.MyDocuments) + "\test\MyDrawing.vsd"
Me.Application.ActiveDocument.SaveAs(docPath)

    string docPath = System.Environment.GetFolderPath(System.Environment.SpecialFolder.MyDocuments) + @"\test\MyDrawing.vsd";
this.Application.ActiveDocument.SaveAs(docPath);

Сохранение документа с новым именем и заданными аргументами

Используйте метод Microsoft.Office.Interop.Visio.Document.SaveAsEx для сохранения документа с новым именем и задайте любые применимые аргументы.

Сохранение документа с новым именем и заданными аргументами

  • Вызовите метод Microsoft.Office.Interop.Visio.Document.SaveAsEx документа Microsoft.Office.Tools.Visio.Document, который необходимо сохранить, с помощью полного пути, включая имя файла.Если файл с указанным именем уже существует в папке, будет вызвано исключение.

    В следующем примере кода активный документ сохраняется с новым именем, помечается как "только для чтения" и отображается в списке последних использовавшихся документов.Чтобы использовать этот пример кода, выполните его из класса ThisAddIn в проекте.

    Dim newDocPath As String = System.Environment.GetFolderPath(System.Environment.SpecialFolder.MyDocuments) + "\test\MyOtherDrawing.vsd"
Me.Application.ActiveDocument.SaveAsEx(newDocPath, CShort(Microsoft.Office.Interop.Visio.VisOpenSaveArgs.visSaveAsRO) + CShort(Microsoft.Office.Interop.Visio.VisOpenSaveArgs.visSaveAsListInMRU))

    string newDocPath = System.Environment.GetFolderPath(System.Environment.SpecialFolder.MyDocuments) + @"\test\MyOtherDrawing.vsd";
this.Application.ActiveDocument.SaveAsEx(newDocPath,
    ((short)Microsoft.Office.Interop.Visio.VisOpenSaveArgs.visSaveAsRO +
     (short)Microsoft.Office.Interop.Visio.VisOpenSaveArgs.visSaveAsListInMRU));

Компиляция кода

Для выполнения этого примера кода требуется следующее:

  • Чтобы сохранить документ с новым именем, следует разместить каталог с именем Test в папке "Мои документы"(для Windows XP и более ранних версий) или в папке "Документы" (для Windows Vista).

См. также

Задачи

Практическое руководство. Программное создание документов Visio

Практическое руководство. Программное открытие документов Visio

Практическое руководство. Программное закрытие документов Visio

Практическое руководство. Программная печать документов Visio

Основные понятия

Общие сведения об объектной модели Visio

Другие ресурсы

Решения Visio