Создать таблицу из ряда данных

[valerij]

Есть файл Word 2003 с 16-ти_ричными данными 8 608 873 символов на 2205 страниц и 2,7 мб, почему W2003, потому, что W2010 зависал наглухо, офис 2010 у меня лицензионный, все обновы ставил, ставил 64, 32 версию, урезанную, полную, пофигу, виснет.
http://yadi.sk/d/2JifUbFDRZiTF

Нужно создать таблицу по 16 символов в строке для дальнейшего анализа в Excel 2010, вставить в строку Excel могу только 32736 символов.
Макрос который это делает в Excel

Sub Split16()
iCol = 1
  Dim r As Long
  For r = Len(Cells(1, iCol)) / 16 - 1 To 0 Step -1
    Cells(r + 1, iCol) = Mid(Cells(1, iCol), r * 16 + 1, 16)
  Next
End Sub

Можно его переделать для ворда?
Спасибо.

[Ципихович Эндрю]

Нужно создать таблицу по 16 символов-шикарно
сколько строк, сколько столбцов?
магнитофоном пробовали?

[valerij]

Сообщение от Ципихович Эндрю

магнитофоном пробовали?

Вы не издевайтесь, можно или нельзя.
Столбец один...

Или какой выход?
В екселе всё получается, но очень долго, разбиваю в Notepad++ по 32736 символа и вставляю в ексель, но это надо ~ 262 файла Notepad и не так просто, ошибка и всё насмарку.

А-а дошло это строк будет 538055 -

Sub Split16()
For x = 1 To 538055
    Selection.MoveRight Unit:=wdCharacter, Count:=16
    Selection.TypeParagraph
    Next
End Sub

[shanemac51]

ПО 512 СИМВОЛОВ В СТРОКУ ПОЛУЧИЛАСЬ 16810 СТРОК

[shanemac51]

ссылка http://yadi.sk/d/acc4QYZwRadVM

[valerij]

Сообщение от shanemac51

ПО 512 СИМВОЛОВ В СТРОКУ ПОЛУЧИЛАСЬ 16810 СТРОК

Понял.
Спасибо.

[shanemac51]

ексель в ссылке

[valerij]

Сообщение от shanemac51

ексель в ссылке

Да, увидел.
Переделал под него макрос

Sub Split16()
Application.EnableEvents = False
Application.ScreenUpdating = False
iCol = 1: iRow = 1: iDov = 0
  Dim r As Long
1:  For r = Len(Cells(iRow, iCol)) / 16 - 1 To 0 Step -1
        Лист2.Cells(r + 1 + iDov, iCol) = Mid(Cells(iRow, iCol), r * 16 + 1, 16)
    Next
        iRow = iRow + 1: iDov = iDov + 32
            If iRow > 16814 Then
                Else
                GoTo 1
            End If
Application.EnableEvents = True
Application.ScreenUpdating = True
End Sub

строк 16814
(в конце незначащие нули удалил.)
http://yadi.sk/d/cotyZcqfRbbT2

Нашёл ошибку в коде - красным, теперь сходится 8 608 768 ...

[valerij]

Сообщение от shanemac51

ексель в ссылке

shanemac51!!
Подскажите, как мне в екселе сделать не 512, а 384 символа - кратно числам 16 и 24.
Или как вы вставили из ворда в ексель по 512 в строке.

[shanemac51]

макросик написала
512 можно легко изменить не 16*24, но может не поити импорт в ексель(строк будет около 25000)