עזרה הדדית - VBA word

@מניין
לא עזר...
כנראה זה אבוד.

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

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

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

@האדם-החושב כתב בשיתוף | ידיעה חשובה VBA: ביטול פעולה אחרונה למאקרו שלם כיחידה אחת:

אולי צריך להוסיף את זה לתוך המאקרו שביוזר פורם עצמו?

כן

@פלורידה אני צריך את התו הזה כדי להחליף אותו אח"כ בעיטור

@menajemmendel בהיברו בוקס בהורדת קובץ כן, בשאר הדברים שהוא יפתח את הלינק בדפדפן או בתוכנת אוצר החכמה

@menajemmendel כתב בבקשה | פתיחת ספרים מהיברו בוקס ואוצר החכמה דרך וורד:

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

נכון, יש עמודה שמכילה לינק ישיר להורדה ושאר העמודות הם לצפייה בדפדפן

@121244 נראה לי שכך:

%userprofile%

כלומר:

%userprofile%\documents\gibuy

עריכה: עכשיו אני רואה בתורת אמת בוורד משהו כזה:

Dim xfilepath As String xfilepath = Environ("USERPROFILE") & "\Documents\ToratEmetInstall\WordAddon\Index\BookPathIndex.txt"

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

@pcinfogmach הגופן פרן ריקול

@צור הוא כתב איך עושים קיצור לעצמי ולא איך שומרים את זה בקובץ

@ישיבישער כתב בהמלצה | האם כדאי בוורד שלמעברים יהיה סגנון?:

@menajemmendel אתה יכול לעשות את זה יותר נגיש (אני פחות בקטע של כל מיני מילים באנגלית...)

אני לא יכול להסביר לך, זה רק יסבך אותך, תעשה בחפש והחלף הוא קונטרל+H ואז
f1a4a513-3019-44e7-b691-f5b89ef155e5-image.png
ובעיצוב תבחר סגנון, רגיל , והחלף הכל

@menajemmendel אחזתי שבעצם אתה יכול לעשות את זה רק לתמונה ספציפית
אולי עם התוסף הזה תוכל לעשות את זה
Building Blocks Add-In Ver. 2.0.dotm

@האדם-החושב
תודה

@menajemmendel
בסדר הסתדרתי תודה
צריך לשנות השורה האחרונה ל:

SELECTION.SetRange start_place.start, footnote_end.End

@רק-מה
יפה
לשלם זה נחמד השאלה כמה ועל מה.