Работа с Word-документом через XML

[Скрипт]

nerv, вот такой код быстро сработал - около минуты, таблица на 100 страниц.
Для работы кода нужно подключить библиотеку в Tools - References:
Microsoft XML версия.

Sub Procedure_1()

    'Создаём объект "MSXML2.DOMDocument".
    'Даём объетку "MSXML2.DOMDocument" VBA-имя "myXMLDocument".
    'Через имя "myXMLDocument" будем обращаться к объекту "MSXML2.DOMDocument".
    Dim myXMLDocument As New MSXML2.DOMDocument
    Dim myCell As MSXML2.IXMLDOMElement
    Dim myTable As Word.Table
    Dim myTimer As Double
    
    '1. Запоминаем время начало работы кода.
    myTimer = Timer
    
    '2. Даём таблице VBA-имя "myTable".
    Set myTable = ActiveDocument.Tables(1)
    
    '3. Я так понимаю, что формируем XML-документ.
    myXMLDocument.LoadXML (myTable.Range.XML)
    
    '4. Просматриваем все XML-теги "w:tcW".
    '"w:tcW" означает "ширина ячейки":
        '"w" - буква означает, что тег относится к программе "Word" (я так думаю);
        'tcW - table cell width.
    For Each myCell In myXMLDocument.DocumentElement.getElementsByTagName("w:tcW")
        
        '5. Устанавливаем ширину ячейки.
        'В XML-Word используется две единицы измерения: твипсы и проценты.
        'Я задаю в твипсах.
        myCell.Attributes.Item(0).NodeValue = 2900
        
    Next
    
    '6. Удаляем таблицу, чтобы вместо неё вставить изменённую таблицу.
    myTable.Delete
    
    '7. Вставляем содержимое XML-объекта.
    ActiveDocument.Range.InsertXML (myXMLDocument.XML)
    
    '8. Выводим в View - Immediate Window сколько секунд работал код.
    Debug.Print Timer - myTimer
    
End Sub

Код, тыкая написал, надо ещё разбираться что к чему. А так, по идее, если будет быстро работать, то удобнее, чем напрямую вносить изменения в XML-файл, т.к. не надо производить подсчётов размеров таблицы.

[nerv]

вот такой код быстро сработал

поздравляю

Для работы кода нужно подключить библиотеку в Tools - References:

я в курсе. Не люблю ничего подключать, поэтому использую позднее связывание.

зачем ты пишешь везде му? Это же не Герасим с Му-му. От этого код только хуже читается. Убери их -

Dim myXMLDocument As New MSXML2.DOMDocument
Dim myCell As MSXML2.IXMLDOMElement
Dim myTable As Word.Table
Dim myTimer As Double

в результате получится локальная переменная Timer, которая переопределит глобальную функцию на уровне процедуры. Достучаться до нее можно так:

Dim Timer As Double

Timer = VBA.Timer

[Скрипт]

nerv, я добавляю префикс "my", чтобы название переменной не совпало с зарезервированным словом. Мне самому неудобно читать переменные, когда у них префиксы. Но думаю, что к этому можно привыкнуть и через некоторое время префикс не будет мешать.


Примечание

Префиксы по-другому ещё называются приставками.

[nerv]

Но думаю, что к этому можно привыкнуть

а я думаю, что их не надо добавлять. Тем более такие бессмысленные.

Если ты напишешь так, как я сказал выше, твой код будет работать.

чтобы название переменной не совпало с зарезервированным словом

сперва стоит определиться, что такое зарезервированные слова

[Скрипт]

nerv, это же не единственный мой код. В других случаях имя переменной может совпасть с зарезервированным словом. Зачем думать о том, совпадёт имя переменной с зарезервированным словом или нет, когда проще всегда добавлять префикс.

[nerv]

Зачем думать о том, совпадёт имя переменной с зарезервированным словом или нет

если имя переменной совпадает с зарезервированным словом, строка подсвечивается красным. кэп.

Dim var

Dim end

Dim cell

Dim do

Твои префиксы избыточны и бессмысленны (из примера выше), но мне все равно, как ты будешь писать

[Скрипт]

nerv, протестировал код, написанный с использованием XML, на таблице в 100 страниц, сработал за несколько минут. Получается, что нужно работать с Word-таблицами через XML.

[Skif-F]

Сообщение от Скрипт

...вот такой код быстро сработал - около минуты, таблица на 100 страниц.

Если необходим анализ таких больших таблиц, не лучше хранить их в Excel или Access, а при необходимости печати вставлять в Word?

[Скрипт]

Skif-F, в данном случае человек не может выбирать и влиять на вид доументов. Человеку дают документ и человек должен отформатировать документ.