Publisher: Link zu Textbox auf der nächsten Seite

Question

Hat jemand eine Idee, warum dies im Publisher nicht funktioniert? Abgesehen von msdn gibt es sehr wenig Dokumentation darüber, und ich kann es nicht herausfinden. Jedes Mal wenn ich es ausführe, sagt es nur "Verleger kann nicht zu diesem Textkasten verbinden".

Gibt es vielleicht eine Eigenschaft, die ich zuerst auf True setzen muss? Ist das eine häufige Anforderung in vba und anderen Programmiersprachen?

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

Sorry, Jungs, es herausgefunden Ich glaube, ... Missed eine Linie auf Msdn:

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

sagt, dass es ungültig ist, wenn die Form bereits Text enthält.

Sieht aus, als müsste ich den Text löschen und ihn oder etwas Ähnliches zuerst neu zeichnen ...