להורדה | תוסף עיצוב תורני לוורד

[pcinfogmach]

@דאנציג כתב בלהורדה | תוסף עיצוב תורני לוורד:

@pcinfogmach
תודה רבה!
כיצד ניתן לתקן בעיית תאימות שבהודעה מעל?

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

מומלץ מאוד לבדוק אם מישהו אחר (עם גירסה אחת של אופיס או בלי חדר מחשבים) גם יש אצלו את הבעיה הנ"ל.

[ששמעון]

פוסט זה נמחק!

[צדיק וטוב לו 0]

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

[menajemmendel]

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

היה טעות אז המאקרו מתוקן בהמשך

[דאנציג]

@menajemmendel כתב בלהורדה | תוסף עיצוב תורני לוורד:

הנה המאקרו

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

[דאנציג]

@pcinfogmach

@pcinfogmach כתב בלהורדה | תוסף עיצוב תורני לוורד:

או בלי חדר מחשבים

נתקלתי בבעיה הזו גם במחשב שלי, וגם בחדר מחשבים, וזה מקום השגיאה :

[pcinfogmach]

@דאנציג
האם יש dim בקוד עבור mygallery?

[menajemmendel]

@דאנציג
הנה המאקרו מתוקן

Sub MACRO1()
    Dim sField As String
    Dim sTextCode As String
    Dim bSFC As Boolean
    Dim MyData As DataObject
    Dim sTemp As String
    Dim J As Integer
 
        bSFC = Selection.Fields.Item(1).ShowCodes
        Selection.Fields.Item(1).ShowCodes = True
        sField = Selection.Text
        sTextCode = ""
        For J = 1 To Len(sField)
            sTemp = Mid(sField, J, 1)
            Select Case sTemp
                Case Chr(19)
                    sTemp = "{"
                Case Chr(21)
                    sTemp = "}"
                Case vbCr
                    sTemp = ""
            End Select
            sTextCode = sTextCode & sTemp
        Next J
 
        Set MyData = New DataObject
        MyData.SetText sTextCode
        MyData.PutInClipboard
        
        Selection.Fields.Item(1).ShowCodes = bSFC

End Sub

[דאנציג]

@pcinfogmach כתב בלהורדה | תוסף עיצוב תורני לוורד:

האם יש dim בקוד עבור mygallery?

לא להלן שלושת הdim שיש ביוזר פרום הזה:

Dim FSO2 As Object
Dim attTempPath2 As String
Dim docPath2 As String

[דאנציג]

@menajemmendel כתב בלהורדה | תוסף עיצוב תורני לוורד:

הנה המאקרו מתוקן

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

ולגבי הרווח שכתבת:

ואי אפשר למחוק את הרווח

ניתן למחוק את הרווח שמפריע לך, כאשר אתה עומד לפני הרווח, ומוחק אותו עם deiete (עם backspace באמת הרווח לא נמחק).

[pcinfogmach]

@דאנציג כתב בלהורדה | תוסף עיצוב תורני לוורד:

@pcinfogmach כתב בלהורדה | תוסף עיצוב תורני לוורד:

האם יש dim בקוד עבור mygallery?

לא להלן שלושת הdim שיש ביוזר פרום הזה:

Dim FSO2 As Object
Dim attTempPath2 As String
Dim docPath2 As String

יש לך שני אפשרויות או למחוק את ההצהרה option explicit בתחילת הקוד או לעשות dim בשביל mygallery כמדומני שזה אמור להיות range אין לי את כל הקוד לפני כרגע.

[menajemmendel]

@דאנציג כתב בלהורדה | תוסף עיצוב תורני לוורד:

ניתן למחוק את הרווח שמפריע לך, כאשר אתה עומד לפני הרווח, ומוחק אותו עם deiete (עם backspace באמת הרווח לא נמחק).

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

[ישראל ימפ]

האם ישנה אפשרות בתוסף למספור של פיסקאות מעל שצ"ב? (ראיתי רק מספור עמודים ומספור הערות שוליים)

[pcinfogmach]

@ישראל-ימפ כתב בלהורדה | תוסף עיצוב תורני לוורד:

האם ישנה אפשרות בתוסף למספור של פיסקאות מעל שצ"ב? (ראיתי רק מספור עמודים ומספור הערות שוליים)

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

[אוריי]

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

[משה לוי 4]

מישהו יוכל להעלות כאן קישור להורדה של הגרסה הכי מעודכנת ומתוקנת של "עיצוב תורני"?
תודה רבה.

[pcinfogmach]

@משה-לוי-4 כתב בלהורדה | תוסף עיצוב תורני לוורד:

מישהו יוכל להעלות כאן קישור להורדה של הגרסה הכי מעודכנת ומתוקנת של "עיצוב תורני"?
תודה רבה.

https://mitmachim.top/post/626904

[דאנציג]

@pcinfogmach כתב בלהורדה | תוסף עיצוב תורני לוורד:

יש לך שני אפשרויות או למחוק את ההצהרה option explicit בתחילת הקוד או לעשות dim בשביל mygallery כמדומני שזה אמור להיות range אין לי את כל הקוד לפני כרגע.

תודה רבה!!!
הוספתי:

Dim mygallery, range

כאן:

Private Sub CommandButton2_Click()
'על חיפוש החל זרם מספור
On Error Resume Next
Application.Dialogs(wdDialogEditFind).Close
On Error GoTo 0

 Selection.GoTo What:=wdGoToPage, Which:=wdGoToAbsolute, Name:="1"

Dim myfieldname, myText As String, counter, i As Integer, rng, lastWord, fieldWord As range
Dim mygallery, range

ועובד!
תזכה למצוות.

[pcinfogmach]

פוסט זה נמחק!

[ישראל ימפ]

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