שיתוף | תגובות ל - אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות

[beny]

@pcinfogmach כתב בשיתוף | אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:

אלא רק מאקרו מוכן בתוך תבנית

איך אני בונה מאקרו שיהיה מוכן בתוך תבנית?

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

@pcinfogmach את הנתיב שהזנת שבו צריך לשים את המסמך - כדאי לעשות כקוד:

C:\Users\username\AppData\Roaming\Microsoft\Word\STARTUP

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

Spoiler

@מאקרו @מניין ?

[דאנציג]

@צדיק-וטוב-לו-0

%AppData%\Microsoft\Word\STARTUP

[דאנציג]

@beny כתב בשיתוף | תגובות ל - אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:

איך אני בונה מאקרו שיהיה מוכן בתוך תבנית?

אתה שומר את הקובץ שבו המאקרו כתבנית תומכת מאקרו (בדרך כלל וורד עצמו יציע לך לשמור כמסמך תומך מאקרו):

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

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

[pcinfogmach]

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

[מאקרו]

במקרואים שלי אני בדר"כ מעלה קובץ בתוך ארכיון לחילוץ אוטומטי.

[pcinfogmach]

@מאקרו
אוהו רעיון מצויין!

[בַּמְבַּלִיק]

@pcinfogmach
תודה על הרעיון
מבורך.
רק לא הבנתי איך להתקין את המאקרו
העתקתי את השורה %AppData%\Microsoft\Word\STARTUP אל שורת החיפוש בתיקייה, ויש הודעת שגיאה (אולי צריך את כל הנתיב במלואו)
ניסיתי גם דרך WIN+R זה מציג את אותה שגיאה
ניסיתי גם את האפשרות של התקנה חילופית ובסדרן לא מופיע המאקרו שפתחתי
אולי אפשר להסביר יותר לאן אפשר להעתיק את הקובץ מאקרו
תודה רבה

[pcinfogmach]

@ב-מ-ב-ל-יק כתב בשיתוף | תגובות ל - אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:

רק לא הבנתי איך להתקין את המאקרו
העתקתי את השורה %AppData%\Microsoft\Word\STARTUP אל שורת החיפוש בתיקייה, ויש הודעת שגיאה (אולי צריך את כל הנתיב במלואו)

אין בעיה בנתיב אולי תעלה לכאן תמונת מסך של השגיאה? תוודא שוב בבקשה שהעתקת את הנתיב במלואו.
ייתכן שאתה צריך לאשר גישה לתיקייה זו תבדוק אם יש לך גישה אליה בדרך זו C:\Users\username\AppData\Roaming\Microsoft\Word\STARTUP
יש להחליף את - username בשם המשתמש שלכם במחשב

@ב-מ-ב-ל-יק כתב בשיתוף | תגובות ל - אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:

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

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

[דאנציג]

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

[NykUser]

@צדיק-וטוב-לו-0 כתב בשיתוף | תגובות ל - אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:

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

@pcinfogmach כתב בשיתוף | תגובות ל - אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:

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

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

Spoiler

Sub add_to_startup1()

Set fs = CreateObject("Scripting.FileSystemObject")
dirFile = Dir(Application.StartupPath & "\" & ActiveDocument.AttachedTemplate.Name)
If Len(dirFile) = 0 Then
    fs.CopyFile ActiveDocument.AttachedTemplate.FullName, Application.StartupPath & "\" & ActiveDocument.AttachedTemplate.Name
    If fs.FileExists(Application.StartupPath & "\" & ActiveDocument.AttachedTemplate) = True Then
        MsgBox ActiveDocument.AttachedTemplate & " Was Copied to Start up Path"
    Else
       A = InputBox("Please copy " & ActiveDocument.AttachedTemplate & " to this folder", "Error did not copy", Application.StartupPath)
    End If
Else
    MsgBox ActiveDocument.AttachedTemplate & " Already in Startup Path remove first and repeat"
    Call Shell("explorer.exe" & " " & Application.StartupPath, vbNormalFocus)
End If
End Sub

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

@NykUser כתב בשיתוף | תגובות ל - אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:

@צדיק-וטוב-לו-0 כתב בשיתוף | תגובות ל - אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:

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

@pcinfogmach כתב בשיתוף | תגובות ל - אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:

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

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

Spoiler

Sub add_to_startup1()

Set fs = CreateObject("Scripting.FileSystemObject")
dirFile = Dir(Application.StartupPath & "\" & ActiveDocument.AttachedTemplate.Name)
If Len(dirFile) = 0 Then
    fs.CopyFile ActiveDocument.AttachedTemplate.FullName, Application.StartupPath & "\" & ActiveDocument.AttachedTemplate.Name
    If fs.FileExists(Application.StartupPath & "\" & ActiveDocument.AttachedTemplate) = True Then
        MsgBox ActiveDocument.AttachedTemplate & " Was Copied to Start up Path"
    Else
       A = InputBox("Please copy " & ActiveDocument.AttachedTemplate & " to this folder", "Error did not copy", Application.StartupPath)
    End If
Else
    MsgBox ActiveDocument.AttachedTemplate & " Already in Startup Path remove first and repeat"
    Call Shell("explorer.exe" & " " & Application.StartupPath, vbNormalFocus)
End If
End Sub

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

Spoiler

או שכשאני מצרף תבנית אני צריך להחליט?

[דאנציג]

@צדיק-וטוב-לו-0 כתב בשיתוף | תגובות ל - אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:

או שכשאני מצרף תבנית אני צריך להחליט!

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

Spoiler

ולי לא מותקן וינראר, ולכן אני לא עושה זאת...

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

@דאנציג כתב בשיתוף | תגובות ל - אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:

@צדיק-וטוב-לו-0 כתב בשיתוף | תגובות ל - אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:

או שכשאני מצרף תבנית אני צריך להחליט!

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

Spoiler

ולי לא מותקן וינראר, ולכן אני לא עושה זאת...

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

[מניין]

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

[mfmf]

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

[מניין]

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

[ישראל כהן]

@pcinfogmach כתב בשיתוף | תגובות ל - אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:

אין בעיה בנתיב אולי תעלה לכאן תמונת מסך של השגיאה? תוודא שוב בבקשה שהעתקת את הנתיב במלואו.
ייתכן שאתה צריך לאשר גישה לתיקייה זו תבדוק אם יש לך גישה אליה בדרך זו C:\Users\username\AppData\Roaming\Microsoft\Word\STARTUP
יש להחליף את - username בשם המשתמש שלכם במחשב

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

[מניין]

@מניין כתב בשיתוף | תגובות ל - אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות:

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

@דאנציג @pcinfogmach הוספתי בקובץ פיתרון למחיקת פסקאות ריקות לאחר מעברים תבנית-מחיקת-פסקאות-ריקות-ורווח-לפני-פסקא.dotm .
@דאנציג אם אתה יכול תחליף את הקובץ שעשית כאן עם החדש שהכנסתי כאן.