פתרון למפתח כשמספר העמוד נדבק לנושא

[צורת הדף]

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

צפה בקובץ המצורף 34456

הפתרון: לעבור על כל המפתח, לשבור השורה ולהכניס טאב נוסף לפני מספר העמוד.

מאקרו זה עושה העבודה בשבילכם. הוא עובר על כל המפתח, ובמקרה של טאב עם רוחב פחות מ-10 נקודות, הוא שובר השורה ומכניס טאב.

יש להעמוד הסמן לפני המפתח.

Sub fix_tabs_in_index()
ActiveWindow.View.Type = wdPrintView
While Selection.Find.Execute(FindText:="^t", Wrap:=wdFindStop)
    i = i + 1
    StatusBar = i
    a = Selection.Information(wdHorizontalPositionRelativeToTextBoundary)
    Selection.Collapse Direction:=wdCollapseEnd
    b = Selection.Information(wdHorizontalPositionRelativeToTextBoundary)
    If a - b < [COLOR=Red]10[/COLOR] Then Selection.TypeText Chr(11) & Chr(9)
Wend
    StatusBar = "Finished"
End Sub