Как вставить в визио таблицу из ворда
В качестве полей можно использовать переменные документа. Придумайте им название, например, v1, v2 и v3.
Эти переменные надо сначала вставить в шаблон, а потом в документ вставить поля для вывода их значений.
Готовите шаблон, в который будете вставлять данные. Пишете в нем макрос, создающий переменные документа. Для этого открываете редактор Visual Basic
Сервис / Макрос / редактор Visual Basic
Щелкаете слева по ThisDocument. В большом окне справа будет надпись Option Explicit и больше ничего. Вместо этой надписи набираете примерно такой текст
Sub SetVariable()
Application.ActiveDocument.Variables.Add («v1»)
Application.ActiveDocument.Variables.Add («v2»)
Application.ActiveDocument.Variables.Add («v3»)
End Sub
и нажимаете F5, чтобы его выполнить.
Макрос создаст в шаблоне три переменных. Больше он не понадобится, разве что изменить что-нибудь нужно будет.
Теперь надо вставить поля в текст документа. Закрываем редактор Visual Basic и забываем про него.
В документе ставим маркер на нужное место. Выполняем
Вставка / Поле / Автоматизация документа / DocVariable
и там, где высветилось DOCVARIABLE, добавляем имя переменной. Будет, например,
DOCVARIABLE v1
Жмем OK
Таким же образом вставляем в остальные места поля с другими переменными.
Сохраняем то, что получилось, как шаблон Word и закрываем Word.
——————
Теперь занимаемся с Visio
Я так понимаю, что из шейпов нужные данные Вы достать сможете. Трудности в том, как записать их в переменные Word.
Пишем примерно такой макрос в Visio (добавляем к Вашей программе):
Dim appWD As Word.Application
Err.Number = 0
On Error GoTo krash
Set appWD = CreateObject(«Word.Application.9»)
appWD.Visible = True
‘здесь нужно будет достать из шейпа нужные данные, в примере их три штуки s1, s2 и s3
With appWD
Set myDoc = .Documents.Add(«forVisio.dot»)
appWD.ActiveDocument.Variables(1) = s1
appWD.ActiveDocument.Variables(2) = s2
appWD.ActiveDocument.Variables(2) = s3
.Selection.WholeStory
.Selection.Fields.Update
.Selection.WholeStory
myDoc.SaveAs Filename:=»Какое-нибудь имя файла»
myDoc.Close
Set myDoc = Nothing
End With
krash:
If Err.Number <> 0 Then
MsgBox «Не открывается Word»
Exit Sub
End If
appWD.Quit
Set appWD = Nothing
Комментарии:
CreateObject(«Word.Application.9») запустит Word. Чтобы это сработало, в проекте Visio должна быть подключена библиотека Microsoft Word 9. (или какая там у Вас, выберите в списке References).
Блок With . End With создает документ Word по шаблону forVisio.dot (или как там Вы назвали подготовленный шаблон), записывает в этот документ значения трех переменных, сохраняет его под каким-то именем и закрывает документ.
Ниже только обработка ошибки, если Word не откроется.
| Данный сайт является архивом форума visio.artberg.ru, который был закрыт в связи с переходом на новую платформу visio.getbb.ru Все материалы доступны только для чтения! Если у вас появились вопросы, или вы хотите что-то обсудить, связанное с Visio, обращайтесь на новый форум! Архив был создан благодаря совместным усилиям Генадия Туманова @Tumanov (visio.artberg.ru), Александра ака @Surrogate (visio.getbb.ru), и Николая Белых @nbelyh (unmanagedvisio.com) |
Добавление таблицы в документ
В документе Visio можно создавать таблицы с помощью фигур, хотя возможности их редактирования ограничены. Если вам нужна настраиваемая таблица или вы хотите отобразить данные, которые могут изменяться, лучше создайте таблицу в Excel, Word или PowerPoint, а затем вставьте ее в документ.
Создание таблицы с помощью фигур Visio
Самые распространенные фигуры Visio для создания таблиц включены в набор элементов Фигуры для диаграмм.
В окне Фигуры нажмите кнопку Дополнительные фигуры и выберите Бизнес > Диаграммы и графики, а затем — Фигуры для диаграмм. В окне Фигуры отобразится набор элементов.
Самую обычную таблицу проще всего создать с помощью фигуры Сетка.
- Перетащите фигуру Сетка из окна Фигуры на страницу документа.
- Когда вы отпустите фигуру, появится диалоговое окно Данные фигуры, в котором нужно ввести количество строк и столбцов таблицы. Нажмите кнопку OК, и сетка таблицы отобразится в документе.
Совет: Чтобы переместить таблицу, просто перетащите ее, не нажимая. Если вы нажмете таблицу, может выделиться отдельная ячейка сетки, и тогда таблица не переместится. В этом случае щелкните область вне таблицы и попробуйте перетащить ее еще раз.
Примечание: Размер ячейки не изменяется автоматически, если текст в нее не помещается. Если это важное условие, будет проще создать таблицу в Excel или Word. Подробнее об этом см. ниже.
Вставка таблицы из другой программы Office
Возможно, вам будет легче и удобнее создать таблицу в Excel или Word, а затем переместить ее в документ Visio. Используйте команду Специальная вставка, чтобы сохранить исходное форматирование таблицы и получить возможность редактировать ее в дальнейшем в той программе, в которой ее создали.
Примечание: Вы можете вставить таблицу, созданную в PowerPoint, и сохранить ее исходное форматирование, но вам не удастся отредактировать ее позже даже при использовании команды Специальная вставка.
Копирование из электронной таблицы Excel и документа Word осуществляется одинаково. В данном примере мы воспользуемся листом Excel.
- Выделите таблицу на листе Excel или только ту ее часть, которую требуется перенести в документ. Щелкните правой кнопкой мыши выделенные ячейки и выберите команду Копировать.
- В документе Visio щелкните правой кнопкой мыши страницу, на которую нужно добавить таблицу, а затем выберите команду Специальная вставка.
Важно: Обязательно используйте команду Специальная вставка. Если вы выберете команду Вставить, то потеряете строки, столбцы и форматирование таблицы.
Если вы щелкните для вставки в качестве листа или документа, но ничего не происходит, проверьте, какая программа создана в этой таблице. Например, при возврате в Excel может быть обнаружено уведомление безопасности, которое запускается, так как в Visio используется макрос для подключения таблицы к Excel. Нажмите кнопку включить макросыи при пополучении другого уведомления о подключениях к данным нажмите кнопку включить. После этого таблица будет отображаться в документе Visio.
Совет: Если вы считаете, что таблицу не потребуется редактировать в будущем, в диалоговом окне Специальная вставка в списке Как: выберите вариант Рисунок. При этом таблица сохранит форматирование программы, в которой она была создана.
Примечание: Эта страница переведена автоматически, поэтому ее текст может содержать неточности и грамматические ошибки. Для нас важно, чтобы эта статья была вам полезна. Была ли информация полезной? Для удобства также приводим ссылку на оригинал (на английском языке).
Flowchart Converter: конвертирование блок-схем из Word, PowerPoint, Excel в Visio 2007
Microsoft Visio Toolbox пополнился новой бесплатной надстройкой (addin) — Flowchart Converter.
Основные предназначение и возможности:
- возможность конвертировать блок-схему из Word, Excel и PowerPoint в динамичную, связанную с данными диаграмму Visio. Любые статичные блок-схемы теперь можно конвертировать в Visio и автоматически их обновлять.
- возможность просматривать результаты конвертирования и получать информацию о некорректно трансформированных объектах.
Требование: на машине должно стоять обновление официальной странице.
Как вставить таблицу в Visio?
Таблицу легче создавать в другой программе, чем в «висио», а потом ее туда можно элементарно вставить, отредактировать и сохранить. Копировать таблицу из «эксель» или «ворда», а потом вставить в «висио» делается одинаково. Такс, например, у нас есть таблица в «эксель». Выделяем ее, для чего щелкаем правой кнопкой и выбираем «копировать». В «висио» щелкаем правой кнопкой на ту страницу, где у нас будет таблица, а потом выбираем «специальная вкладка». Если выбрать «вставить», то столбцы и строки при копировании «потеряются». Вставив таблицу, идем опять в «специальная вставка» и жмем сохранить, как «рисунок».
Другие вопросы посетителей из раздела «Бизнес Microsoft Visio»:
Программное обеспечение
Оборудование
Служба поддержки
Размещение рекламы
info@sotoguide.ru
Копирование материалов допускается только при указании источника