Блокировка стилей в Word с использованием VBA для ограничения новых стилей - PullRequest
Новая
       7

Блокировка стилей в Word с использованием VBA для ограничения новых стилей

1 голос
/ 14 января 2020

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

Sub EditPaste()
Dim k As Long

Options.PasteFormatBetweenDocuments = wdMatchDestinationFormatting
Options.PasteFormatBetweenStyledDocuments = wdUseDestinationStyles
k = ActiveDocument.Styles.Count
Selection.Range.Paste
If k <> ActiveDocument.Styles.Count Then
    ActiveDocument.Undo
    MsgBox "Paste unsuccessful. You tried to introduce new styles."
End If
End Sub
...