8 месяцев назад
Автоматизация переноса таблиц из Word в AutoCAD
Программа "CopyTableToAutoCAD_Full" предназначена для автоматического копирования таблиц из Microsoft Word в AutoCAD. Она создает аналогичную таблицу в AutoCAD, сохраняя структуру, ширину столбцов и текстовое содержимое. Этот макрос полезен для инженеров, проектировщиков, архитекторов и всех, кто работает с чертежами в AutoCAD и часто переносит таблицы из текстовых документов. Программа значительно экономит время, устраняя необходимость ручного ввода данных и форматирования таблиц. Sub CopyTableToAutoCAD_Full() Dim WordTable As Table Dim acadApp As Object Dim acadDoc As Object Dim...
6 месяцев назад
Перенос таблицы AutoCAD в Word с помощью VBA
Работа с таблицами в AutoCAD нередко требует переноса данных в другие программы, например, Microsoft Word. Макрос выполняет следующие задачи: Приведённый ниже код написан на VBA и предназначен для выполнения в AutoCAD: Sub CopyAcadTableToWord() Dim acadApp As Object Dim acadDoc As Object Dim sset As Object Dim ent As Object Dim acadTable As Object Dim wordApp As Object Dim wordDoc As Object Dim wordTable As Object Dim rowCount As Integer Dim colCount As Integer Dim i As Integer, j As Integer ' Подключаемся к AutoCAD On Error Resume Next Set acadApp = GetObject(, "AutoCAD...