דרוש מידע פקודות מאקרו בוורד

[moishy]

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, כמובן תוכלו לשנות את זה כרצונכם.

 

[moishy]

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, כמובן תוכלו לשנות את זה כרצונכם.

@mlpk עזר לך?

 

[mlpk]

עדיין לא ישבתי על זה,

אשמח גם אם תוסיף הסבר איך להכניס את כל זה לפקודה חדשה או קיימת, כולל מתן שם - כדי שאוכל למצוא בקלות את הפקודה, זה יעזור לי לבדוק, תודה.

 

[moishy]

עדיין לא ישבתי על זה,

אשמח גם אם תוסיף הסבר איך להכניס את כל זה לפקודה חדשה או קיימת, כולל מתן שם - כדי שאוכל למצוא בקלות את הפקודה, זה יעזור לי לבדוק, תודה.

כשתגיע לשבת על זה, דבר איתי בטלפון.
אתן את הטלפון בפרטי.