וורד האשכול המרכזי לשאלות וטיפים בוורד

צורת הדף · 21/2/11

מצו"ב מקרו (נכתבה בשיתוף עם א' מידידיי שי'), שיעזור לך בחיפוש הטורים שאינם שווים ביישורם האנכי.

ולהלן כמה הוראות והגבלות:

1) המקרו דלהלן עובדת רק על הטקסט העיקרי, לא על הערות שוליים או הערות סיום.

2) המקרו מתחילה את החיפוש ממקום עמידת הסמן (או סוף הבחירה) ואילך – עד לסיום הקובץ.

3) בשורה Const MaxDiff ביכולתך לשנות (בנקודות) – כמה הוא ההבדל ביישור האנכי שאינך מקפיד עליו, ושאינך רוצה שהמקרו יעצור בהם.

4) לאחר שהמקרו מצא טורים שאינם משתווים ביישורם האנכי, המקרו עוצרת, בוחרת את הטורים הבעייתיים ופולטת הודעה – בכמה נקודות הוא השוני באורך הטורים. לאחר אישור קבלת ההודעה אפשר להריץ תיכף את המקרו שוב בכדי למצוא את הבא, וכן הלאה, עד לסיום הקובץ.

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

בתקווה שכ"ז יביא לך את התועלת הנרצה.

קוד:

[LEFT]Sub ColAlign()
  Dim i As Integer, iCounter As Integer, iPos As Long, iPosCol As Long
  Dim iCol() As Currency, nCol As Integer
  Dim myRange As Range, iViewType As Integer, bEnd As Boolean
  Const MaxDiff = 0
  If Selection.StoryType <> 1 Then MsgBox "Cursor not in main text!": Exit Sub
  Set myRange = Selection.Range
  Application.ScreenUpdating = False
  iViewType = ActiveWindow.View.Type: ActiveWindow.View.Type = wdPrintView
  iPos = -1
  With Selection
      .Collapse wdCollapseEnd
      iCounter = iCounter + 1: StatusBar = iCounter
      While iPos < .Start
  X2:     iPos = .Start
          If Dialogs(wdDialogFormatColumns).Columns = 1 Then GoTo X0
          ReDim iCol(Dialogs(wdDialogFormatColumns).Columns + 1)
          iPosCol = iPos: iPos = iPos - 1: nCol = 0
          While iPos < .Start
              iPos = .Start
              If Dialogs(wdDialogFormatColumns).Columns = 1 _
                  Or Dialogs(wdDialogFormatColumns).ColumnNo < nCol _
                  Then GoTo X1
              nCol = Dialogs(wdDialogFormatColumns).ColumnNo
              iCol(nCol) = .Information(wdVerticalPositionRelativeToPage)
              .GoToNext wdGoToLine
              iCounter = iCounter + 1: StatusBar = iCounter
          Wend
          bEnd = True: iPos = ActiveDocument.StoryRanges(1).End
  X1:     For i = 1 To nCol ' iCol(0) = high peak
              If iCol(0) < iCol(i) Then iCol(0) = iCol(i)
          Next i
          iCol(nCol + 1) = iCol(0) ' iCol(nCol + 1) = low peak
          For i = 1 To nCol
              If iCol(nCol + 1) > iCol(i) Then iCol(nCol + 1) = iCol(i)
          Next i
          If iCol(0) - iCol(nCol + 1) > MaxDiff Then
              .SetRange iPosCol, iPos
              Application.ScreenUpdating = True
              MsgBox CCur(iCol(0) - iCol(i)) & "pt"
              Exit Sub
          End If
          If bEnd Then GoTo X3 Else GoTo X2
  X0:     .GoToNext wdGoToLine
          iCounter = iCounter + 1: StatusBar = iCounter
      Wend
  End With
  X3: myRange.Select
      Application.ScreenUpdating = True: ActiveWindow.View.Type = iViewType
      MsgBox "Done!"
  End Sub[/LEFT]

________________________

<!--[if gte mso 9]><xml> <o

ocumentProperties> <o:Version>12.00</o:Version> </o

ocumentProperties> </xml><![endif]--><!--[if gte mso 9]><xml> <w:WordDocument> <w:View>Normal</w:View> <w:Zoom>0</w:Zoom> <w:TrackMoves/> <w:TrackFormatting/> <w:AutoHyphenation/> <w

unctuationKerning/> <w:ValidateAgainstSchemas/> <w:SaveIfXMLInvalid>false</w:SaveIfXMLInvalid> <w:IgnoreMixedContent>false</w:IgnoreMixedContent> <w:AlwaysShowPlaceholderText>false</w:AlwaysShowPlaceholderText> <w

oNotPromoteQF/> <w:LidThemeOther>EN-US</w:LidThemeOther> <w:LidThemeAsian>X-NONE</w:LidThemeAsian> <w:LidThemeComplexScript>HE</w:LidThemeComplexScript> <w:Compatibility> <w:BreakWrappedTables/> <w:SnapToGridInCell/> <w:WrapTextWithPunct/> <w:UseAsianBreakRules/> <w

ontGrowAutofit/> <w:SplitPgBreakAndParaMark/> <w

ontVertAlignCellWithSp/> <w

ontBreakConstrainedForcedTables/> <w

ontVertAlignInTxbx/> <w:Word11KerningPairs/> <w:CachedColBalance/> </w:Compatibility> <w:BrowserLevel>MicrosoftInternetExplorer4</w:BrowserLevel> <m:mathPr> <m:mathFont m:val="Cambria Math"/> <m:brkBin m:val="before"/> <m:brkBinSub m:val="--"/> <m:smallFrac m:val="off"/> <m:dispDef/> <m:lMargin m:val="0"/> <m:rMargin m:val="0"/> <m:defJc m:val="centerGroup"/> <m:wrapIndent m:val="1440"/> <m:intLim m:val="subSup"/> <m:naryLim m:val="undOvr"/> </m:mathPr></w:WordDocument> </xml><![endif]-->

אלהבא ברצוני להעיר:
דבר יפה הוא לתת מחמאות לאנשים המסייעים בחפץ לב, ואני אף מודה לך על כך במחמאתך אלי; אך לדעתי, אינו מהנכון לעשות כן בצירוף לשאלה ובקשה חדשה, כשהכוונה שאתה מצפה שאותם אנשים שסייעו לך בעבר יסייעו לך שוב בדבר זה (ברצון ובשמחה), מפני שצירוף הכתובת לשאלתך\בקשתך, גם אם אתה מוסיף בפירוש שכוונתך להסתייע ע"י כל מי שרק יכול לסייע, ולאו דוקא אלו שסייעו בעבר – מונעת בפועל מכמה וכמה (ואני כותב כן מידיעות מפורשות שקיבלתי), אף מבין אלו השמחים, וגם ב"ה ביכלתם, לעזור וכו', לנסות לעזור בדבר זה, מאחר ונוקטים כדברי חז"ל בענין "שבעה דברים וכו' בחכם ... אינו נכנס לתוך דברי חברו ... וחילופיהן בגולם".
ומובן מזה, שאי התועלת הוא גם למבקש הבקשה, שבהיות ממועני השאלה מצומצמים יותר במספרם, גם משתהה (ואולי אף נמנעת) בכך התשובה.
ואין בכל הנ"ל גורע כלל מחפץ הלב באמת, שחברי הפורום בכאן עוזרים ומסייעים האחד להשני. והתודה והברכה נתונה להם על כך, ובעז"ה גם ימשיכו לעשות כן בשמחה תמיד כל הימים.

sek · 21/2/11

תודה רבה על העזרה הגדולה
כמו כן תודה על ההערה הצודקת

sek · 23/2/11

כעת השתמשתי בזה, והוא נפלא מאוד, וייש"כ על כך.
אם תואיל לבאר לי עוד איזה פרט, כעת מוגדר בשורה Const MaxDiff על 0 האם כשברצוני שהמאקרו יראה על פער של נקודה אחת, ולא פחות מזה, האם בשביל כך עלי לשנותו ל-1
בתודה

sek · 23/2/11

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

צורת הדף · 23/2/11

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

בכל אופן אפשר לשמור הקובץ כתבנית 2007 ולהכניסו לתיקיית startup של וורד.

לייזער · 23/2/11

באם הבנתי נכון את ההוראות הרשומים למעלה:
אישור פער של נקודה אחת ומטה = ערך 1.
אישור פער של פחות מנקודה אחת = ערך 0.99.

sek · 23/2/11

אי אפשר לשמור את התבנית מפני שהתבנית מוגנת
תודה רבה

sek · 24/2/11

תודה רבה.

haozar · 24/2/11

לדברים כאלו אני משתמש ב"משלים לוורד". עושה את העבודה נפלא

sek · 24/2/11

נכתב ע"י haozar;530450:
לדברים כאלו אני משתמש ב"משלים לוורד". עושה את העבודה נפלא

איפה משיגים תוכנה זו

sek · 25/2/11

אולי תואיל בטובך להעלות מאקרו של מירכוז שורה אחרונה לבד, ללא חלון, [וכן ביטול של המירכוז]. בתודה.

haozar · 25/2/11

חיפוש בפורום

modutzvi · 25/2/11

נכתב ע"י sek;530834:
איפה משיגים תוכנה זו

תוכנה זו היא לא חינמית

חוזה בכוכבי · 28/2/11

בעיה בהפעלת המאקרו

נכתב ע"י קרש;349366:
מצו"פ קובץ תבנית עם מאקרו להוסיף חלון ומיכרוז שורה אחרונה.

יש לחלץ הקבצים בתוך איזשהו תיקייה ולהתקין (בלחיצה על Setup).
אם הוורד פתוח יש לסגרו ולפתחו שוב.

הוראות שימוש:

להוסיף חלון ומירכוז שורה אחרונה לחצו Alt+J.

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

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

למחוק חלון ומירכוז שורה אחרונה לחצו Alt+K.

אם יש בחירה כל שהוא אז המאקרו (להוסיף ולמחוק) ירוץ רק על פסקא/ות הנבחר/ות. (אין צורך לבחור כל הפסקה). אם אין בחירה, המאקרו ירוץ על כל הקובץ.

פעולת החלון נעשית ע"י הכנסת תו (רווח קבועה) בתחילת שורה שניה, שפיזורו (spacing) הוא כרוחב מילה ראשונה עם הרווח שאחריו.
מירכוז שורה אחרונה נעשית ע"י טאב ממורכז לפי חשבון רוחב הטור.

_________________________________________

כל הזכויות שמורות, ואסור להעתיקו לפורמים אחרים או להעבירו הלאה בלי רשותי.
מי שמרוצה ממנו, ומשתמש בו באופן מקצועי, אשמח לקבל $15 עבורו.

שלום קרש.
משום מה המאקרו לא פועל אצלי במחשב יש לי ווינדוס xp אופיס 2003
יש לך איזה פיתרון עבורי?? תודה מראש

צורת הדף · 28/2/11

האם פולט הודעת שגיאה?
איך מוגדר ב-Tools>Macro security?

חוזה בכוכבי · 28/2/11

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

haozar · 28/2/11

נכתב ע"י א.ישראל;356385:
לא צריך מאקרו, עשוים חיפוש בתוים כלליים:
This user does not have permission to use the HTML BB code.חפש הכל
Ctrl+B [או כל עיצוב שהוא]

הסבר: בתוים כלליים אין אפשרות להכניס סימן פיסקה אז מכניסים 13^ שזה מספר אסקי של סימן פיסקה, ואחרי זה כוכבית ורווח.

זה בדיוק מה שעשיתי הוא מוצא סוף פיסקא אבל לא מדגיש מילה ראשונה

פרידמן · 28/2/11

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

צורת הדף · 28/2/11

נכתב ע"י haozar;532250:
זה בדיוק מה שעשיתי הוא מוצא סוף פיסקא אבל לא מדגיש מילה ראשונה

צריך להשים רווח לאחר הכוכבית.

צורת הדף · 28/2/11

נכתב ע"י פרידמן;532437:
לקרש שיחי'. אני כבר הורדתי מכאן מאקרו זה מכבר עוד טרם היותי רשום כאן, (ואגב לא הבנתי כ"כ האזהרה שלא וכו', דהרי זה כזטש"י)

תודה, לא שמתי לב.

נכתב ע"י פרידמן;532437:
אמנם ישנם מקומות שרוצים לעשות החלון על שתי אותיון, כמו בד"ה "והמשנה ברורה" וכדומה. האם יש לזה מהלך במאקרו הנוכחי. (הייתי רוצה לשנות בהגדרות אך הוא נעול מעריכה כמדומני).

במאקרו הנוכחי אי אפשר. וזה אכן נעול. לכן זה בחינם.

פרוגבוט

פרסומת

וורד האשכול המרכזי לשאלות וטיפים בוורד

משתמש מקצוען

משתמש רשום

משתמש רשום

משתמש רשום

משתמש מקצוען

משתמש צעיר

משתמש רשום

משתמש רשום

משתמש רשום

משתמש רשום

משתמש רשום

משתמש רשום

משתמש חדש

משתמש חדש

משתמש מקצוען

משתמש חדש

משתמש רשום

משתמש רשום

משתמש מקצוען

משתמש מקצוען

פרוגבוט

תוכן שיווקי

איזה כיף שהצטרפתם לניוזלטר שלנו!