Текстовая форма текстовой формы MS Word ограничивает редактирование, кроме изменения размера шрифта

Question

В режиме ограниченного редактирования пользователи могут только добавлять или удалять слова. Могу ли я разрешить пользователям изменять только размер шрифта?

Answer 1

Вам нужно будет написать kluge для отображения пользовательской формы с размером шрифта, затем снять защиту с формы, установить размер шрифта и повторно установить защиту. Этот пример не включает пользовательскую форму:

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