Question

高分悬赏，如何用vba在word每一页都插入一个文本框

我是这样写的 但是不行，请假高手，如何写，如何控制换页
Sub hellow()
Set docnew = Documents.Add
docnew.Paragraphs(1).Range.InsertAfter " "
Set newt = docnew.Shapes.AddTextbox(1, 130, 150, 80, 20)
newt.TextFrame.TextRange.InsertAfter "Hello world 1"
docnew.Paragraphs(1).Range.InsertBreak
Set newt2 = docnew.Shapes.AddTextbox(1, 130, 150, 80, 20)
newt2.TextFrame.TextRange.InsertAfter "Hello world 2"
End Sub

Answer 1

可以先插入页，再逐个跳到相应页码，
下面的代码 在2个页中插入2个文本框，没有问题：
Sub InsText()
Set DocNew = ActiveDocument
DocNew.Paragraphs(1).Range.InsertAfter " "
DocNew.Paragraphs(1).Range.InsertBreak
Set NewT = DocNew.Shapes.AddTextbox(1, 130, 150, 80, 20)
NewT.TextFrame.TextRange.InsertAfter "Hello world 1"
Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Name:=2
Set NewT2 = DocNew.Shapes.AddTextbox(1, 130, 150, 80, 20)
NewT2.TextFrame.TextRange.InsertAfter "Hello world 2"

End Sub

如果页码多，可以用For循环