דילוג לתוכן
  • חוקי הפורום
  • לא נפתר
  • משתמשים
  • חיפוש גוגל בפורום
  • צור קשר
עיצובים
  • 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. עזרה | מאקרו - שמירת שם הקובץ לפי המילה הראשונה

עזרה | מאקרו - שמירת שם הקובץ לפי המילה הראשונה

מתוזמן נעוץ נעול הועבר עזרה הדדית - וורד
16 פוסטים 3 כותבים 209 צפיות 4 Watching
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • menajemmendelM menajemmendel

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

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

    לא הבנתי, איך אתה רוצה שיקרא לקובץ החדש?

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

    @menajemmendel כמו המילה הראשונה בקובץ (ברירת מחדל)

    menajemmendelM תגובה 1 תגובה אחרונה
    0
    • א אדיר

      @menajemmendel כמו המילה הראשונה בקובץ (ברירת מחדל)

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

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

      @menajemmendel כמו המילה הראשונה בקובץ (ברירת מחדל)

      איזה קובץ, החדש?

      א תגובה 1 תגובה אחרונה
      0
      • menajemmendelM menajemmendel

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

        @menajemmendel כמו המילה הראשונה בקובץ (ברירת מחדל)

        איזה קובץ, החדש?

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

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

        מ תגובה 1 תגובה אחרונה
        0
        • א אדיר

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

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

          @אדיר תנסה את זה

          Sub פיצול_מסמך()
          '
          ' פיצול_מסמך Macro
          '
          '
              Selection.MoveDown Unit:=wdScreen, Count:=49, Extend:=wdExtend
              Selection.MoveDown Unit:=wdLine, Count:=2, Extend:=wdExtend
              Selection.MoveRight Unit:=wdCharacter, Count:=11, Extend:=wdExtend
              Selection.Cut
              Documents.Add DocumentType:=wdNewBlankDocument
              Selection.PasteAndFormat (wdUseDestinationStylesRecovery)
              ActiveDocument.SaveAs2 FileName:=ActiveDocument.Words(1), FileFormat:= _
                  wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
                  :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
                  :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
                  SaveAsAOCELetter:=False, CompatibilityMode:=15
              ActiveDocument.Save
              Windows("הכל").Activate
          End Sub
          
          menajemmendelM תגובה 1 תגובה אחרונה
          0
          • מ מאקרו

            @אדיר תנסה את זה

            Sub פיצול_מסמך()
            '
            ' פיצול_מסמך Macro
            '
            '
                Selection.MoveDown Unit:=wdScreen, Count:=49, Extend:=wdExtend
                Selection.MoveDown Unit:=wdLine, Count:=2, Extend:=wdExtend
                Selection.MoveRight Unit:=wdCharacter, Count:=11, Extend:=wdExtend
                Selection.Cut
                Documents.Add DocumentType:=wdNewBlankDocument
                Selection.PasteAndFormat (wdUseDestinationStylesRecovery)
                ActiveDocument.SaveAs2 FileName:=ActiveDocument.Words(1), FileFormat:= _
                    wdFormatXMLDocument, LockComments:=False, Password:="", AddToRecentFiles _
                    :=True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts _
                    :=False, SaveNativePictureFormat:=False, SaveFormsData:=False, _
                    SaveAsAOCELetter:=False, CompatibilityMode:=15
                ActiveDocument.Save
                Windows("הכל").Activate
            End Sub
            
            menajemmendelM מנותק
            menajemmendelM מנותק
            menajemmendel
            כתב נערך לאחרונה על ידי
            #9

            @אדיר הקוד שלך יש לו עוד כמה בעיות [גם אחרי התיקון של @מאקרו] הוא בכלל לא יפצל את המסמך עד הסוף, תמיד ירד באופן קבוע 49 פעמים את הגודל של הסמך, ועוד 2 שורות.
            חוץ מזה צריך גם להוסיף את המיקום שאתה רוצה שישמור את הקובץ החדש

            א תגובה 1 תגובה אחרונה
            1
            • menajemmendelM menajemmendel

              @אדיר הקוד שלך יש לו עוד כמה בעיות [גם אחרי התיקון של @מאקרו] הוא בכלל לא יפצל את המסמך עד הסוף, תמיד ירד באופן קבוע 49 פעמים את הגודל של הסמך, ועוד 2 שורות.
              חוץ מזה צריך גם להוסיף את המיקום שאתה רוצה שישמור את הקובץ החדש

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

              @menajemmendel כתב בעזרה | מאקרו - שמירת שם הקובץ לפי המילה הראשונה:

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

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

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

              menajemmendelM 2 תגובות תגובה אחרונה
              0
              • א אדיר

                @menajemmendel כתב בעזרה | מאקרו - שמירת שם הקובץ לפי המילה הראשונה:

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

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

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

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

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

                 Selection.EndKey Unit:=wdStory, Extend:=wdExtend
                
                תגובה 1 תגובה אחרונה
                0
                • א אדיר

                  @menajemmendel כתב בעזרה | מאקרו - שמירת שם הקובץ לפי המילה הראשונה:

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

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

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

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

                  @אדיר אתה רוצה מאקרו שיחלק קובץ להרבה מסמכים לפי סגנונות
                  , יש לי, פרסמתי בעבר
                  https://mitmachim.top/topic/67018/עזרה-תוכנה-לפיצול-קבצי-וורד-גדולים

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

                  א תגובה 1 תגובה אחרונה
                  0
                  • menajemmendelM menajemmendel

                    @אדיר אתה רוצה מאקרו שיחלק קובץ להרבה מסמכים לפי סגנונות
                    , יש לי, פרסמתי בעבר
                    https://mitmachim.top/topic/67018/עזרה-תוכנה-לפיצול-קבצי-וורד-גדולים

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

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

                    @menajemmendel כתב בעזרה | מאקרו - שמירת שם הקובץ לפי המילה הראשונה:

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

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

                    menajemmendelM תגובה 1 תגובה אחרונה
                    0
                    • א אדיר

                      @menajemmendel כתב בעזרה | מאקרו - שמירת שם הקובץ לפי המילה הראשונה:

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

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

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

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

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

                      א תגובה 1 תגובה אחרונה
                      0
                      • menajemmendelM menajemmendel

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

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

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

                        @menajemmendel כתב בעזרה | מאקרו - שמירת שם הקובץ לפי המילה הראשונה:

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

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

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

                        אודה לקוד, ושכרך כפול מן השמים.

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

                          @menajemmendel כתב בעזרה | מאקרו - שמירת שם הקובץ לפי המילה הראשונה:

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

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

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

                          אודה לקוד, ושכרך כפול מן השמים.

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

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

                          Sub פיצול_מסמך()
                              Selection.EndKey Unit:=wdStory, Extend:=wdExtend
                              Selection.Cut
                              Documents.Add DocumentType:=wdNewBlankDocument
                              Selection.PasteAndFormat (wdUseDestinationStylesRecovery)
                              ActiveDocument.Save
                              Windows("הכל").Activate
                          End Sub
                          
                          תגובה 1 תגובה אחרונה
                          0

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


                          • התחברות

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

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