Макрос для добавления нулей в начало чисел в определенных столбцах таблицы документов Word

Question

Кто-нибудь может предложить какие-либо макросы VBA?

В таблице документов Word мне нужно применить следующее правило только к 1-му столбцу:

Мне нужно добавить нули (0) в начале чисел, чтобы их длина достигала 8 символов. Все числа заканчиваются буквой или двумя, которые должны быть включены в число из 8 символов.

Например:

2020A (5 characters) must read 0002020A (8 characters)
123456AB (8 characters) remains unchanged
765432X (7 characters) must read 0765432X (8 characters)

Как применить это к каждому полю в ПЕРВОЙ КОЛОННЕ ТОЛЬКО таблицы в документе Word?

Answer 1

Ответ предоставлен macropod на форуме vbaexpress:

Dim RngCel As Range, oCel As Cell, oTbl As Table 
For Each oTbl In ActiveDocument.Tables 
    For Each oCel In oTbl.Columns(1).Cells 
        Set RngCel = oCel.Range 
        RngCel.End = RngCel.End - 1 
        While Len(RngCel.Text) < 8 
            RngCel.InsertBefore "0" 
        Wend 
    Next oCel 
Next oTbl

http://www.vbaexpress.com/forum/showthread.php?p=254288