קוד:
Sub Demo()
Dim Box As Shape
Set Box = ActiveDocument.Shapes.AddTextbox( _
Orientation:=msoTextOrientationHorizontal, _
Left:=270, Top:=50, Width:=100, Height:=100)
With Box
.TextFrame.TextRange.Text = "זה טקסט לדוגמא!"
.TextFrame.TextRange.Font.Reset
.TextFrame.TextRange.ParagraphFormat.Alignment = wdAlignParagraphCenter
.TextFrame.TextRange.Font.Size = 16
.TextFrame.TextRange.Font.Name = "Livorna"
.TextFrame.TextRange.Font.BoldBi = True
.TextFrame.TextRange.Font.Bold = True
End With
End Sub
כדי לשנות את מיקום וגודל תיבת הטקסט יש לשנות את המספרים בשורה 7
left זה מספר הנקודות משמאל לדף
top זה מספר הנקודות מחלקו העליון של הדף
width זה הרוחב של תיבת הטקסט בנקודות
height זה הגובה של תיבת הטקסט בנקודות
לא ציינתם את הגודל הרצוי של תיבת הטקסט, בקוד הוא מוגדר על 16, כמובן תוכלו לשנות את זה כרצונכם.