Блог

Главная - Вопросы по программированию - VBA, что вызывает ошибку 5149 в параграфформате.Слева на другой машине

VBA, что вызывает ошибку 5149 в параграфформате.Слева на другой машине

#vba #ms-word #formatting #page-setup

Вопрос:

Я создал форму пользователя с кнопкой, которая выполняет следующие функции, протестирована на Windows операционной системе и отлично работает, но не работает на другой машине/ MAC OS .

Предполагается, что это будет сделано следующим образом:

После нажатия button он определит, есть ли у него пуля или нет

-если да : это удалит пулю

-если нет : будет применен маркер номера по умолчанию

.установите поле ‘здесь абзац слева, вызывающий error номер 5149

.сделайте весь текст верхней заглавной буквой

.выравнивание по левому краю

.измените шрифт

.добавьте пробел после абзаца.

Код кнопки при нажатии выглядит следующим образом

 Private Sub H1_Click()
Dim H As Range
InSelection = True
If Selection.Type = wdSelectionIP Then InSelection = False
    
If InSelection = True Then
    Set H = Selection.Range
Else
    Set H = Selection.Paragraphs(1).Range
End If


If H.ListFormat.ListType = 3 Then
    
    H.ListFormat.ApplyNumberDefault
    H.ParagraphFormat.FirstLineIndent = 0
    
Else
    
    H.ListFormat.ApplyNumberDefault
    H.ParagraphFormat.FirstLineIndent = -28.35

End If

    H.ParagraphFormat.SpaceAfter = 12

    H.ParagraphFormat.LeftIndent = 28.35 ''here paragraph leftindent causing error number 5149

    H.ParagraphFormat.Alignment = wdAlignParagraphLeft

    H.Font.AllCaps = True
    H.Font.Name = "Courier New"

End Sub

Я не мог понять, что вызывает эту ошибку.
также, пожалуйста, подскажите мне, где я делаю это неправильно. поскольку я новичок, то VBA

Метки: ,