MsgBox ActiveDocument.Pages(1).Shapes(2). MsgBox ActiveDocument.Pages(1).Shapes(1).ĪctiveDocument.Pages(1).Shapes(2). (Orientation:=pbTextOrientationHorizontal, _ĪctiveDocument.Pages(1).Shapes(1). = 'A Quick Brown Fox Jumps over the lazy Dog, A Quick Brown Fox Jumps over the lazy Dog, A Quick Brown Fox Jumps over the lazy Dog'ĪctiveDocument.Pages(1).Shapes(1).TextFrame.NextLinkedTextFrame = ActiveDocument.Pages(1).Shapes(2).TextFrameĪctiveDocument.Pages(1).Shapes(1). Set shpTextBox = ActiveDocument.Pages(1).Shapes.AddTextbox _ The solution is as simple as: Dim shpTextBox As Shape I want to make automatic newspaper macro. I'm successful in linking textboxes in vba which is as: ActiveDocument.Pages(1).Shapes(1).TextFrame.NextLinkedTextFrame = ActiveDocument.Pages(1).Shapes(2).TextFrameĪctiveDocument.Pages(1).Shapes(2).TextFrame.AutoFitText = pbTextAutoFitShrinkOnOverflow then set 'grow textbox to fit text' in format textbox -text autofitting.then past cut-ed text into second textbox.then select remaining text of story which is in other textbox linked with first.It is easy and testable for you in manual steps, but would be amazing if someone could help me to do same steps with vba macro coding. then set 'grow textbox to fit text' option in formate tab.select second textbox and press Ctrl+v to paste cut text into second textbox.press Ctrl+X to cut it and then break Link of first textbox.Ctrl+Shift+End to Select nextlinked textbox's remaining text.

press Ctrl+end button to reach the cursor to end of textbox.

It seems that 'grow textbox to fit text' option is not working on next linked textbox, but I founded a manual trick which is: I'm developing macro for a news paper in ms publisher.

Microsoft publisher 2016 manual