עיצוב מסמכי וורד – חלונות ומירכוזים

תוכנת אופן אופיס עובדת נהדר בעימוד ספרים. יחסית היא די פשוטה לעבודה ואני אישית מאוד נהנה ממנה.
הנה הקישור לתוכנה בעברית:
http://openoffice.org.il/

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

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

Sub ישעיהו_2()
‘
‘ ישעיהו_2 Macro
‘ מאקרו הוקלט ב- ‏11/02/2012 על-ידי אפרים
‘
Selection.MoveUp Unit:=wdParagraph, Count:=1
Selection.MoveRight Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Copy
Selection.Font.Bold = wdToggle
Selection.Font.BoldBi = wdToggle
Selection.EndKey Unit:=wdLine
Selection.TypeText Text:=Chr(11)
Selection.PasteAndFormat (wdPasteDefault)
Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
With Selection.Font
.Name = "Times New Roman"
.Size = 14
.Bold = False
.Italic = False
.Underline = wdUnderlineNone
.UnderlineColor = wdColorAutomatic
.StrikeThrough = False
.DoubleStrikeThrough = False
.Outline = False
.Emboss = False
.Shadow = False
.Hidden = False
.SmallCaps = False
.AllCaps = False
.Color = wdColorWhite
.Engrave = False
.Superscript = False
.Subscript = False
.Spacing = 0
.Scaling = 100
.Position = 0
.Kerning = 0
.Animation = wdAnimationNone
.SizeBi = 14
.NameBi = "FrankRuehl"
.BoldBi = False
.ItalicBi = False
End With
Selection.MoveDown Unit:=wdParagraph, Count:=1
Selection.MoveUp Unit:=wdLine, Count:=2
Selection.EndKey Unit:=wdLine
Selection.InsertBreak Type:=wdSectionBreakContinuous
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.MoveDown Unit:=wdLine, Count:=1
End Sub

נ. ב. אשמח לקבל תגובה, לשמוע אם זה הצליח אצלך.
כתבתי: shukil565@gmail.com

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