שינוי הגדרות טורים

[sek]

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

 

[אלחנן אריאל]

http://www.prog.co.il/showthread.php?t=82740

 

[צורת הדף]

תכתוב הגדרת המרווח לפי ס"מ.

Sub fix_columns_spacing()
For Each sec In ActiveDocument.Sections
If sec.PageSetup.TextColumns.Count = 2 Then
sec.PageSetup.TextColumns.Spacing = (CentimetersToPoints([COLOR=blue]0.75[/COLOR]))
End If
Next
End Sub

פה בארה"ב עדיין לא נכנס עדיין השבת, כנראה שאתר פרוג נשאר פתוח השבוע בשב"ק בשבילך...

 

[sek]

עזר לי מאוד מאוד תודה רבה

 

[פרידמן]

להר' קרש שיחי' האם יוכל לפעול עם פתיחת דיאלוג טורים בתודה מראש

 

[צורת הדף]

להר' קרש שיחי' האם יוכל לפעול עם פתיחת דיאלוג טורים בתודה מראש

דהיינו?

 

[אלחנן אריאל]

דהיינו?

כוונתו שתפתח תיבת הדו-שיח של עיצוב הטורים.

 

[פרידמן]

כוונתי שלא יצטרכו כל פעם לפתוח את הקוד בשביל לשנות את מידת המרווח אלא בקוד ישאר ריק ובהפעלת הקוד יפתח דו שיח טורים ושם יקבע מידת המרווח וכמו שפירש הנל בתודה ובהוקרה

 

[צורת הדף]

זה יעזור?

Sub fix_columns_spacing()
spce = InputBox("Please enter the desirable spacing between all 2 columns in document. Use Centimeters.", , 0.75)
For Each sec In ActiveDocument.Sections
If sec.PageSetup.TextColumns.Count = 2 Then
sec.PageSetup.TextColumns.Spacing = (CentimetersToPoints(spce))
End If
Next
End Sub

 

[אלחנן אריאל]

לא עובד לי

 

[Yisrael]

לא עובד לי

מה לא עובד לך? לא נפתחת תיבת דו-שיח או שנפתחת והיא לא עושה כלום?
(אם כצד ב' תבדוק שיש לך בכלל 2 טורים במסמך... )

 

[פרידמן]

מצוין. תודה

 

[avraham1]

איפה משנים את הקוד בוורד?