VBA

Iska · Отправлено: **02:19, 03-04-2015** | #2

Цитата Mikle_home88:

(например по левому краю, чтобы был отступ 3) »

«3» — чего? Отступ в VBA в пунктах задаётся. Не маловато 3 пункта будет?

Цитата Mikle_home88:

If ActiveDocument.PageSetup.LeftMargin = f Then »

Вы пытаетесь сравнивать значение типа «single» с объектной переменной типа «PageSetup». К тому же — неинициализированной.

Я вообще не пойму смысла в:

Цитата Mikle_home88:

в переменную хочу »

когда достаточно простого:

Код:

Private Sub CommandButton1_Click()
    If ActiveDocument.PageSetup.LeftMargin = 3 Then
        MsgBox "Верные поля"
    Else
        MsgBox "Неверные поля"
    End If
End Sub

Mikle_home88 · Отправлено: **08:55, 03-04-2015** | #3

Да, тут явная ошибка, сравнивая свойство объекта с самим объектом. Переделал вот, так If ActiveDocument.PageSetup.LeftMargin = f.LeftMargin. Но всё равно не получается. Не могу добиться с переменной f, неправильно присваиваю параметр f.LeftMargin = 3.
Iska, спасибо за ответ. Но так я, конечно, тоже пробовал. Но это всё не работает. Бех разницы, какие бы поле по левому краю я не поставил, он всегда будет выдавать "Неверные поля".
Смысл от всего этого, когда загружаю страницу через форму, и если на ней будут не те поля и табуляция, то соответственно будет выдаваться сообщение.

Mikle_home88 · Отправлено: **12:23, 03-04-2015** | #4

Посмотрел в примере, что нужно вот так еще установить Set f = Selection.Range.PageSetup. Но как установить, чтобы в переменной хранилось содержимое по левому краю

Iska · Отправлено: **17:18, 03-04-2015** | #5

Вы никак не поясняете Вашего упорного желания «присобачить» объектную переменную типа PageSetup туда, где она ни разу не нужна.