Неоднозначная ошибка процедуры MS Word 2010 VBA

Question

У меня есть несколько элементов управления текстовым контентом в документе Microsoft Word 2010. Через код VBA я использую событие Document_ContentControlOnExit для проверки информации после выхода из каждого элемента управления содержимым текстового поля. Код для первого управления текстовым контентом отлично работает. Однако, когда я использую тот же код для проверки других элементов управления текстовым контентом, хотя и заменяя соответствующие параметры функции, я получаю ошибку VBA «Обнаружено неоднозначное имя». Ниже приведен пример моего кода:

private sub Document_ContentControlOnExit(ByVal text1 as ContentControl, cancel as Boolean) 
    if text1.ShowingPlaceholderText Then 'Field is empty 
     msgBox "This field cannot be blank" 
     cancel = True 
    End if 
End sub 

Текст1 - это значение для свойства тега первого элемента управления содержимым текстового поля. Что я здесь делаю неправильно? Я ценю любую помощь!

Answer 1

Неоднозначное имя Обнаружено обычно означает, что существует более одной функции с именем. Найдите Document_ContentControlOnExit и удалите ненужные дубликаты.

Использование имени по умолчанию для параметра управления содержимым (или просто «cc») вместо «text1» было бы лучше, поскольку это текущий элемент управления, на который ссылается в подпункте.

Вот файл с кодом рабочего https://dl.dropboxusercontent.com/u/13440554/share/ContentControlOnExit.docm

Надеется, что это помогает