פתח את וורד.

לחץ על החץ הקטן Customize Quick Access Toolbar (ליד סמל השמירה).

בחר More Commands….

בחלון שנפתח, בשדה "Choose commands from" בחר Macros.

תראה שם את המאקרו שיצרת (למשל: Normal.NewLinkedTextFrames).

לחץ Add >> כדי להוסיף אותו לסרגל.

אם תרצה – בחר אותו ולחץ על Modify… כדי לשים לו אייקון מתאים ושם ידידותי (למשל "תיבות זרימה").

סגור את החלון עם OK.

Sub CreateLinkedTextFrames()
    Dim i As Integer
    Dim numPages As Integer
    Dim doc As Document
    Dim shp As Shape
    Dim prevShp As Shape
    
    Set doc = ActiveDocument
    numPages = doc.ComputeStatistics(wdStatisticPages)
    
    For i = 1 To numPages
        ' צור תיבה בעמוד
        Set shp = doc.Shapes.AddTextbox( _
            Orientation:=msoTextOrientationHorizontal, _
            Left:=50, Top:=50, Width:=400, Height:=500, _
            Anchor:=doc.GoTo(What:=wdGoToPage, Name:=i).Paragraphs(1).Range)
        
        If Not prevShp Is Nothing Then
            prevShp.TextFrame.Next = shp.TextFrame
        End If
        
        Set prevShp = shp
    Next i
End Sub



==============
Sub ResizeTextBox()
    Dim pageNum As Integer
    Dim delta As Single
    Dim shp As Shape
    
    pageNum = InputBox("באיזה עמוד לשנות את התיבה?")
    delta = InputBox("בכמה נקודות להגדיל/להקטין את הגובה? (חיובי = להגדיל, שלילי = להקטין)")
    
    For Each shp In ActiveDocument.Shapes
        If shp.Anchor.Information(wdActiveEndPageNumber) = pageNum Then
            shp.Height = shp.Height + delta
            Exit For
        End If
    Next shp
End Sub


================
Sub ResizeTextBoxesRange()
    Dim startPage As Integer, endPage As Integer
    Dim delta As Single
    Dim shp As Shape
    
    startPage = InputBox("עמוד ראשון?")
    endPage = InputBox("עמוד אחרון?")
    delta = InputBox("בכמה נקודות לשנות את הגובה?")
    
    For Each shp In ActiveDocument.Shapes
        If shp.Anchor.Information(wdActiveEndPageNumber) >= startPage And _
           shp.Anchor.Information(wdActiveEndPageNumber) <= endPage Then
            shp.Height = shp.Height + delta
        End If
    Next shp
End Sub

=========================