Границы таблиц в Worde

@mma86g · Регистрация: 18.01.2014

Студворк — интернет-сервис помощи студентам

Записал следующий макрос:

Visual Basic

Sub Макрос21()
'
' Макрос21 Макрос
'
'
    With Selection.Tables(1)
        .TopPadding = CentimetersToPoints(0.03)
        .BottomPadding = CentimetersToPoints(0.03)
        .LeftPadding = CentimetersToPoints(0.03)
        .RightPadding = CentimetersToPoints(0.03)
        .Spacing = 0
        .AllowPageBreaks = True
    End With
    With Selection.Tables(1)
        With .Borders(wdBorderLeft)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = -603923969
        End With
        With .Borders(wdBorderRight)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = -603923969
        End With
        With .Borders(wdBorderTop)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = -603923969
        End With
        With .Borders(wdBorderBottom)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = -603923969
        End With
        With .Borders(wdBorderHorizontal)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = -603923969
        End With
        With .Borders(wdBorderVertical)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = -603923969
        End With
        .Borders(wdBorderDiagonalDown).LineStyle = wdLineStyleNone
        .Borders(wdBorderDiagonalUp).LineStyle = wdLineStyleNone
        .Borders.Shadow = False
    End With
    With Options
        .DefaultBorderLineStyle = wdLineStyleSingle
        .DefaultBorderLineWidth = wdLineWidth050pt
        .DefaultBorderColor = -603923969
    End With
    Selection.Tables(1).PreferredWidthType = wdPreferredWidthPercent
    Selection.Tables(1).PreferredWidth = 100
End Sub

Пытаюсь применить его к другой таблице выводит ошибку на строке .LineWidth = wdLineWidth050pt
"Run-time error '5843' Одно из значений, переданных этому методу или свойству, выходит из допустимого диапазона"

shanemac51 · 15.07.2018, 13:36

видимо другая таблица состоит из 1 строки или одного столбца нечего присваивать

Visual Basic

With .Borders(wdBorderHorizontal)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = vbRed
        End With
        With .Borders(wdBorderVertical)
            .LineStyle = wdLineStyleSingle
            .LineWidth = wdLineWidth050pt
            .Color = vbRed
        End With

@mma86g · 15.07.2018, 15:20 **[ТС]**

shanemac51, другая таблица точно такая же.
---------
Вопрос решен. Проблема оказалась в двойных границах таблиц (убрал интервалы между ячейками)

@mma86g 0 / 0 / 0 Регистрация: 18.01.2014 Сообщений: 10
	15.07.2018, 15:20 [ТС]	3
	shanemac51, другая таблица точно такая же. --------- Вопрос решен. Проблема оказалась в двойных границах таблиц (убрал интервалы между ячейками) 0

Опции темы