1 Тема от vba_star

  • vba_star
  • рядовой
  • Неактивен
  • Зарегистрирован: 22.02.2016
  • Сообщений: 1

Тема: Добавлять точки для ячеек определенных столбцов таблицы

Документы имеют определенные таблицы, для ячеек которых нужно добавлять точки в конце.
Ограничения:
Для шапки таблицы точки не проставляются;
Если содержимое ячейки=пусто, точка не нужна.

Гранд мерси, господа

2 Ответ от МВТ

  • МВТ
  • сержант
  • Неактивен
  • Зарегистрирован: 04.04.2016
  • Сообщений: 27
  • Поблагодарили: 12

Re: Добавлять точки для ячеек определенных столбцов таблицы

Ставите курсор в любую ячейку таблицы и запускаете макрос. Так же выполняется проверка на наличие точки в конце текста в ячейке

Sub ДобавитьТочку()
    Dim Tbl As Table, i%, j%, S$
    Application.ScreenUpdating = False
    Selection.Expand Unit:=wdTable
    Set Tbl = Selection.Tables(1)
    With Tbl
        For i = 2 To .Rows.Count
            For j = 1 To .Columns.Count
            S = Left(.cell(i, j).Range.Text, Len(.cell(i, j).Range.Text) - 2)
            If Len(S) > 0 And Right(S, 1) <> "." Then
                S = S & "."
                .cell(i, j).Range.Text = S
            End If
        Next: Next
    End With
    Application.ScreenUpdating = True
End Sub