המלצה | מדריך איך ליצור בעצמכם שדה מספר עמודים שפותר את באג שצג.dotx

[דאנציג]

@455
אני לא מבין במאקרו / שדות, תשאל את @pcinfogmach.

[pcinfogmach]

@455

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

1. שומר את השדה בתוך אבני בניין של וורד
2. מחפש את הבא
3. מזין את השדה מתוך אבני הבניין במקום הטקסט שנמצא
4. מחפש את הבא
5. מזין את השדה כנ"ל
6. וחוזר חלילה עד סוף המסמך.

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

מקווה שהובנתי

אגב @455 נראה שאינך מודע לכך אבל עיצוב תורני ו-וורד תורני הנם שני גרסאות של אותו התוסף עם שינויים קלים.

[455]

@pcinfogmach לא הצלחתי לעשות את כל השלבים של הקוד
אבל עזרת לי מאוד

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

יישר כחך.

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

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

    Dim rng As Range
    Dim doc As Document
    Dim storyRange As Range
    
    Set doc = ActiveDocument

    For Each storyRange In doc.StoryRanges
        Set rng = storyRange

        With rng.Find
            .ClearFormatting
            .Text = InputBox("הזן סימן להחלפה:")
            .Forward = True
            .Wrap = wdFindContinue
            .Format = False
            .MatchWildcards = False

            Do While .Execute
                Application.Templates("C:\Users\user\AppData\Roaming\Microsoft\Templates\Normal.dotm").BuildingBlockEntries("מספור רציף עד תתשצב").Insert Where:=rng, RichText:=True
                rng.Collapse wdCollapseEnd
            Loop
        End With
    Next storyRange
End Sub

[pcinfogmach]

פוסט זה נמחק!

[shishko]

@455 כתב בהמלצה | מדריך איך ליצור בעצמכם שדה מספר עמודים שפותר את באג שצג.dotx:

מצורף קוד המאקרו של רובי

מתי מפעילים אותו עושים קודם מספור אוטומטי?

[455]

@shishko
זה לא משהו שאפשר להשתמש בו, כי זה בנוי על אבן בנין מסויימת בוורד הפרטי שלי
הנחתי כאן את הקוד כדי שיהיה ניתן לשנות אותו וכן לעשות ממנו משהו אוניברסלי.

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

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

[דאנציג]

@455

@455 כתב בהמלצה | מדריך איך ליצור בעצמכם שדה מספר עמודים שפותר את באג שצג.dotx:

יתכן שברוב המקומות אין צורך בקוד מורכב, כי בלאו הכי לא יבואו לסעיף 'שצג'

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

[455]

@דאנציג
עכשיו אני חושב שאפשר פשוט להכניס את האבן בנין בתבנית, ולעשות מראש 5 או 10 אבני בניין של זרמים ממוספרים לפי סדר [A,B וכו'].
ובמאקרו לעשות תנאי, אם אין כלום - ינתן זרם A, במקרה וזרם A כבר קיים, ינתן זרם B וכו'.
אם נגמרו כל זרמי המספור - תינתן הודעה שנגמרו זרמי המספור האפשריים.

[דאנציג]

@455
מדהים!!!
אם תעשה את זה, לדעתי זה יהיה תועלת מאוד גדולה, אני לא מבין במאקרו, ואפילו יצירת שדות מסובך לא (עוד לא מצאתי זמן לשבת על המדריך שהועלה כאן)...
תזכה למצוות

[pcinfogmach]

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

[מאקרו]

@pcinfogmach מצורף כאן קוד שעשיתי למספור עמודים על בסיס חישוב מתמטי, והמעלה שלו היא שהוא מורכב מפחות תנאים והוא יכול למספר עד 17 פעמים ת[+שצט] (סה"כ 7199)

{ if { page } > 400 {=22*int({ page }/400) \ *hebrew2} }{ if { =mod({ page}, 400) } > 390 "שצ{=mod({ page },400)-390\* hebrew1 }" { =mod({ page}, 400)\* hebrew1} }

מצורף קובץ וורד עם הקוד תתתתתתתתתתתתתתתתתשצג.docx
יש בקובץ גם שדה ללשון נקיה.

[דאנציג]

@מאקרו
וואו, האם ישנה דרך כזו לעשות שמעל אלף יהיה א' א וכדו'?

[pcinfogmach]

@מאקרו
הקוד שלך מתחיל מ-תתשצג?

[דאנציג]

@pcinfogmach
זה לא SEQ, זה PAGE...

@מאקרו
@pcinfogmach
צודק במשהו, מכיון שכאשר משנים את מספר העמוד ל1, כדי שיתחיל למספר מאחד, אז מופיע 1 במקום א'. (במספרים במקום באותיות).

[pcinfogmach]

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

למעישה כל מה שחסר בקוד זה המאפיין ל-page האחרון צריך להוסיך לו

\* hebrew1

[מאקרו]

@דאנציג כתב בהמלצה | מדריך איך ליצור בעצמכם שדה מספר עמודים שפותר את באג שצג.dotx:

כאשר משנים את מספר העמוד ל1, כדי שיתחיל למספר מאחד, אז מופיע 1 במקום א'. (במספרים במקום באותיות).

צודק, היה לי באג שצג...
שכחתי להוסיף את בורר העיצוב hebrew1 לעמודים שעד שצג כמו שכתב @pcinfogmach .

@pcinfogmach כתב בהמלצה | מדריך איך ליצור בעצמכם שדה מספר עמודים שפותר את באג שצג.dotx:

משום מה הוא שינה לי בלי לשאול אותי את המספר ההתחלתי ולכן הופיע המספר תתשצג

ככה הגדרתי בקובץ הנ"ל כדי שיהיה ניכר המספר עמוד בספרות גבוהות.

[pcinfogmach]

@מאקרו
אני מחכה בכליון עיניים ללשון נקיה ולseq יהיה בזה תועלת גדולה מצד כובד השדה כמו שכתבת
ייש"כ גדול

[מאקרו]

@pcinfogmach העליתי למעלה בפוסט המקורי שלי.
בשדה עם לשון נקיה עדיין יש סרבול גדול של הרבה תנאים.
לגבי שדה SEQ תוכל להחליף בכל מקום שצריך במקום PAGE, וכנ"ל גם להפניות מקושרות.

[shishko]

@pcinfogmach יש דרך לסדר כך גם את תוכן העניינים?

[יואל שילה]

לאחר הברכות שיחולו על ראש המטיבים עמנו
רציתי רק להעיר שלענ"ד אין שום טעם וריח לשנות את תתרצח לתתרחץ
בשלמא תִּרְצָח היא מילה 'לא נקיה' בדומה ל'רצח', אבל תתרצח היא מילה חסרת משמעות