Изменение размера ячейки

[Скрипт]

Как ускорить вот такой код?
Смысл кода - сделать в ячейках нужную ширину.
Работает очень долго в больших таблицах (от 10 страниц).

Обращение через Range, т.к. в таблицах могут быть объединённые ячейки.

Sub Макрос1()

    Dim myTimer As Double
    
    myTimer = Timer
    
    Dim i As Long
    
    For i = ActiveDocument.Tables(1).Range.Cells.Count To 1 Step -1
        ActiveDocument.Tables(1).Range.Cells(i).PreferredWidth = 50
    Next i
    
    Debug.Print Timer - myTimer

End Sub

В интернете читал, что Word-документ похож на HTML-страницу. Можно получить HTML-код Word-документа. Внести нужные размеры таблицы в HTML-код и затем обратно в Word-документ. Вот смотрю сейчас, как это можно сделать. Главное, чтобы текст не исказился от таких манипуляций.

[Казанский]

Попробовал с таблицей, в которой есть объединенные ячейки:

    ActiveDocument.Tables(1).Range.Cells.PreferredWidth = 50

Результат тот же самый.

[Скрипт]

Казанский, я неточно описал свою задачу. Ширина ячеек разная.
Просто к примеру привёл код, который если запустить в документе с большой таблицей, то код будет несколько минут работать.

Сейчас решил поиском воспользоваться по Форуму, оказывается периодически люди спрашивают, как перевести Word-таблицу в HTML-код, чтобы быстрее обработать. Пока не разобрался. Видимо, нужно время потратить, чтобы разобраться - за 1 день не разберёшься.

[shanemac51]

выложили бы образец таблицы
------может и помогу чем

большинство своих отчетов из word-excel-access-foхpro-1c....
формирую программно в НТМ-формате

[Скрипт]

shanemac51, мне нужно сам принцип понять, а не просто решить конкретную задачу.

Вот выложил документ. Нужно получить HTML-код таблицы. С помощью, например, "Найти и заменить" установить нужные размеры ячеек, а затем всё обратно превратить в Word-таблицу.

Т.е. смысл в чём в данном случае? Сделать размеры ячеек не с помощью VBA-Word, а с помощью HTML-кода, в котором с помощью VBA изменить числа, которые представляют собой размеры ячеек.

[Казанский]

Примерно так (файл не открывал)

Dim s$
With ActiveDocument.HTMLProject
    s = .HTMLProjectItems(1).Text
    s = Replace(s, "width:50.0pt;", "width:55.0pt;")
    .HTMLProjectItems(1).Text = s
    .RefreshDocument
End With

Но я слышал, что начиная с 2007 эту фичу убрали. У Вас работает Alt+Shift+F11?

[Скрипт]

Казанский, в Word 2010 не запускается "Microsoft Script Editor" при нажатии сочетаний клавиш "Alt+Shift+F11".
Я вообще ни разу не пользовался "Microsoft Script Editor".

[nerv]

что-то мне кадется вы не в ту сторону копаете.

1. Отключай всю калькуляцю, оновление экрана и т.п. (пример)

Application.ScreenUpdating = False

2. у меня ускоритьлось в три раза (по этому пункту)

Dim cell As cell

For Each cell In ActiveDocument.Tables(1).Range.Cells
    cell.PreferredWidth = 50
Next

[shanemac51]

вы выложили нормальную таблицу
на нее следующий код сработает(без НТМ)

Sub ww130213()

 Selection.Tables(1).Columns(1).PreferredWidthType = wdPreferredWidthPercent
 Selection.Tables(1).Columns(1).PreferredWidth = 50
 Selection.Move Unit:=wdColumn, Count:=1
 Selection.SelectColumn
 Selection.Columns.PreferredWidthType = WdPreferredWidthPercent
 Selection.Columns.PreferredWidth = 30
 Selection.Move Unit:=wdColumn, Count:=1
 Selection.SelectColumn
 Selection.Columns.PreferredWidthType = wdPreferredWidthPercent
 Selection.Columns.PreferredWidth = 20
End Sub

[Скрипт]

Пункт 1

nerv, я использовал:

Application.ScreenUpdating = False

и у меня создалось впечатление, что в программе Word вот это "Application.ScreenUpdating" вообще не работает.


Пункт 2

nerv: Отключай всю калькуляцю

напишите пример кода.