Блог

Главная - Вопросы по программированию - Сохранить только в том случае, если значение не является пустым словом VBA

Сохранить только в том случае, если значение не является пустым словом VBA

#vba #ms-word

Вопрос:

Кто-нибудь знает, можно ли убедиться, что объект управления содержимым форматированного текста заполнен? а если нет, то файл не будет сохранен?

Код встроен в документ word, а не в модуль:

 Private Sub Workbook_BeforeSave(ByVal SaveAsUI As Boolean, _
    Cancel As Boolean)
    
    Dim richTextControl1 As Microsoft.Office.Tools.Word.RichTextContentControl
    
    If richTextControl1.Value = "" Then a = MsgBox("File not saved fill Approval ID field ", vbInformation)
    
    If a = vbInformation Then Cancel = True
Else
End Sub

Это то, что у меня есть на данный момент. Код, кажется, правильно ссылается на элемент управления контекстом(при попытке форматирования текста он выплевывает код в поле), но кроме этого ничего больше не происходит. Любая помощь или указания будут оценены по достоинству

Комментарии:

1. Workbook_BeforeSave это для Excel, а не для Word. Вы пытаетесь написать код для Word или Excel?

2. Это документ word. Это шаблон для заполнения для утверждения SOP. Я знаю, как это сделать в excel, но word немного отличается, и я хочу избежать создания целого генератора документов Word из excel.

3. В этом случае я предлагаю вам написать свой код в Word и использовать Intellisense, Браузер объектов и онлайн-справку <kbd>F1<kbd></kbd>. Вам будет полезно посмотреть вверх docs.microsoft.com/en-us/office/vba/api/… и docs.microsoft.com/en-us/office/vba/api/… и docs.microsoft.com/en-us/office/vba/api/… и docs.microsoft.com/en-us/office/vba/api/…

Метки: ,