Сын вождя ,
Большое спасибо! Попробовал со ссылками так, как Вы сказали, получилось, но несколько не то, что надо, ссылка получалась, поле добавлялось, но оно уже утрачивало свойства wdContentControlRichText, как контрола. Но я воспользовался событиями, которые Вы предложили, и в итоге просто добавил через в новом абзаце по такому контролу.
Код получился такой:
Код макроса:
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
Sub AddItem()
'
' AddItem Макрос
'
ActiveDocument.Paragraphs.Add
ActiveDocument.Paragraphs.Add
Selection.EndKey wdStory, wdMove
Selection.Range.ContentControls.Add (wdContentControlRichText)
Selection.TypeText Text:="Добавьте пункт"
Selection.ParentContentControl.Title = "Пункт"
Selection.ParentContentControl.Tag = "Item"
End Sub
Код обработки события:
1.
2.
3.
Private Sub Document_ContentControlOnEnter(ByVal ContentControl As ContentControl)
AddItem
End Sub
Проблема, однако, еще в том, что при добавлении нового элемента курсор вставки перемещается внутрь нового элемента, а нужно, чтобы он оставался в старом элементе. Манипуляции с GoTo как-то не очень получились у меня( Как можно сделать?
