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

[Скрипт]

Ципихович Эндрю, таблица на 30 страниц, макрос обрабатывает около 5 минут.

[Скрипт]

Чтобы воздействовать на HTML-код Word-документа, нужно:

1. сохранить Word-документ как веб-страницу;
2. открыть Word-документ в браузере;
3. и уже через браузер внести изменения в HTML-код Word-документа;
4. сохранить Word-документ;
5. пересохранить Word-документ в обычный формат.

Такой алгоритм?

[viter.alex]

С таблицами скорости прибавляет цикл Do...Loop вместо For Each

[Скрипт]

viter.alex, а как с помощью цикла Do ... Loop переходить по ячейкам?

[viter.alex]

    Dim oCell As Cell
    Set oCell = ActiveDocument.Tables(1).Range.Cells(1)
    Do Until oCell Is Nothing
    'Делаешь что нужно
        Set oCell = oCell.Next
    Loop

[Вождь]

Как ни странно, все дело тормозит таблица Чем она больше, тем медленнее. Ясто, что таблицу надо уменьшить. Идея такая: порезать ее ломтями, изменить, и склеить Набросал макрос. Тест показал на таблице 10x500 выигрыш в 3 раза. Чем больше, тем луше и лучше. Ниже, обычный вариант, убрав комментарии с циклов получим мой.

Public Sub Колбаса()

Dim D As Document
Dim T As Table, C As Cell
Dim i As Long
Dim TI!, W!

    Set D = ActiveDocument
    D.Range.Delete
    Set T = D.Tables.Add(Range:=D.Range, _
                         NumRows:=500, _
                         NumColumns:=10)
    T.Style = "Сетка таблицы"
    T.PreferredWidthType = wdPreferredWidthPoints
    T.PreferredWidth = CentimetersToPoints(20)
    W = CentimetersToPoints(0.5)
    DoEvents
    
    StatusBar = "Работаю..."
    TI = Timer
    ' начало кода
    
    'For i = T.Rows.Count To 2 Step -1
    '    T.Split BeforeRow:=i
    'Next

    For Each T In D.Tables
        For Each C In T.Range.Cells
            C.SetWidth W, wdAdjustNone
        Next
    Next
    
    'For i = D.Tables.Count - 1 To 1 Step -1
    '    D.Tables(i).Range.Next.Delete
    'Next i
    
    ' конец кода
    TI = Timer - TI
    MsgBox "Время: " & CStr(TI) & " сек."
    
' 10x100  3.3 /  1.5
' 10x300  25  /  7.5
' 10x500  66  /  18

End Sub

Это для таблиц без объединенных ячеек, иначе надо доработать макрос, чтобы не резал объединенные.

[Скрипт]

Вождь, а как вам идея: работать с Word-документом, как с HTML-документом.

Word-документ состоит из двух частей:

1. часть, которую мы видим на мониторе;
2. часть, которую мы не видим на мониторе. Эта часть имеет HTML-структуру.

Я вот хочу попробовать вносить изменения в HTML-теги. В Word-документе есть HTML-теги, в которых указаны размеры таблицы и ячеек. HTML-структуру Word-документа можно представить как тип данных "String" и с помощью, например, библиотеки "Microsoft VBScript Regular Expressions" вносить изменения в HTML-структуру Word-документа.

Я пока думаю, что получить доступ к HTML-структуре Word-документа можно только через программу-браузер, например, Internet Explorer, и с использованием дополнительных библиотек, например "Microsoft HTML Object Library".

[Вождь]

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

Вождь...как с HTML-документом...

Тогда, лучше осваивайте XML. docx это он и есть, doc легко преобразовать, в т.ч. средствами Word 2003. Никуда далеко ходить не надо, все в Word.

[Скрипт]

Вождь, Word-документ с расширением "docx" имеет XML-структуру? И форматирование тоже делается с помощью XML-тегов?

Я думал, что XML-теги используются для извлечения данных, а не для форматирования.

[Вождь]

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

...с расширением "docx" имеет XML-структуру...

Переименуйте "Файл.docx" в "Файл.docx.zip", распакуйте, и посмотрите. По знанию XML у меня твердая тройка, так что...