0

我创建了一个用户表单，该用户表单有一个执行以下功能的按钮，在Windows操作系统上进行了测试并且可以正常工作但不能在其他机器上工作/ MAC OS。

它应该执行如下操作：

按下后button它会检测它是否已经有子弹

-如果是：它将删除子弹

-if No : 它将应用默认编号项目符号

.set margin 'here 段落 leftindent 导致error编号 5149

.make all text Upper Cap

.alignment 向左

.改变字体

.在段落后添加空格。

按下时按钮的代码如下

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

4

0 回答 0