Вопрос про Microsoft Office Visio! А вернее даже два вопроса!!!!11

Question

Вопрос про Microsoft Office Visio! А вернее даже два вопроса!!!!11

MATPOC Мастер (1139), закрыт 15 лет назад

Я сделал схему в Visio, схема имеет очень сложную структуру, надписи и пояснения. Данную схему мне необходимо вставить в свою работу выполненную в Word-e.
1.) Как схему переместить из Visio в Word?
Конечно можно сохранить схему из Visio в .jpeg, а потом вставить рисунком в Word, но любопытен способ вставки схемы с возможностью ее последующего (не сложного) редактирования! Иначе, при возможном варианте последующего изменения структуры схемы, прийдется хранить вместе 2 документа Visio и Word.
2.) Есть ли способ экспортирования документа Visio в понятный для Word-а формат, и наоборот импортировать в Visio рисунок, созданный внутренними средствами Word-а?

Answer 1

Выдели всю схему в VISIO мышью, правой клавишей копировать, потом заходишь в WORD, правой клавишей вставить

Answer 2

Как можно вставить Visio в Word? Есть документ в ворде и документ в визио (страниц много) . В ворде делаю
ThisDocument.Shapes.AddOLEObject "Visio.Drawing", File_vsd, , 75, 75, 400, 450, Selection.Range
Но это только первая страница, а нужно вставить в Word страницы из Visio одна за другой (не обязательно в том же порядке, как в Visio), под рисунок написать: Рис. "N"-i "appVisio.ActiveDocument.Pages.Item(i)" , за ней следующую и т. д.

Вставляя OLE объект из файла Вы вставляете весь многостраничный документ, а не только первую страницу. Тем более, что вставляется не первая страница, а та, на которой был закрыт документ Visio, например, последняя или пятая. Если сделать ту же операцию вручную из меню Word, то во вставленном объекте можно переходить с одной страницы на другую. Можно вставить объект два раза в разные места, а потом в одном из них перейти на другую страницу, и в Word'е Вы увидите две разные картинки. Если Вы хотите вставить несколько объектов, отображающих по умолчанию разные страницы рисунка Visio, то это будут просто копии одного и того же объекта, но открытые на разных страницах.
Как иллюстрация работает такой вариант:
Документ Visio был сохранен на третьей странице. Программка делает следующее: вставляет третью страницу (первый AddOle), перелистывает файл на первую страницу, вставляет первую страницу (второй AddOle).
ActiveDocument.InlineShapes.AddOLEObject _
ClassType:="Visio.Drawing", DisplayAsIcon:=False, _
FileName:="g:\Business\MP\Orders\importer.vsd", _
Range:=ActiveDocument.Paragraphs(2).Range
On Error Resume Next
Dim appObj As Visio.Application
Set appObj = CreateObject("Visio.Application")
If appObj Is Nothing Then
MsgBox "Failed creating Visio instance."
Else
' MsgBox "ProcessID: " & appObj.ProcessID
' appObj.Visible = True
End If
Set docsObj = appObj.Documents.Open("g:\Business\MP\Orders\importer.vsd")
Set pagsObj = docsObj.Pages
appObj.ActiveWindow.Page = "Page-1"
appObj.ActiveDocument.Save
appObj.Quit
ActiveDocument.InlineShapes.AddOLEObject _
ClassType:="Visio.Drawing", DisplayAsIcon:=False, _
FileName:="g:\Business\MP\Orders\importer.vsd", _
Range:=ActiveDocument.Paragraphs(3).Range
Возможен и другой вариант - вставлять объекты не из файла, а открыть приложение Visio, не закрывая листать его и передавать объекты через Clipboard.