בקשה | אשמח לפקודת מאקרו לא אכפת לי אפי' מ GPT (אני ינסה לתקן את הטעויות)

[shishko]

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

[פרוזי]

@shishko כתב בבקשה | אשמח לפקודת מאקרו לא אכפת לי אפי' מ GPT (אני ינסה לתקן את הטעויות):

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

בשמחה... GPT כמובן

הנה דוגמה לקוד VBA (מאקרו) ב-Word, שיפתח את הקובץ "א" מהכונן Z: ולאחר מכן יפתח את עורך ה-VBA.
יש לשים את הקוד במודול רגיל (Standard Module) ב-VBA של וורד:

Sub OpenWordFileAndShowVBE()

    Dim docPath As String
    
    ' נתיב לקובץ "א" בכונן Z:
    docPath = "Z:\א.docx"
    
    ' פותח את המסמך
    Documents.Open docPath
    
    ' מציג את עורך ה-VBA
    Application.VBE.MainWindow.Visible = True

End Sub

הסבר קצר:

1. docPath – מגדיר את הנתיב המלא של הקובץ לפתיחה. במקרה שלך: "Z:\א.docx".
2. Documents.Open – פותח את המסמך בוורד.
3. Application.VBE.MainWindow.Visible – מציג את חלון עורך המאקרו (עורך ה-VBA).

חשוב: ודא שהשם המדויק של הקובץ הוא אכן "א.docx" (או "א.doc" אם מדובר בפורמט אחר). אם שם הקובץ שונה במעט, עדכן את המשתנה docPath בהתאם.

תעדכן אם עבד לך

[shishko]

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

Documents.Open "Z:\א.docx"

החצי השני לא עובד אני ינסה לתקן

[menajemmendel]

@shishko

Sub Macro1()
Documents.Open "Z:\א.docx"
ShowVisualBasicEditor = True
End Sub

לכזה דבר אתה לא צריך GPT אתה יכול פשוט לעשות הקלטת מאקרו ולראות את הקוד

[shishko]

@menajemmendel אני צריך קוד שיפתח לי עריכה של מאקרו ספציפי (מתנצל שלא כתבתי מדויק בהתחלה)

[menajemmendel]

@shishko כתב בבקשה | אשמח לפקודת מאקרו לא אכפת לי אפי' מ GPT (אני ינסה לתקן את הטעויות):

@menajemmendel אני צריך קוד שיפתח לי עריכה של מאקרו ספציפי (מתנצל שלא כתבתי מדויק בהתחלה)

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

[shishko]

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

[menajemmendel]

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

[pcinfogmach]

@shishko כתב בבקשה | אשמח לפקודת מאקרו לא אכפת לי אפי' מ GPT (אני ינסה לתקן את הטעויות):

אשמח אם מישהו יכול אפי' להעתיק את זה ל GPT

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

את הפקודה לפתוח את העורך אפשר לקבל על ידי הקלטת מאקרו ופתיחת העורך

את הפקודה לפתיחת מסמך אפשר למצוא על ידי חיפוש גוגל פשוט
טקסט לחיפוש:
word vba open file
תוצאה:
https://www.automateexcel.com/vba/word/open-document

כל זה בשניות ספורות

[shishko]

ב"ה מצאתי את הדרך לפקודת מאקרו שתפתח לעריכה פקודת מאקרו אחרת הקוד הוא:

Private Sub macro1edit()
Dim line As Long
    line = Application.VBE.ActiveVBProject.VBComponents("module1").CodeModule.ProcStartLine("macro1", 0)
    Application.VBE.ActiveVBProject.VBComponents("module1").CodeModule.CodePane.SetSelection line, 1, line, 1
    Application.VBE.ActiveVBProject.VBComponents("module1").CodeModule.CodePane.Show
End Sub

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