Ms word MS Word旧版表单文本表单字段限制编辑，更改字体大小除外

---

在“限制编辑”下，用户只能添加或删除单词。我可以只允许用户更改字体大小吗？

您必须编写一个kluge来显示字体大小的userform，然后取消对表单的保护，设置字体大小并重新保护。此示例不包括userform：

Dim FontSize As Long

Sub SetSize()
    FontSizeDlg.Show    'Dialog allows user to choose size, which sets the FontSize variable
    With ActiveDocument
        If .ProtectionType = wdAllowOnlyFormFields Then
            .Unprotect
        End If
        .Bookmarks("Name").Range.Font.Size = FontSize
        .Bookmarks("Class").Range.Font.Size = FontSize
        If .ProtectionType = wdNoProtection Then
            .Protect Type:=wdAllowOnlyFormFields, noreset:=True
        End If
    End With
End Sub

---

您必须编写一个kluge来显示字体大小的userform，然后取消对表单的保护，设置字体大小并重新进行保护。此示例不包括userform：

Dim FontSize As Long

Sub SetSize()
    FontSizeDlg.Show    'Dialog allows user to choose size, which sets the FontSize variable
    With ActiveDocument
        If .ProtectionType = wdAllowOnlyFormFields Then
            .Unprotect
        End If
        .Bookmarks("Name").Range.Font.Size = FontSize
        .Bookmarks("Class").Range.Font.Size = FontSize
        If .ProtectionType = wdNoProtection Then
            .Protect Type:=wdAllowOnlyFormFields, noreset:=True
        End If
    End With
End Sub

---

谢谢你的答复FontSizeDlg.Show'返回运行时错误'424'：'Object required'，我似乎无法在VBA代码中查找它。正如我所提到的，此代码示例不包括userform。你必须创建它并称之为FontSizeDlg。谢谢，John！它向我指出了一个我不知道的用户表单的用法。谢谢你的回复。”FontSizeDlg.Show'返回运行时错误'424'：'Object required'，我似乎无法在VBA代码中查找它。正如我所提到的，此代码示例不包括userform。你必须创建它并称之为FontSizeDlg。谢谢，John！它向我指出了一个我不知道的用户表单的用法。