Издатель: Ссылка на текстовое поле на следующей странице

Question

Кто-нибудь есть идеи, почему это не работает в издателе? Там очень мало документации, кроме msdn, и я не могу понять это. Каждый раз, когда я запускаю его, он просто говорит: «Издатель не может ссылаться на это текстовое поле».

Возможно ли какое-то свойство, которое я должен установить в true? Это общее требование в vba и других языках программирования?

Option Compare Text 

**Sub LinkTextBoxes()** 
Dim shpTextBox1 As Shape 
Dim shpTextBox2 As Shape 

oAPIndex = ActiveDocument.ActiveView.ActivePage.PageIndex 
Set shpTextBox1 = FindTB1(ActiveDocument.Pages(oAPIndex)) 
Set shpTextBox2 = FindTB1(ActiveDocument.Pages(oAPIndex + 1)) 

If shpTextBox1 Is Nothing Or shpTextBox2 Is Nothing Then 
    MsgBox ("Textbox missing!" & vbLf & vbLf & "No can do!") 
    Exit Sub 
End If 

shpTextBox1.TextFrame.NextLinkedTextFrame = shpTextBox2.TextFrame 
ActiveDocument.ActiveView.ActivePage = ActiveDocument.Pages(oAPIndex + 1) 
End Sub 

**Function FindTB1(oPage As Page) As Shape** 
Dim oShape As Shape 
Dim oFoundShape As Shape 

For Each oShape In oPage.Shapes 
    If oShape.AlternativeText Like "*Text*" Then 
     Set oFoundShape = oShape 
     GoTo Found 
    End If 
Next 

Found: 
If oFoundShape Is Nothing Then 
    MsgBox ("Text Box not found on page: " & oPage.PageNumber) 
    Set FindTB1 = Nothing 
Else 
    Set FindTB1 = oFoundShape 
End If 
End Function 

Answer 1

Извините, ребята, понял это, я думаю, что ... Пропущенный линию на MSDN:

https://msdn.microsoft.com/en-us/library/office/ff940597.aspx

говорит, что будет недействительным, если форма уже содержит текст.

Выглядит, возможно, мне удастся стереть текст и отточить его или что-то подобное в первую очередь ...