דילוג לתוכן
  • חוקי הפורום
  • פופולרי
  • לא נפתר
  • משתמשים
  • חיפוש גוגל בפורום
  • צור קשר
עיצובים
  • Light
  • Cerulean
  • Cosmo
  • Flatly
  • Journal
  • Litera
  • Lumen
  • Lux
  • Materia
  • Minty
  • Morph
  • Pulse
  • Sandstone
  • Simplex
  • Sketchy
  • Spacelab
  • United
  • Yeti
  • Zephyr
  • Dark
  • Cyborg
  • Darkly
  • Quartz
  • Slate
  • Solar
  • Superhero
  • Vapor

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

שינוי בין הקלטת מאקרו לבין ביצועה

מתוזמן נעוץ נעול הועבר לא נפתר עזרה הדדית - וורד
40 פוסטים 3 כותבים 536 צפיות 3 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • ח חוות דעת

    אני מקליט מאקרו שיעתיק כל תוכן הערות שוליים למסמך אחר ולשמרו.
    התהליך שאני עושה היא, אני שולח הסמן לתוך הערות שוליים > בוחר הכל > פותח מסמך חדש > מדביק הכל > שומר וסוגר.
    הבעיה היא שכשאני מפעיל אח"כ את המאקרו, הוא בוחר הכל, כל המסמך כולו גם הטקסט למעלה.
    קודם כל מדוע?? והעיקר, איך עושים שיבחר רק תוכן ההערות שוליים ולא יותר?

    P מנותק
    P מנותק
    pcinfogmach
    מדריכים
    כתב ב נערך לאחרונה על ידי pcinfogmach
    #4

    @חוות-דעת
    אולי תעלה את הקוד ונראה מה הבעיה
    למה לא להתשמש עם הקוד של דאנציג?

    גמ"ח עזרה וייעוץ בנושאי מחשבים

    ח תגובה 1 תגובה אחרונה
    1
    • ח חוות דעת

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

      ד מנותק
      ד מנותק
      דאנציג
      כתב ב נערך לאחרונה על ידי דאנציג
      #5

      @חוות-דעת
      אם אתה רוצה, אתה יכול להוסיף רק את הפקודה לעבור אל הערת שוליים:

      Sub מעבר_להערות_שוליים()
            ActiveWindow.View.SeekView = wdSeekFootnotes
      End Sub
      

      בהצלחה

      תגובה 1 תגובה אחרונה
      3
      • P pcinfogmach

        @חוות-דעת
        אולי תעלה את הקוד ונראה מה הבעיה
        למה לא להתשמש עם הקוד של דאנציג?

        ח מנותק
        ח מנותק
        חוות דעת
        כתב ב נערך לאחרונה על ידי
        #6

        @pcinfogmach כתב בשינוי בין הקלטת מאקרו לבין ביצועה:

        @חוות-דעת
        אולי תעלה את הקוד ונראה מה הבעיה
        למה לא להתשמש עם הקוד של דאנציג?

        אני מקבל שגיאה
        שגיאה ייצוא הערות שולים.JPG

        P תגובה 1 תגובה אחרונה
        0
        • ח חוות דעת

          @pcinfogmach כתב בשינוי בין הקלטת מאקרו לבין ביצועה:

          @חוות-דעת
          אולי תעלה את הקוד ונראה מה הבעיה
          למה לא להתשמש עם הקוד של דאנציג?

          אני מקבל שגיאה
          שגיאה ייצוא הערות שולים.JPG

          P מנותק
          P מנותק
          pcinfogmach
          מדריכים
          כתב ב נערך לאחרונה על ידי pcinfogmach
          #7

          @חוות-דעת

          השתמשת בקוד כמו שהוא או שינית אותו?

          גמ"ח עזרה וייעוץ בנושאי מחשבים

          תגובה 1 תגובה אחרונה
          0
          • ח מנותק
            ח מנותק
            חוות דעת
            כתב ב נערך לאחרונה על ידי
            #8

            כמו שהוא

            P תגובה 1 תגובה אחרונה
            0
            • ח חוות דעת

              כמו שהוא

              P מנותק
              P מנותק
              pcinfogmach
              מדריכים
              כתב ב נערך לאחרונה על ידי
              #9

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

              גמ"ח עזרה וייעוץ בנושאי מחשבים

              ח תגובה 1 תגובה אחרונה
              0
              • P pcinfogmach

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

                ח מנותק
                ח מנותק
                חוות דעת
                כתב ב נערך לאחרונה על ידי חוות דעת
                #10

                @pcinfogmach כתב בשינוי בין הקלטת מאקרו לבין ביצועה:

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

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

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

                עריכה:

                אני מעתיק לכם כאן הקוד. ואשמח מאד אם מישהו יוכל להוסיף ולשדרג אותו בכמה דברים:

                1. כעת, בסוף כל התהליך נשארים עם חלון פתוח של שמירת המסמך המקורי. הייתי רוצה שהמאקרו 'יכריח' לסגור הקובץ המקורי בלי שמירה. כי לפני ייצוא הטקסט הראשי נעשים בו כל מיני שינויים של הוספות סימונים לקישורים של ההערות, ואח"כ אני מוחק את כל ההערות מהטקסט כדי שיעבור רק הטקסט ולא ההערות (אני לא רוצה להעביר בצורה של טקסט נקי, כי כך אני יאבד את כל ההדגשים שבטקסט. לכן אני לא רוצה לשמור אותו במתכונת הזו, רק כמו שהיתה לפני התהליך.
                2. אני רוצה לשמור את הכל הטקסטים המייוצאים כפורמט RTF ולא קובץ וורד רגיל.
                3. הייתי רוצה שהטקסטים המיוצאים יישמרו באופן אוטומטי בשם הערות שוליים\הערות סיום\וטקסט ראשי באותה תיקיה של הקובץ המקורי. כך שצריכים רק להפעיל המאקרו, והכל מסתדר לבד בלי נגיעת יד.
                Sub פירוק_טקסטים_עם_סימונים_לעימוד()
                
                ' מייצא כל ההערות שוליים והערות סיום והטקסט הראשי למסמך נפרד
                'מכניס קודים במקום הערות שוליים וסיום לצורך עימוד עתידי בתוכנה אחרת
                
                ' שומר עותק גיבוי למקרה של טעויות
                '
                    Selection.WholeStory
                    Selection.Copy
                    Documents.Add DocumentType:=wdNewBlankDocument
                    Selection.PasteAndFormat (wdUseDestinationStylesRecovery)
                    ActiveDocument.SaveAs2 FileName:="שמירת עותק גיבוי.docx", FileFormat:= _
                        wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
                        :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
                        :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
                        SaveAsAOCELetter:=False, CompatibilityMode:=15
                    ActiveDocument.Save
                    ActiveWindow.Close
                    Selection.MoveLeft Unit:=wdCharacter, Count:=1
                
                'מכניס סימונים במקום הערות שוליים והערות סיום
                    Selection.Find.ClearFormatting
                    Selection.Find.Replacement.ClearFormatting
                    With Selection.Find
                        .Text = "^f"
                        .Replacement.Text = "*^&"
                        .Forward = True
                        .Wrap = wdFindContinue
                    End With
                    Selection.Find.Execute Replace:=wdReplaceAll
                    Selection.Find.ClearFormatting
                    Selection.Find.Replacement.ClearFormatting
                    With Selection.Find
                        .Text = "^e"
                        .Replacement.Text = "%^&"
                        .Forward = True
                        .Wrap = wdFindContinue
                    End With
                    Selection.Find.Execute Replace:=wdReplaceAll
                
                'מייצא הערות שוליים
                    ActiveWindow.View.SeekView = wdSeekFootnotes
                    Selection.WholeStory
                    Selection.Copy
                    Documents.Add DocumentType:=wdNewBlankDocument
                    Selection.PasteAndFormat (wdUseDestinationStylesRecovery)
                
                'מכניס סימונים במקום מספור
                    Selection.Find.ClearFormatting
                    With Selection.Find.Font
                        .Superscript = True
                        .Subscript = False
                    End With
                    Selection.Find.Replacement.ClearFormatting
                    With Selection.Find
                        .Text = ""
                        .Replacement.Text = "*"
                        .Forward = True
                        .Wrap = wdFindContinue
                        .Format = True
                    End With
                    Selection.Find.Execute Replace:=wdReplaceAll
                    
                    ActiveDocument.Save
                    ActiveDocument.SaveAs2 FileName:="הערות סיום.docx", FileFormat:= _
                        wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
                        :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
                        :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
                        SaveAsAOCELetter:=False, CompatibilityMode:=15
                    ActiveWindow.Close
                
                'מייצא הערות סיום
                    ActiveWindow.View.SeekView = wdSeekEndnotes
                    Selection.WholeStory
                    Selection.Copy
                    Documents.Add DocumentType:=wdNewBlankDocument
                    Selection.PasteAndFormat (wdUseDestinationStylesRecovery)
                
                'מכניס סימונים במקום מספור
                    Selection.Find.ClearFormatting
                    With Selection.Find.Font
                        .Superscript = True
                        .Subscript = False
                    End With
                    Selection.Find.Replacement.ClearFormatting
                    With Selection.Find
                        .Text = ""
                        .Replacement.Text = "%"
                        .Forward = True
                        .Wrap = wdFindContinue
                        .Format = True
                    End With
                    Selection.Find.Execute Replace:=wdReplaceAll
                    
                    ActiveDocument.Save
                    ActiveDocument.SaveAs2 FileName:="הערות סיום.docx", FileFormat:= _
                        wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
                        :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
                        :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
                        SaveAsAOCELetter:=False, CompatibilityMode:=15
                    ActiveWindow.Close
                
                'מוחק ההפניות של הערות שוליים וסיום שבתוך הטקסט הראשי
                    Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=1, Name:=""
                    Selection.Find.ClearFormatting
                    With Selection.Find
                        .Text = "^?"
                        .Replacement.Text = ""
                        .Forward = True
                        .Wrap = wdFindAsk
                    End With
                    With Selection.Find
                        .Text = "^e"
                        .Replacement.Text = ""
                        .Forward = True
                        .Wrap = wdFindContinue
                    End With
                    Selection.Find.Execute Replace:=wdReplaceAll
                    Selection.Find.ClearFormatting
                    Selection.Find.Replacement.ClearFormatting
                    With Selection.Find
                        .Text = "^f"
                        .Replacement.Text = ""
                        .Forward = True
                        .Wrap = wdFindContinue
                    End With
                    Selection.Find.Execute Replace:=wdReplaceAll
                
                'מייצא הטקסט הראשי למסמך נפרד
                    Selection.WholeStory
                    Selection.Copy
                    Documents.Add DocumentType:=wdNewBlankDocument
                    Selection.PasteAndFormat (wdUseDestinationStylesRecovery)
                    ActiveDocument.Save
                    ActiveDocument.SaveAs2 FileName:="טקסט ראשי.docx", FileFormat:= _
                        wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
                        :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
                        :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
                        SaveAsAOCELetter:=False, CompatibilityMode:=15
                    ActiveWindow.Close
                    ActiveWindow.Close
                End Sub
                
                P 4 תגובות תגובה אחרונה
                1
                • ח חוות דעת

                  @pcinfogmach כתב בשינוי בין הקלטת מאקרו לבין ביצועה:

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

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

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

                  עריכה:

                  אני מעתיק לכם כאן הקוד. ואשמח מאד אם מישהו יוכל להוסיף ולשדרג אותו בכמה דברים:

                  1. כעת, בסוף כל התהליך נשארים עם חלון פתוח של שמירת המסמך המקורי. הייתי רוצה שהמאקרו 'יכריח' לסגור הקובץ המקורי בלי שמירה. כי לפני ייצוא הטקסט הראשי נעשים בו כל מיני שינויים של הוספות סימונים לקישורים של ההערות, ואח"כ אני מוחק את כל ההערות מהטקסט כדי שיעבור רק הטקסט ולא ההערות (אני לא רוצה להעביר בצורה של טקסט נקי, כי כך אני יאבד את כל ההדגשים שבטקסט. לכן אני לא רוצה לשמור אותו במתכונת הזו, רק כמו שהיתה לפני התהליך.
                  2. אני רוצה לשמור את הכל הטקסטים המייוצאים כפורמט RTF ולא קובץ וורד רגיל.
                  3. הייתי רוצה שהטקסטים המיוצאים יישמרו באופן אוטומטי בשם הערות שוליים\הערות סיום\וטקסט ראשי באותה תיקיה של הקובץ המקורי. כך שצריכים רק להפעיל המאקרו, והכל מסתדר לבד בלי נגיעת יד.
                  Sub פירוק_טקסטים_עם_סימונים_לעימוד()
                  
                  ' מייצא כל ההערות שוליים והערות סיום והטקסט הראשי למסמך נפרד
                  'מכניס קודים במקום הערות שוליים וסיום לצורך עימוד עתידי בתוכנה אחרת
                  
                  ' שומר עותק גיבוי למקרה של טעויות
                  '
                      Selection.WholeStory
                      Selection.Copy
                      Documents.Add DocumentType:=wdNewBlankDocument
                      Selection.PasteAndFormat (wdUseDestinationStylesRecovery)
                      ActiveDocument.SaveAs2 FileName:="שמירת עותק גיבוי.docx", FileFormat:= _
                          wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
                          :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
                          :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
                          SaveAsAOCELetter:=False, CompatibilityMode:=15
                      ActiveDocument.Save
                      ActiveWindow.Close
                      Selection.MoveLeft Unit:=wdCharacter, Count:=1
                  
                  'מכניס סימונים במקום הערות שוליים והערות סיום
                      Selection.Find.ClearFormatting
                      Selection.Find.Replacement.ClearFormatting
                      With Selection.Find
                          .Text = "^f"
                          .Replacement.Text = "*^&"
                          .Forward = True
                          .Wrap = wdFindContinue
                      End With
                      Selection.Find.Execute Replace:=wdReplaceAll
                      Selection.Find.ClearFormatting
                      Selection.Find.Replacement.ClearFormatting
                      With Selection.Find
                          .Text = "^e"
                          .Replacement.Text = "%^&"
                          .Forward = True
                          .Wrap = wdFindContinue
                      End With
                      Selection.Find.Execute Replace:=wdReplaceAll
                  
                  'מייצא הערות שוליים
                      ActiveWindow.View.SeekView = wdSeekFootnotes
                      Selection.WholeStory
                      Selection.Copy
                      Documents.Add DocumentType:=wdNewBlankDocument
                      Selection.PasteAndFormat (wdUseDestinationStylesRecovery)
                  
                  'מכניס סימונים במקום מספור
                      Selection.Find.ClearFormatting
                      With Selection.Find.Font
                          .Superscript = True
                          .Subscript = False
                      End With
                      Selection.Find.Replacement.ClearFormatting
                      With Selection.Find
                          .Text = ""
                          .Replacement.Text = "*"
                          .Forward = True
                          .Wrap = wdFindContinue
                          .Format = True
                      End With
                      Selection.Find.Execute Replace:=wdReplaceAll
                      
                      ActiveDocument.Save
                      ActiveDocument.SaveAs2 FileName:="הערות סיום.docx", FileFormat:= _
                          wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
                          :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
                          :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
                          SaveAsAOCELetter:=False, CompatibilityMode:=15
                      ActiveWindow.Close
                  
                  'מייצא הערות סיום
                      ActiveWindow.View.SeekView = wdSeekEndnotes
                      Selection.WholeStory
                      Selection.Copy
                      Documents.Add DocumentType:=wdNewBlankDocument
                      Selection.PasteAndFormat (wdUseDestinationStylesRecovery)
                  
                  'מכניס סימונים במקום מספור
                      Selection.Find.ClearFormatting
                      With Selection.Find.Font
                          .Superscript = True
                          .Subscript = False
                      End With
                      Selection.Find.Replacement.ClearFormatting
                      With Selection.Find
                          .Text = ""
                          .Replacement.Text = "%"
                          .Forward = True
                          .Wrap = wdFindContinue
                          .Format = True
                      End With
                      Selection.Find.Execute Replace:=wdReplaceAll
                      
                      ActiveDocument.Save
                      ActiveDocument.SaveAs2 FileName:="הערות סיום.docx", FileFormat:= _
                          wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
                          :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
                          :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
                          SaveAsAOCELetter:=False, CompatibilityMode:=15
                      ActiveWindow.Close
                  
                  'מוחק ההפניות של הערות שוליים וסיום שבתוך הטקסט הראשי
                      Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=1, Name:=""
                      Selection.Find.ClearFormatting
                      With Selection.Find
                          .Text = "^?"
                          .Replacement.Text = ""
                          .Forward = True
                          .Wrap = wdFindAsk
                      End With
                      With Selection.Find
                          .Text = "^e"
                          .Replacement.Text = ""
                          .Forward = True
                          .Wrap = wdFindContinue
                      End With
                      Selection.Find.Execute Replace:=wdReplaceAll
                      Selection.Find.ClearFormatting
                      Selection.Find.Replacement.ClearFormatting
                      With Selection.Find
                          .Text = "^f"
                          .Replacement.Text = ""
                          .Forward = True
                          .Wrap = wdFindContinue
                      End With
                      Selection.Find.Execute Replace:=wdReplaceAll
                  
                  'מייצא הטקסט הראשי למסמך נפרד
                      Selection.WholeStory
                      Selection.Copy
                      Documents.Add DocumentType:=wdNewBlankDocument
                      Selection.PasteAndFormat (wdUseDestinationStylesRecovery)
                      ActiveDocument.Save
                      ActiveDocument.SaveAs2 FileName:="טקסט ראשי.docx", FileFormat:= _
                          wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
                          :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
                          :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
                          SaveAsAOCELetter:=False, CompatibilityMode:=15
                      ActiveWindow.Close
                      ActiveWindow.Close
                  End Sub
                  
                  P מנותק
                  P מנותק
                  pcinfogmach
                  מדריכים
                  כתב ב נערך לאחרונה על ידי
                  #11

                  @חוות-דעת כתב בשינוי בין הקלטת מאקרו לבין ביצועה:

                  ואשמח מאד אם מישהו יוכל להוסיף ולשדרג אותו בכמה דברים:

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

                  גמ"ח עזרה וייעוץ בנושאי מחשבים

                  ח תגובה 1 תגובה אחרונה
                  1
                  • P pcinfogmach

                    @חוות-דעת כתב בשינוי בין הקלטת מאקרו לבין ביצועה:

                    ואשמח מאד אם מישהו יוכל להוסיף ולשדרג אותו בכמה דברים:

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

                    ח מנותק
                    ח מנותק
                    חוות דעת
                    כתב ב נערך לאחרונה על ידי
                    #12

                    @pcinfogmach כתב בשינוי בין הקלטת מאקרו לבין ביצועה:

                    @חוות-דעת כתב בשינוי בין הקלטת מאקרו לבין ביצועה:

                    ואשמח מאד אם מישהו יוכל להוסיף ולשדרג אותו בכמה דברים:

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

                    מי זה, ומה זה?

                    P תגובה 1 תגובה אחרונה
                    0
                    • ח חוות דעת

                      @pcinfogmach כתב בשינוי בין הקלטת מאקרו לבין ביצועה:

                      @חוות-דעת כתב בשינוי בין הקלטת מאקרו לבין ביצועה:

                      ואשמח מאד אם מישהו יוכל להוסיף ולשדרג אותו בכמה דברים:

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

                      מי זה, ומה זה?

                      P מנותק
                      P מנותק
                      pcinfogmach
                      מדריכים
                      כתב ב נערך לאחרונה על ידי pcinfogmach
                      #13

                      @חוות-דעת
                      https://chat.openai.com
                      בנטפרי עובד רק בדפדפן פיירפוקס

                      גמ"ח עזרה וייעוץ בנושאי מחשבים

                      ח תגובה 1 תגובה אחרונה
                      1
                      • P pcinfogmach

                        @חוות-דעת
                        https://chat.openai.com
                        בנטפרי עובד רק בדפדפן פיירפוקס

                        ח מנותק
                        ח מנותק
                        חוות דעת
                        כתב ב נערך לאחרונה על ידי
                        #14

                        @pcinfogmach כתב בשינוי בין הקלטת מאקרו לבין ביצועה:

                        @חוות-דעת
                        https://chat.openai.com
                        בנטפרי עובד רק בדפדפן פיירפוקס

                        אין לי סמס. אפשר להירשם רק עם זה.

                        P תגובה 1 תגובה אחרונה
                        0
                        • ח חוות דעת

                          @pcinfogmach כתב בשינוי בין הקלטת מאקרו לבין ביצועה:

                          @חוות-דעת
                          https://chat.openai.com
                          בנטפרי עובד רק בדפדפן פיירפוקס

                          אין לי סמס. אפשר להירשם רק עם זה.

                          P מנותק
                          P מנותק
                          pcinfogmach
                          מדריכים
                          כתב ב נערך לאחרונה על ידי
                          #15

                          @חוות-דעת אולי זה
                          https://agentgpt.reworkd.ai/

                          גמ"ח עזרה וייעוץ בנושאי מחשבים

                          ח תגובה 1 תגובה אחרונה
                          1
                          • P pcinfogmach

                            @חוות-דעת אולי זה
                            https://agentgpt.reworkd.ai/

                            ח מנותק
                            ח מנותק
                            חוות דעת
                            כתב ב נערך לאחרונה על ידי
                            #16

                            @pcinfogmach כתב בשינוי בין הקלטת מאקרו לבין ביצועה:

                            @חוות-דעת אולי זה
                            https://agentgpt.reworkd.ai/

                            תודה.
                            אבל לא שווה לי הזמן שאני הולך לבזבז באתר הזה עד שאני יראה התוצאה...
                            ידנית זה ילך כבר יותר מהר...

                            תגובה 1 תגובה אחרונה
                            1
                            • ח חוות דעת

                              @pcinfogmach כתב בשינוי בין הקלטת מאקרו לבין ביצועה:

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

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

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

                              עריכה:

                              אני מעתיק לכם כאן הקוד. ואשמח מאד אם מישהו יוכל להוסיף ולשדרג אותו בכמה דברים:

                              1. כעת, בסוף כל התהליך נשארים עם חלון פתוח של שמירת המסמך המקורי. הייתי רוצה שהמאקרו 'יכריח' לסגור הקובץ המקורי בלי שמירה. כי לפני ייצוא הטקסט הראשי נעשים בו כל מיני שינויים של הוספות סימונים לקישורים של ההערות, ואח"כ אני מוחק את כל ההערות מהטקסט כדי שיעבור רק הטקסט ולא ההערות (אני לא רוצה להעביר בצורה של טקסט נקי, כי כך אני יאבד את כל ההדגשים שבטקסט. לכן אני לא רוצה לשמור אותו במתכונת הזו, רק כמו שהיתה לפני התהליך.
                              2. אני רוצה לשמור את הכל הטקסטים המייוצאים כפורמט RTF ולא קובץ וורד רגיל.
                              3. הייתי רוצה שהטקסטים המיוצאים יישמרו באופן אוטומטי בשם הערות שוליים\הערות סיום\וטקסט ראשי באותה תיקיה של הקובץ המקורי. כך שצריכים רק להפעיל המאקרו, והכל מסתדר לבד בלי נגיעת יד.
                              Sub פירוק_טקסטים_עם_סימונים_לעימוד()
                              
                              ' מייצא כל ההערות שוליים והערות סיום והטקסט הראשי למסמך נפרד
                              'מכניס קודים במקום הערות שוליים וסיום לצורך עימוד עתידי בתוכנה אחרת
                              
                              ' שומר עותק גיבוי למקרה של טעויות
                              '
                                  Selection.WholeStory
                                  Selection.Copy
                                  Documents.Add DocumentType:=wdNewBlankDocument
                                  Selection.PasteAndFormat (wdUseDestinationStylesRecovery)
                                  ActiveDocument.SaveAs2 FileName:="שמירת עותק גיבוי.docx", FileFormat:= _
                                      wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
                                      :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
                                      :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
                                      SaveAsAOCELetter:=False, CompatibilityMode:=15
                                  ActiveDocument.Save
                                  ActiveWindow.Close
                                  Selection.MoveLeft Unit:=wdCharacter, Count:=1
                              
                              'מכניס סימונים במקום הערות שוליים והערות סיום
                                  Selection.Find.ClearFormatting
                                  Selection.Find.Replacement.ClearFormatting
                                  With Selection.Find
                                      .Text = "^f"
                                      .Replacement.Text = "*^&"
                                      .Forward = True
                                      .Wrap = wdFindContinue
                                  End With
                                  Selection.Find.Execute Replace:=wdReplaceAll
                                  Selection.Find.ClearFormatting
                                  Selection.Find.Replacement.ClearFormatting
                                  With Selection.Find
                                      .Text = "^e"
                                      .Replacement.Text = "%^&"
                                      .Forward = True
                                      .Wrap = wdFindContinue
                                  End With
                                  Selection.Find.Execute Replace:=wdReplaceAll
                              
                              'מייצא הערות שוליים
                                  ActiveWindow.View.SeekView = wdSeekFootnotes
                                  Selection.WholeStory
                                  Selection.Copy
                                  Documents.Add DocumentType:=wdNewBlankDocument
                                  Selection.PasteAndFormat (wdUseDestinationStylesRecovery)
                              
                              'מכניס סימונים במקום מספור
                                  Selection.Find.ClearFormatting
                                  With Selection.Find.Font
                                      .Superscript = True
                                      .Subscript = False
                                  End With
                                  Selection.Find.Replacement.ClearFormatting
                                  With Selection.Find
                                      .Text = ""
                                      .Replacement.Text = "*"
                                      .Forward = True
                                      .Wrap = wdFindContinue
                                      .Format = True
                                  End With
                                  Selection.Find.Execute Replace:=wdReplaceAll
                                  
                                  ActiveDocument.Save
                                  ActiveDocument.SaveAs2 FileName:="הערות סיום.docx", FileFormat:= _
                                      wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
                                      :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
                                      :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
                                      SaveAsAOCELetter:=False, CompatibilityMode:=15
                                  ActiveWindow.Close
                              
                              'מייצא הערות סיום
                                  ActiveWindow.View.SeekView = wdSeekEndnotes
                                  Selection.WholeStory
                                  Selection.Copy
                                  Documents.Add DocumentType:=wdNewBlankDocument
                                  Selection.PasteAndFormat (wdUseDestinationStylesRecovery)
                              
                              'מכניס סימונים במקום מספור
                                  Selection.Find.ClearFormatting
                                  With Selection.Find.Font
                                      .Superscript = True
                                      .Subscript = False
                                  End With
                                  Selection.Find.Replacement.ClearFormatting
                                  With Selection.Find
                                      .Text = ""
                                      .Replacement.Text = "%"
                                      .Forward = True
                                      .Wrap = wdFindContinue
                                      .Format = True
                                  End With
                                  Selection.Find.Execute Replace:=wdReplaceAll
                                  
                                  ActiveDocument.Save
                                  ActiveDocument.SaveAs2 FileName:="הערות סיום.docx", FileFormat:= _
                                      wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
                                      :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
                                      :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
                                      SaveAsAOCELetter:=False, CompatibilityMode:=15
                                  ActiveWindow.Close
                              
                              'מוחק ההפניות של הערות שוליים וסיום שבתוך הטקסט הראשי
                                  Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=1, Name:=""
                                  Selection.Find.ClearFormatting
                                  With Selection.Find
                                      .Text = "^?"
                                      .Replacement.Text = ""
                                      .Forward = True
                                      .Wrap = wdFindAsk
                                  End With
                                  With Selection.Find
                                      .Text = "^e"
                                      .Replacement.Text = ""
                                      .Forward = True
                                      .Wrap = wdFindContinue
                                  End With
                                  Selection.Find.Execute Replace:=wdReplaceAll
                                  Selection.Find.ClearFormatting
                                  Selection.Find.Replacement.ClearFormatting
                                  With Selection.Find
                                      .Text = "^f"
                                      .Replacement.Text = ""
                                      .Forward = True
                                      .Wrap = wdFindContinue
                                  End With
                                  Selection.Find.Execute Replace:=wdReplaceAll
                              
                              'מייצא הטקסט הראשי למסמך נפרד
                                  Selection.WholeStory
                                  Selection.Copy
                                  Documents.Add DocumentType:=wdNewBlankDocument
                                  Selection.PasteAndFormat (wdUseDestinationStylesRecovery)
                                  ActiveDocument.Save
                                  ActiveDocument.SaveAs2 FileName:="טקסט ראשי.docx", FileFormat:= _
                                      wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
                                      :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
                                      :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
                                      SaveAsAOCELetter:=False, CompatibilityMode:=15
                                  ActiveWindow.Close
                                  ActiveWindow.Close
                              End Sub
                              
                              P מנותק
                              P מנותק
                              pcinfogmach
                              מדריכים
                              כתב ב נערך לאחרונה על ידי pcinfogmach
                              #17

                              @חוות-דעת כתב בשינוי בין הקלטת מאקרו לבין ביצועה:

                              הייתי רוצה שהמאקרו 'יכריח' לסגור הקובץ המקורי בלי שמירה.

                               ActiveDocument.Close SaveChanges:=False
                              

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

                              dim doc as document
                              set doc = activedocument
                              
                              ואז בסוף המאקרו 
                               doc.Close SaveChanges:=False
                              

                              גמ"ח עזרה וייעוץ בנושאי מחשבים

                              ח תגובה 1 תגובה אחרונה
                              2
                              • ח חוות דעת

                                @pcinfogmach כתב בשינוי בין הקלטת מאקרו לבין ביצועה:

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

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

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

                                עריכה:

                                אני מעתיק לכם כאן הקוד. ואשמח מאד אם מישהו יוכל להוסיף ולשדרג אותו בכמה דברים:

                                1. כעת, בסוף כל התהליך נשארים עם חלון פתוח של שמירת המסמך המקורי. הייתי רוצה שהמאקרו 'יכריח' לסגור הקובץ המקורי בלי שמירה. כי לפני ייצוא הטקסט הראשי נעשים בו כל מיני שינויים של הוספות סימונים לקישורים של ההערות, ואח"כ אני מוחק את כל ההערות מהטקסט כדי שיעבור רק הטקסט ולא ההערות (אני לא רוצה להעביר בצורה של טקסט נקי, כי כך אני יאבד את כל ההדגשים שבטקסט. לכן אני לא רוצה לשמור אותו במתכונת הזו, רק כמו שהיתה לפני התהליך.
                                2. אני רוצה לשמור את הכל הטקסטים המייוצאים כפורמט RTF ולא קובץ וורד רגיל.
                                3. הייתי רוצה שהטקסטים המיוצאים יישמרו באופן אוטומטי בשם הערות שוליים\הערות סיום\וטקסט ראשי באותה תיקיה של הקובץ המקורי. כך שצריכים רק להפעיל המאקרו, והכל מסתדר לבד בלי נגיעת יד.
                                Sub פירוק_טקסטים_עם_סימונים_לעימוד()
                                
                                ' מייצא כל ההערות שוליים והערות סיום והטקסט הראשי למסמך נפרד
                                'מכניס קודים במקום הערות שוליים וסיום לצורך עימוד עתידי בתוכנה אחרת
                                
                                ' שומר עותק גיבוי למקרה של טעויות
                                '
                                    Selection.WholeStory
                                    Selection.Copy
                                    Documents.Add DocumentType:=wdNewBlankDocument
                                    Selection.PasteAndFormat (wdUseDestinationStylesRecovery)
                                    ActiveDocument.SaveAs2 FileName:="שמירת עותק גיבוי.docx", FileFormat:= _
                                        wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
                                        :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
                                        :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
                                        SaveAsAOCELetter:=False, CompatibilityMode:=15
                                    ActiveDocument.Save
                                    ActiveWindow.Close
                                    Selection.MoveLeft Unit:=wdCharacter, Count:=1
                                
                                'מכניס סימונים במקום הערות שוליים והערות סיום
                                    Selection.Find.ClearFormatting
                                    Selection.Find.Replacement.ClearFormatting
                                    With Selection.Find
                                        .Text = "^f"
                                        .Replacement.Text = "*^&"
                                        .Forward = True
                                        .Wrap = wdFindContinue
                                    End With
                                    Selection.Find.Execute Replace:=wdReplaceAll
                                    Selection.Find.ClearFormatting
                                    Selection.Find.Replacement.ClearFormatting
                                    With Selection.Find
                                        .Text = "^e"
                                        .Replacement.Text = "%^&"
                                        .Forward = True
                                        .Wrap = wdFindContinue
                                    End With
                                    Selection.Find.Execute Replace:=wdReplaceAll
                                
                                'מייצא הערות שוליים
                                    ActiveWindow.View.SeekView = wdSeekFootnotes
                                    Selection.WholeStory
                                    Selection.Copy
                                    Documents.Add DocumentType:=wdNewBlankDocument
                                    Selection.PasteAndFormat (wdUseDestinationStylesRecovery)
                                
                                'מכניס סימונים במקום מספור
                                    Selection.Find.ClearFormatting
                                    With Selection.Find.Font
                                        .Superscript = True
                                        .Subscript = False
                                    End With
                                    Selection.Find.Replacement.ClearFormatting
                                    With Selection.Find
                                        .Text = ""
                                        .Replacement.Text = "*"
                                        .Forward = True
                                        .Wrap = wdFindContinue
                                        .Format = True
                                    End With
                                    Selection.Find.Execute Replace:=wdReplaceAll
                                    
                                    ActiveDocument.Save
                                    ActiveDocument.SaveAs2 FileName:="הערות סיום.docx", FileFormat:= _
                                        wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
                                        :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
                                        :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
                                        SaveAsAOCELetter:=False, CompatibilityMode:=15
                                    ActiveWindow.Close
                                
                                'מייצא הערות סיום
                                    ActiveWindow.View.SeekView = wdSeekEndnotes
                                    Selection.WholeStory
                                    Selection.Copy
                                    Documents.Add DocumentType:=wdNewBlankDocument
                                    Selection.PasteAndFormat (wdUseDestinationStylesRecovery)
                                
                                'מכניס סימונים במקום מספור
                                    Selection.Find.ClearFormatting
                                    With Selection.Find.Font
                                        .Superscript = True
                                        .Subscript = False
                                    End With
                                    Selection.Find.Replacement.ClearFormatting
                                    With Selection.Find
                                        .Text = ""
                                        .Replacement.Text = "%"
                                        .Forward = True
                                        .Wrap = wdFindContinue
                                        .Format = True
                                    End With
                                    Selection.Find.Execute Replace:=wdReplaceAll
                                    
                                    ActiveDocument.Save
                                    ActiveDocument.SaveAs2 FileName:="הערות סיום.docx", FileFormat:= _
                                        wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
                                        :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
                                        :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
                                        SaveAsAOCELetter:=False, CompatibilityMode:=15
                                    ActiveWindow.Close
                                
                                'מוחק ההפניות של הערות שוליים וסיום שבתוך הטקסט הראשי
                                    Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=1, Name:=""
                                    Selection.Find.ClearFormatting
                                    With Selection.Find
                                        .Text = "^?"
                                        .Replacement.Text = ""
                                        .Forward = True
                                        .Wrap = wdFindAsk
                                    End With
                                    With Selection.Find
                                        .Text = "^e"
                                        .Replacement.Text = ""
                                        .Forward = True
                                        .Wrap = wdFindContinue
                                    End With
                                    Selection.Find.Execute Replace:=wdReplaceAll
                                    Selection.Find.ClearFormatting
                                    Selection.Find.Replacement.ClearFormatting
                                    With Selection.Find
                                        .Text = "^f"
                                        .Replacement.Text = ""
                                        .Forward = True
                                        .Wrap = wdFindContinue
                                    End With
                                    Selection.Find.Execute Replace:=wdReplaceAll
                                
                                'מייצא הטקסט הראשי למסמך נפרד
                                    Selection.WholeStory
                                    Selection.Copy
                                    Documents.Add DocumentType:=wdNewBlankDocument
                                    Selection.PasteAndFormat (wdUseDestinationStylesRecovery)
                                    ActiveDocument.Save
                                    ActiveDocument.SaveAs2 FileName:="טקסט ראשי.docx", FileFormat:= _
                                        wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
                                        :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
                                        :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
                                        SaveAsAOCELetter:=False, CompatibilityMode:=15
                                    ActiveWindow.Close
                                    ActiveWindow.Close
                                End Sub
                                
                                P מנותק
                                P מנותק
                                pcinfogmach
                                מדריכים
                                כתב ב נערך לאחרונה על ידי pcinfogmach
                                #18

                                @חוות-דעת כתב בשינוי בין הקלטת מאקרו לבין ביצועה:

                                אני רוצה לשמור את הכל הטקסטים המייוצאים כפורמט RTF ולא קובץ וורד רגיל.

                                פשוט יש לשנות אתהשורה הזו

                                 ActiveDocument.SaveAs2 FileName:="טקסט ראשי.docx", FileFormat:= _
                                

                                ל

                                 ActiveDocument.SaveAs2 FileName:="טקסט ראשי.rtf", FileFormat:= _
                                

                                גמ"ח עזרה וייעוץ בנושאי מחשבים

                                תגובה 1 תגובה אחרונה
                                2
                                • ח חוות דעת

                                  @pcinfogmach כתב בשינוי בין הקלטת מאקרו לבין ביצועה:

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

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

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

                                  עריכה:

                                  אני מעתיק לכם כאן הקוד. ואשמח מאד אם מישהו יוכל להוסיף ולשדרג אותו בכמה דברים:

                                  1. כעת, בסוף כל התהליך נשארים עם חלון פתוח של שמירת המסמך המקורי. הייתי רוצה שהמאקרו 'יכריח' לסגור הקובץ המקורי בלי שמירה. כי לפני ייצוא הטקסט הראשי נעשים בו כל מיני שינויים של הוספות סימונים לקישורים של ההערות, ואח"כ אני מוחק את כל ההערות מהטקסט כדי שיעבור רק הטקסט ולא ההערות (אני לא רוצה להעביר בצורה של טקסט נקי, כי כך אני יאבד את כל ההדגשים שבטקסט. לכן אני לא רוצה לשמור אותו במתכונת הזו, רק כמו שהיתה לפני התהליך.
                                  2. אני רוצה לשמור את הכל הטקסטים המייוצאים כפורמט RTF ולא קובץ וורד רגיל.
                                  3. הייתי רוצה שהטקסטים המיוצאים יישמרו באופן אוטומטי בשם הערות שוליים\הערות סיום\וטקסט ראשי באותה תיקיה של הקובץ המקורי. כך שצריכים רק להפעיל המאקרו, והכל מסתדר לבד בלי נגיעת יד.
                                  Sub פירוק_טקסטים_עם_סימונים_לעימוד()
                                  
                                  ' מייצא כל ההערות שוליים והערות סיום והטקסט הראשי למסמך נפרד
                                  'מכניס קודים במקום הערות שוליים וסיום לצורך עימוד עתידי בתוכנה אחרת
                                  
                                  ' שומר עותק גיבוי למקרה של טעויות
                                  '
                                      Selection.WholeStory
                                      Selection.Copy
                                      Documents.Add DocumentType:=wdNewBlankDocument
                                      Selection.PasteAndFormat (wdUseDestinationStylesRecovery)
                                      ActiveDocument.SaveAs2 FileName:="שמירת עותק גיבוי.docx", FileFormat:= _
                                          wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
                                          :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
                                          :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
                                          SaveAsAOCELetter:=False, CompatibilityMode:=15
                                      ActiveDocument.Save
                                      ActiveWindow.Close
                                      Selection.MoveLeft Unit:=wdCharacter, Count:=1
                                  
                                  'מכניס סימונים במקום הערות שוליים והערות סיום
                                      Selection.Find.ClearFormatting
                                      Selection.Find.Replacement.ClearFormatting
                                      With Selection.Find
                                          .Text = "^f"
                                          .Replacement.Text = "*^&"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                      End With
                                      Selection.Find.Execute Replace:=wdReplaceAll
                                      Selection.Find.ClearFormatting
                                      Selection.Find.Replacement.ClearFormatting
                                      With Selection.Find
                                          .Text = "^e"
                                          .Replacement.Text = "%^&"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                      End With
                                      Selection.Find.Execute Replace:=wdReplaceAll
                                  
                                  'מייצא הערות שוליים
                                      ActiveWindow.View.SeekView = wdSeekFootnotes
                                      Selection.WholeStory
                                      Selection.Copy
                                      Documents.Add DocumentType:=wdNewBlankDocument
                                      Selection.PasteAndFormat (wdUseDestinationStylesRecovery)
                                  
                                  'מכניס סימונים במקום מספור
                                      Selection.Find.ClearFormatting
                                      With Selection.Find.Font
                                          .Superscript = True
                                          .Subscript = False
                                      End With
                                      Selection.Find.Replacement.ClearFormatting
                                      With Selection.Find
                                          .Text = ""
                                          .Replacement.Text = "*"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = True
                                      End With
                                      Selection.Find.Execute Replace:=wdReplaceAll
                                      
                                      ActiveDocument.Save
                                      ActiveDocument.SaveAs2 FileName:="הערות סיום.docx", FileFormat:= _
                                          wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
                                          :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
                                          :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
                                          SaveAsAOCELetter:=False, CompatibilityMode:=15
                                      ActiveWindow.Close
                                  
                                  'מייצא הערות סיום
                                      ActiveWindow.View.SeekView = wdSeekEndnotes
                                      Selection.WholeStory
                                      Selection.Copy
                                      Documents.Add DocumentType:=wdNewBlankDocument
                                      Selection.PasteAndFormat (wdUseDestinationStylesRecovery)
                                  
                                  'מכניס סימונים במקום מספור
                                      Selection.Find.ClearFormatting
                                      With Selection.Find.Font
                                          .Superscript = True
                                          .Subscript = False
                                      End With
                                      Selection.Find.Replacement.ClearFormatting
                                      With Selection.Find
                                          .Text = ""
                                          .Replacement.Text = "%"
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                          .Format = True
                                      End With
                                      Selection.Find.Execute Replace:=wdReplaceAll
                                      
                                      ActiveDocument.Save
                                      ActiveDocument.SaveAs2 FileName:="הערות סיום.docx", FileFormat:= _
                                          wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
                                          :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
                                          :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
                                          SaveAsAOCELetter:=False, CompatibilityMode:=15
                                      ActiveWindow.Close
                                  
                                  'מוחק ההפניות של הערות שוליים וסיום שבתוך הטקסט הראשי
                                      Selection.GoTo What:=wdGoToLine, Which:=wdGoToFirst, Count:=1, Name:=""
                                      Selection.Find.ClearFormatting
                                      With Selection.Find
                                          .Text = "^?"
                                          .Replacement.Text = ""
                                          .Forward = True
                                          .Wrap = wdFindAsk
                                      End With
                                      With Selection.Find
                                          .Text = "^e"
                                          .Replacement.Text = ""
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                      End With
                                      Selection.Find.Execute Replace:=wdReplaceAll
                                      Selection.Find.ClearFormatting
                                      Selection.Find.Replacement.ClearFormatting
                                      With Selection.Find
                                          .Text = "^f"
                                          .Replacement.Text = ""
                                          .Forward = True
                                          .Wrap = wdFindContinue
                                      End With
                                      Selection.Find.Execute Replace:=wdReplaceAll
                                  
                                  'מייצא הטקסט הראשי למסמך נפרד
                                      Selection.WholeStory
                                      Selection.Copy
                                      Documents.Add DocumentType:=wdNewBlankDocument
                                      Selection.PasteAndFormat (wdUseDestinationStylesRecovery)
                                      ActiveDocument.Save
                                      ActiveDocument.SaveAs2 FileName:="טקסט ראשי.docx", FileFormat:= _
                                          wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
                                          :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
                                          :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
                                          SaveAsAOCELetter:=False, CompatibilityMode:=15
                                      ActiveWindow.Close
                                      ActiveWindow.Close
                                  End Sub
                                  
                                  P מנותק
                                  P מנותק
                                  pcinfogmach
                                  מדריכים
                                  כתב ב נערך לאחרונה על ידי pcinfogmach
                                  #19

                                  @חוות-דעת כתב בשינוי בין הקלטת מאקרו לבין ביצועה:

                                  הייתי רוצה שהטקסטים המיוצאים יישמרו באופן אוטומטי בשם הערות שוליים\הערות סיום\וטקסט ראשי באותה תיקיה של הקובץ המקורי.

                                  בתחילת המאקרו הכנס

                                  dim docpath as string
                                  docpath =  ActiveDocument.path
                                  

                                  ואז בסוף
                                  לכתוב

                                      Dim newDoc As Document
                                      Set newDoc = Documents.Add
                                  
                                  'פה יש להכניס את הקוד להדבקת ההערות שוליים
                                  
                                      newDoc.SaveAs2 docPath & "\" & "הערות שוליים.rtf"
                                  
                                      newDoc.Close
                                  

                                  גמ"ח עזרה וייעוץ בנושאי מחשבים

                                  תגובה 1 תגובה אחרונה
                                  2
                                  • P pcinfogmach

                                    @חוות-דעת כתב בשינוי בין הקלטת מאקרו לבין ביצועה:

                                    הייתי רוצה שהמאקרו 'יכריח' לסגור הקובץ המקורי בלי שמירה.

                                     ActiveDocument.Close SaveChanges:=False
                                    

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

                                    dim doc as document
                                    set doc = activedocument
                                    
                                    ואז בסוף המאקרו 
                                     doc.Close SaveChanges:=False
                                    
                                    ח מנותק
                                    ח מנותק
                                    חוות דעת
                                    כתב ב נערך לאחרונה על ידי
                                    #20

                                    @pcinfogmach כתב בשינוי בין הקלטת מאקרו לבין ביצועה:

                                    @חוות-דעת כתב בשינוי בין הקלטת מאקרו לבין ביצועה:

                                    הייתי רוצה שהמאקרו 'יכריח' לסגור הקובץ המקורי בלי שמירה.

                                     ActiveDocument.Close SaveChanges:=False
                                    

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

                                    dim doc as document
                                    set doc = activedocument
                                    
                                    ואז בסוף המאקרו 
                                     doc.Close SaveChanges:=False
                                    

                                    לא הבנתי ההבדל שבין שני המהלכים.

                                    וייש"כ על כל הקודים

                                    P תגובה 1 תגובה אחרונה
                                    0
                                    • ח חוות דעת

                                      @pcinfogmach כתב בשינוי בין הקלטת מאקרו לבין ביצועה:

                                      @חוות-דעת כתב בשינוי בין הקלטת מאקרו לבין ביצועה:

                                      הייתי רוצה שהמאקרו 'יכריח' לסגור הקובץ המקורי בלי שמירה.

                                       ActiveDocument.Close SaveChanges:=False
                                      

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

                                      dim doc as document
                                      set doc = activedocument
                                      
                                      ואז בסוף המאקרו 
                                       doc.Close SaveChanges:=False
                                      

                                      לא הבנתי ההבדל שבין שני המהלכים.

                                      וייש"כ על כל הקודים

                                      P מנותק
                                      P מנותק
                                      pcinfogmach
                                      מדריכים
                                      כתב ב נערך לאחרונה על ידי pcinfogmach
                                      #21

                                      שמחתי לעזור

                                      @חוות-דעת כתב בשינוי בין הקלטת מאקרו לבין ביצועה:

                                      לא הבנתי ההבדל שבין שני המהלכים.

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

                                      גמ"ח עזרה וייעוץ בנושאי מחשבים

                                      ח 4 תגובות תגובה אחרונה
                                      1
                                      • P pcinfogmach

                                        שמחתי לעזור

                                        @חוות-דעת כתב בשינוי בין הקלטת מאקרו לבין ביצועה:

                                        לא הבנתי ההבדל שבין שני המהלכים.

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

                                        ח מנותק
                                        ח מנותק
                                        חוות דעת
                                        כתב ב נערך לאחרונה על ידי
                                        #22

                                        @pcinfogmach כל המאקרו הסתבך לי... לא רק הקודים שנתת אתה, אלא גם הקוד המקורי שאני הקלטתי.

                                        בקוד שאתה נתת לי עלה לי השגיאה הבאה:
                                        צילום מסך 2023-05-22 081817.jpg

                                        וכשרציתי לחזור לנוסחה הקודמת ג"כ קבלתי שגיאה פתאום, (לא ממש 'קוד המקורי', כי אני כן הוספתי את השורה של סגירת הקובץ בסוף בלי שמירה, וגם שיניתי את הסוג הקובץ ל-rtf, אבל לא נראה לי שזה היתה מקור השגיאה):
                                        שגיאה קוד שלי.jpg

                                        תגובה 1 תגובה אחרונה
                                        0
                                        • P pcinfogmach

                                          שמחתי לעזור

                                          @חוות-דעת כתב בשינוי בין הקלטת מאקרו לבין ביצועה:

                                          לא הבנתי ההבדל שבין שני המהלכים.

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

                                          ח מנותק
                                          ח מנותק
                                          חוות דעת
                                          כתב ב נערך לאחרונה על ידי
                                          #23

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

                                          נ.ב. הקוד שנתת לי, שיישמר הנתיב המקורי, עובד!! (כאמור, בקובץ הגיבוי שנוצר).

                                          תודה על העזרה הנפלאה!

                                          תגובה 1 תגובה אחרונה
                                          0

                                          • התחברות

                                          • אין לך חשבון עדיין? הרשמה

                                          • התחברו או הירשמו כדי לחפש.
                                          • פוסט ראשון
                                            פוסט אחרון
                                          0
                                          • חוקי הפורום
                                          • פופולרי
                                          • לא נפתר
                                          • משתמשים
                                          • חיפוש גוגל בפורום
                                          • צור קשר