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

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

0 голосов
/ 25 октября 2011

Может кто-нибудь предложить какие-либо макросы 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?

1 Ответ

3 голосов
/ 15 ноября 2011

Ответ предоставлен 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#post254288

...