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

שיתוף | "מתעדכן" אוסף מאקרו לוורד - אינדקס מאקרו שימושי + הוראות חשובות.

מתוזמן נעוץ נעול הועבר עזרה הדדית - וורד
300 פוסטים 31 כותבים 24.8k צפיות 32 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • menajemmendelM menajemmendel

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

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

    @menajemmendel לכאורה זה תלוי בגרסאות של אופיס

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

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

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

      @menajemmendel

      5d599df9-5de1-4c55-baff-dedf464aba85-image.png

      951ff069-2c60-43ab-88ed-1a13f99389e1-image.png

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

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

        @menajemmendel

        5d599df9-5de1-4c55-baff-dedf464aba85-image.png

        951ff069-2c60-43ab-88ed-1a13f99389e1-image.png

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

        @pcinfogmach
        נראה לי שהטעות שלך הוא שעשית את הטאב בסוף השורה הראשונה, ואתה צריך לעשות אותו בתחילה השורה השניה,
        תנסה ותאמר לי

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

          @pcinfogmach
          נראה לי שהטעות שלך הוא שעשית את הטאב בסוף השורה הראשונה, ואתה צריך לעשות אותו בתחילה השורה השניה,
          תנסה ותאמר לי

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

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

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

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

            @pcinfogmach
            נראה לי שהטעות שלך הוא שעשית את הטאב בסוף השורה הראשונה, ואתה צריך לעשות אותו בתחילה השורה השניה,
            תנסה ותאמר לי

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

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

            מה אתם אומרים על כל זה?

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

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

              @pcinfogmach תודה רבה על הקוד, אבל שאלה קטנה יש לי, למה צריך את המעבר שורה ידני, אותו דבר אפשר לעשות בלי המעבר שורה, בלי אנטר ובלי שום דבר, פשוט טאב ממורכז כמו שעשית
              0d04b8c6-a298-4d8f-b590-3765b7ad4b4d-image.png

              תודה

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

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

              @pcinfogmach תודה רבה על הקוד, אבל שאלה קטנה יש לי, למה צריך את המעבר שורה ידני, אותו דבר אפשר לעשות בלי המעבר שורה, בלי אנטר ובלי שום דבר, פשוט טאב ממורכז כמו שעשית
              0d04b8c6-a298-4d8f-b590-3765b7ad4b4d-image.png

              תודה

              מצו"ב הקוד המעודכן לפי ההצעה שלך 🙂

              Option Explicit
              
              Sub מירכוז_שורה_אחרונה_בכל_הפסקאות_במסמך()
              '
              '
              '
              Dim response As Integer
              response = MsgBox("שים לב, פקודה זו מהווה אילתור בלבד ומיועדת לשימוש לפני הדפסה." _
              & vbNewLine & vbNewLine & "במקרה שערכתם שינויים במסמך תוכלו להריץ שוב פקודה זו" & vbNewLine & "בכדי לתקן את העיצוב.", _
                      vbInformation + vbOKCancel + vbMsgBoxRight + vbMsgBoxRtlReading, "מירכוז שורה אחרונה בפיסקה")
              If response = vbCancel Then Exit Sub
              
                  Dim exclude2Lines As Boolean
                  exclude2Lines = MsgBox("האם ברצונך לכלול פיסקאות עם 2 שורות?", vbQuestion + vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading, "מרכוז שורה אחרונה") = vbNo
              
              
              Call מחיקת_מרכוז_שורה_אחרונה_מכל_המסמך
              
                  Dim para As Paragraph
                  Dim middlePosition As Double
               
                  For Each para In ActiveDocument.Paragraphs
                  para.Range.Select
                  
              'exclusions
                  If para.Range.ComputeStatistics(wdStatisticLines) > 1 Then
                  If para.Range.ParagraphFormat.Alignment <> wdAlignParagraphCenter Then
                  If Not exclude2Lines Or para.Range.ComputeStatistics(wdStatisticLines) <> 2 Then
                 
              ' Move the cursor to end of paragraph.
               Selection.MoveStartUntil vbCrLf, wdForward
                     
                'add costume tabstop
                  middlePosition = Selection.PageSetup.TextColumns(Dialogs(wdDialogFormatColumns).ColumnNo).Width / 2
                    
                    With Selection.ParagraphFormat.TabStops
                      .ClearAll
                      .Add Position:=middlePosition, _
                          Alignment:=wdAlignTabCenter
                         
                      End With
                      
               ' Move the cursor to the beginning of the last line in the paragraph.
                  Selection.Move wdLine, -1
                  
              ' Check if the line already starts with a tab.
              If InStr(1, Selection.Text, vbTab) <> 1 Then
              ' Add a tab to the beginning of the line.
                  Selection.TypeText vbTab
                  End If
                  End If
                  End If
                  End If
                  Next
              
              End Sub
              
              
              Sub מירכוז_שורה_אחרונה_בפיסקאות_שנבחרו()
              '
              '
              '
              
              Dim response As Integer
              response = MsgBox("שים לב, פקודה זו מהווה אילתור בלבד ומיועדת לשימוש לפני הדפסה." _
              & vbNewLine & vbNewLine & "במקרה שערכתם שינויים במסמך תוכלו להריץ שוב פקודה זו" & vbNewLine & "בכדי לתקן את העיצוב.", _
                      vbInformation + vbOKCancel + vbMsgBoxRight + vbMsgBoxRtlReading, "מירכוז שורה אחרונה בפיסקה")
              If response = vbCancel Then Exit Sub
              
                  Dim slctd As Range
                  Set slctd = Selection.Range
              
                  Dim exclude2Lines As Boolean
                  exclude2Lines = MsgBox("האם ברצונך לכלול פיסקאות עם 2 שורות?", vbQuestion + vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading, "מרכוז שורה אחרונה") = vbNo
              
              Call הסרת_מרכוז_שורה_אחרונה_בפיסקאות_שנבחרו
              
                  Dim para As Paragraph
                  Dim middlePosition As Double
                
                  For Each para In slctd.Paragraphs
                  para.Range.Select
                  
              'exclusions
                  If para.Range.ComputeStatistics(wdStatisticLines) > 1 Then
                  If para.Range.ParagraphFormat.Alignment <> wdAlignParagraphCenter Then
                  If Not exclude2Lines Or para.Range.ComputeStatistics(wdStatisticLines) <> 2 Then
                 
              ' Move the cursor to end of paragraph.
               Selection.MoveStartUntil vbCrLf, wdForward
                     
                'add costume tabstop
                  middlePosition = Selection.PageSetup.TextColumns(Dialogs(wdDialogFormatColumns).ColumnNo).Width / 2
                    
                    With Selection.ParagraphFormat.TabStops
                      .ClearAll
                      .Add Position:=middlePosition, _
                          Alignment:=wdAlignTabCenter
                         
                      End With
                      
               ' Move the cursor to the beginning of the last line in the paragraph.
                  Selection.Move wdLine, -1
                  
              ' Check if the line already starts with a tab.
              If InStr(1, Selection.Text, vbTab) <> 1 Then
              ' Add a tab to the beginning of the line.
                  Selection.TypeText vbTab
                  End If
                  End If
                  End If
                  End If
                  Next
              
              
              End Sub
              
              Sub מחיקת_מרכוז_שורה_אחרונה_מכל_המסמך()
              
                  Dim para As Paragraph
                  Dim middlePosition As Double
              
                  For Each para In ActiveDocument.Paragraphs
                  
                  If para.Range.ComputeStatistics(wdStatisticLines) > 1 Then
                  If para.Range.ParagraphFormat.Alignment <> wdAlignParagraphCenter Then
                  para.Range.Select
              
              ' Move the cursor to the beginning of the last line in the paragraph.
                  Selection.MoveStartUntil vbCrLf, wdForward
                  Selection.Move wdLine, -1
                  
              ' Check if the line already starts with a tab.
                 If Not InStr(1, Selection.Text, vbTab) <> 1 Then
              ' delete tab in beginning of the line.
                      Selection.Delete Unit:=wdCharacter, Count:=1
                  End If
                  End If
                  End If
              
                  Next
                  
              End Sub
              
              Sub הסרת_מרכוז_שורה_אחרונה_בפיסקאות_שנבחרו()
              
                  Dim para As Paragraph
                  Dim middlePosition As Double
                  
                  Dim slctd As Range
                  Set slctd = Selection.Range
                  
                  For Each para In slctd.Paragraphs
                  
                  If para.Range.ComputeStatistics(wdStatisticLines) > 1 Then
                  If para.Range.ParagraphFormat.Alignment <> wdAlignParagraphCenter Then
                  para.Range.Select
              
              ' Move the cursor to the beginning of the last line in the paragraph.
                  Selection.MoveStartUntil vbCrLf, wdForward
                  Selection.Move wdLine, -1
                  
              ' Check if the line already starts with a tab.
                 If Not InStr(1, Selection.Text, vbTab) <> 1 Then
              ' delete tab in beginning of the line.
                      Selection.Delete Unit:=wdCharacter, Count:=1
                  End If
                  End If
                  End If
                  Next
                  
              End Sub
              
              
              

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

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

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

                מה אתם אומרים על כל זה?

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

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

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

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

                  @pcinfogmach תודה רבה על הקוד, אבל שאלה קטנה יש לי, למה צריך את המעבר שורה ידני, אותו דבר אפשר לעשות בלי המעבר שורה, בלי אנטר ובלי שום דבר, פשוט טאב ממורכז כמו שעשית
                  0d04b8c6-a298-4d8f-b590-3765b7ad4b4d-image.png

                  תודה

                  מצו"ב הקוד המעודכן לפי ההצעה שלך 🙂

                  Option Explicit
                  
                  Sub מירכוז_שורה_אחרונה_בכל_הפסקאות_במסמך()
                  '
                  '
                  '
                  Dim response As Integer
                  response = MsgBox("שים לב, פקודה זו מהווה אילתור בלבד ומיועדת לשימוש לפני הדפסה." _
                  & vbNewLine & vbNewLine & "במקרה שערכתם שינויים במסמך תוכלו להריץ שוב פקודה זו" & vbNewLine & "בכדי לתקן את העיצוב.", _
                          vbInformation + vbOKCancel + vbMsgBoxRight + vbMsgBoxRtlReading, "מירכוז שורה אחרונה בפיסקה")
                  If response = vbCancel Then Exit Sub
                  
                      Dim exclude2Lines As Boolean
                      exclude2Lines = MsgBox("האם ברצונך לכלול פיסקאות עם 2 שורות?", vbQuestion + vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading, "מרכוז שורה אחרונה") = vbNo
                  
                  
                  Call מחיקת_מרכוז_שורה_אחרונה_מכל_המסמך
                  
                      Dim para As Paragraph
                      Dim middlePosition As Double
                   
                      For Each para In ActiveDocument.Paragraphs
                      para.Range.Select
                      
                  'exclusions
                      If para.Range.ComputeStatistics(wdStatisticLines) > 1 Then
                      If para.Range.ParagraphFormat.Alignment <> wdAlignParagraphCenter Then
                      If Not exclude2Lines Or para.Range.ComputeStatistics(wdStatisticLines) <> 2 Then
                     
                  ' Move the cursor to end of paragraph.
                   Selection.MoveStartUntil vbCrLf, wdForward
                         
                    'add costume tabstop
                      middlePosition = Selection.PageSetup.TextColumns(Dialogs(wdDialogFormatColumns).ColumnNo).Width / 2
                        
                        With Selection.ParagraphFormat.TabStops
                          .ClearAll
                          .Add Position:=middlePosition, _
                              Alignment:=wdAlignTabCenter
                             
                          End With
                          
                   ' Move the cursor to the beginning of the last line in the paragraph.
                      Selection.Move wdLine, -1
                      
                  ' Check if the line already starts with a tab.
                  If InStr(1, Selection.Text, vbTab) <> 1 Then
                  ' Add a tab to the beginning of the line.
                      Selection.TypeText vbTab
                      End If
                      End If
                      End If
                      End If
                      Next
                  
                  End Sub
                  
                  
                  Sub מירכוז_שורה_אחרונה_בפיסקאות_שנבחרו()
                  '
                  '
                  '
                  
                  Dim response As Integer
                  response = MsgBox("שים לב, פקודה זו מהווה אילתור בלבד ומיועדת לשימוש לפני הדפסה." _
                  & vbNewLine & vbNewLine & "במקרה שערכתם שינויים במסמך תוכלו להריץ שוב פקודה זו" & vbNewLine & "בכדי לתקן את העיצוב.", _
                          vbInformation + vbOKCancel + vbMsgBoxRight + vbMsgBoxRtlReading, "מירכוז שורה אחרונה בפיסקה")
                  If response = vbCancel Then Exit Sub
                  
                      Dim slctd As Range
                      Set slctd = Selection.Range
                  
                      Dim exclude2Lines As Boolean
                      exclude2Lines = MsgBox("האם ברצונך לכלול פיסקאות עם 2 שורות?", vbQuestion + vbYesNo + vbMsgBoxRight + vbMsgBoxRtlReading, "מרכוז שורה אחרונה") = vbNo
                  
                  Call הסרת_מרכוז_שורה_אחרונה_בפיסקאות_שנבחרו
                  
                      Dim para As Paragraph
                      Dim middlePosition As Double
                    
                      For Each para In slctd.Paragraphs
                      para.Range.Select
                      
                  'exclusions
                      If para.Range.ComputeStatistics(wdStatisticLines) > 1 Then
                      If para.Range.ParagraphFormat.Alignment <> wdAlignParagraphCenter Then
                      If Not exclude2Lines Or para.Range.ComputeStatistics(wdStatisticLines) <> 2 Then
                     
                  ' Move the cursor to end of paragraph.
                   Selection.MoveStartUntil vbCrLf, wdForward
                         
                    'add costume tabstop
                      middlePosition = Selection.PageSetup.TextColumns(Dialogs(wdDialogFormatColumns).ColumnNo).Width / 2
                        
                        With Selection.ParagraphFormat.TabStops
                          .ClearAll
                          .Add Position:=middlePosition, _
                              Alignment:=wdAlignTabCenter
                             
                          End With
                          
                   ' Move the cursor to the beginning of the last line in the paragraph.
                      Selection.Move wdLine, -1
                      
                  ' Check if the line already starts with a tab.
                  If InStr(1, Selection.Text, vbTab) <> 1 Then
                  ' Add a tab to the beginning of the line.
                      Selection.TypeText vbTab
                      End If
                      End If
                      End If
                      End If
                      Next
                  
                  
                  End Sub
                  
                  Sub מחיקת_מרכוז_שורה_אחרונה_מכל_המסמך()
                  
                      Dim para As Paragraph
                      Dim middlePosition As Double
                  
                      For Each para In ActiveDocument.Paragraphs
                      
                      If para.Range.ComputeStatistics(wdStatisticLines) > 1 Then
                      If para.Range.ParagraphFormat.Alignment <> wdAlignParagraphCenter Then
                      para.Range.Select
                  
                  ' Move the cursor to the beginning of the last line in the paragraph.
                      Selection.MoveStartUntil vbCrLf, wdForward
                      Selection.Move wdLine, -1
                      
                  ' Check if the line already starts with a tab.
                     If Not InStr(1, Selection.Text, vbTab) <> 1 Then
                  ' delete tab in beginning of the line.
                          Selection.Delete Unit:=wdCharacter, Count:=1
                      End If
                      End If
                      End If
                  
                      Next
                      
                  End Sub
                  
                  Sub הסרת_מרכוז_שורה_אחרונה_בפיסקאות_שנבחרו()
                  
                      Dim para As Paragraph
                      Dim middlePosition As Double
                      
                      Dim slctd As Range
                      Set slctd = Selection.Range
                      
                      For Each para In slctd.Paragraphs
                      
                      If para.Range.ComputeStatistics(wdStatisticLines) > 1 Then
                      If para.Range.ParagraphFormat.Alignment <> wdAlignParagraphCenter Then
                      para.Range.Select
                  
                  ' Move the cursor to the beginning of the last line in the paragraph.
                      Selection.MoveStartUntil vbCrLf, wdForward
                      Selection.Move wdLine, -1
                      
                  ' Check if the line already starts with a tab.
                     If Not InStr(1, Selection.Text, vbTab) <> 1 Then
                  ' delete tab in beginning of the line.
                          Selection.Delete Unit:=wdCharacter, Count:=1
                      End If
                      End If
                      End If
                      Next
                      
                  End Sub
                  
                  
                  
                  menajemmendelM מנותק
                  menajemmendelM מנותק
                  menajemmendel
                  כתב ב נערך לאחרונה על ידי
                  #62

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

                  למה יש חלקים בקוד שכתובים בצורה הפוכה (מסורבלת לדעתי) לדגומא החלק הזה:

                  ' Check if the line already starts with a tab.
                     If Not Left(Selection.Text, 1) <> vbTab Then
                  

                  למה לא לכתוב ישר:

                  If Left(Selection.Text, 1)  = vbTab Then
                  

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

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

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

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

                    למה יש חלקים בקוד שכתובים בצורה הפוכה (מסורבלת לדעתי) לדגומא החלק הזה:

                    ' Check if the line already starts with a tab.
                       If Not Left(Selection.Text, 1) <> vbTab Then
                    

                    למה לא לכתוב ישר:

                    If Left(Selection.Text, 1)  = vbTab Then
                    

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

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

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

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

                    (אגב עידכנתי את הקוד מעט מסיבות שונות עיין שוב בפוסט הקודם בשינויים שעשיתי שם)

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

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

                      בס"ד
                      פוסט מסודר עבור העלאת מאקרואים לוורד


                      הנחיות עבור עורכי פוסטים

                      כל מי שיכול להעלות מאקרואים לתועלת הציבור נא להעלות כאן
                      תגובות לנושא זה יש לכתוב כאן בשרשור התגובות כמו"כ ניתן למצוא הוראות נוספות להכנת מאקרו בשרשור התגובות.

                      שים לב! שרשור זה נועד עבור המשתמש הפשוט לכן אבקש מכולם נא לא להעלות כאן קודים אלא רק מאקרו מוכן בתוך תבנית - כדי שכולם יוכלו להשתמש בהם בקלות. כפי שיפורט להלן, מאוד קל להתקין בוורד מאקרו מוכן באופן זה.
                      להוראות כיצד להכין תבנית עם מאקרו לחץ כאן
                      מי שיכול אבקש ממנו שיכין את המאקרו בתוך קובץ לחילוץ עצמי שיחלץ את הקבצים למקום הראוי %AppData%/Microsoft/Word/STARTUP
                      עיין כאן להוראות איך מכינים קובץ לחילוץ עצמי


                      תוכן העניינים

                      תוכן העניינים אינו כולל הכול ומעדכן מידי פעם.

                      1. מאקרו יישור טורים בוורד
                      2. מאקרו תיקון שגיאות נפוצות
                      3. תבנית מחיקת פסקאות ריקות ורווח לפני פסקא
                      4. הערות ברצף
                      5. שילוב של כמה מאקרוים: (הקטנת והגדלת סוגריים על כל המסמך. עריכת הפניות מקושרות. עדכון הפניות מקושרות. מעבר בין מקטעים. המרת הפניות לתג).
                      6. סימון שגיאה בטקסט על ידי ..?
                      7. תיקון שגיאות מנצפך ועוד שיבושים נוספים
                      8. עיצוב ספרי קודש
                      9. עיצוב אוטומטי של ההערות שוליים כנהוג ברוב ספרי הקודש
                      10. חיפוש והחלפה פרטניים
                      11. עיצוב כל כותרות בטור אחד במסמך של שני טורים
                      12. מעבר עמוד לפני כותרת
                      13. מאקרו שמוסיף שדה למיספור אוטומטי (שימושי מאוד לספר עם סימנים רבים, ובכל סימן יש סעיפים)
                      14. מאקרו מעבר מהערה למסמך ולהיפך, וכן מאקרו ליצירת אינדקס בקלות
                      15. קוד VBA להמיר בוורד ממספרים לאותיות, רגיל ובלשון נקייה.
                      16. שינוי מרווח טורים רק בהערות שוליים
                      17. החלפת שדה נבחר למספור אוטומטי אותיות
                      18. המרת מספרים לאותיות עם לשון נקיה
                      19. חיפוש ותיקון סוגריים לא סגורים
                        - תיקון סוגריים גירסה 2
                      20. מאקרו לגיבוי התבנית normal (הגדרות ברירת המחדל)
                      21. חילוץ טקסט - מפרק את כל ההערות שבמסמך [בלון, שוליים, הערות] למסמכים נפרדים, ומשאיר הפניות במסמך המקורי, עיצוב לבחירת המשתמש.
                      22. מאקרו לוורד להצגת כל קיצורי המקשים המותאמים אישית: - והתבנית המוכנה כאן: https://mitmachim.top/post/641294
                      23. החלפת אות, מילה, או פיסקה עם הסמוכה לה
                      24. הערות שולים - מספור בעברית עד 1200
                      25. קבלת הקוד של התיו המסומן לתורך שימוש בחיפוש והחלפה
                      26. פתרון באג שצג
                      27. המרה הוספה ועריכה שדה מספור אוטומטי
                      28. מספור עברי מעל שצב
                      29. חיפוש והחלפה באבני בניין
                      30. מאקרו הפניה מקושרת אינדקס תצוגת טויטה.
                      31. מאקרו שצובע את המילה הראשונה של כל עמוד בירוק ואת המילה האחרונה באדום, נצרך מאוד לתיקונים לאחר עימוד כדי לוודא שלא קפצו מילים לעמוד הבא.
                      32. מאקרו הדפסה לפי רשימה
                      33. מאקרו להסתרת טקסט
                      34. הפניה מקושרת ממסמך למסמך
                      35. הוספת עיטור לפני או אחרי כותרת
                      36. מאקרו צמצום מסמך בוורד
                      37. מאקרו איזון שורה אחרונה - מילה אחרונה תלושה

                      הוראות להתקנת מאקרו בקלות

                      להוראות כלליות לגבי מאקרו ניתן לעיין כאן

                      כדי להתקין מאקרו בוורד בקלות

                      1. יש להוריד את התבנית הרצויה (תבניות יובאו בפוסטים בהמשך השרשור)

                      2. יש להעתיק את התבנית אל תוך התיקייה הזו:
                        AppData%\Microsoft\Word\STARTUP%
                        (אפשר ללחוץ על "מקש-חלונות + R" ולהזין שם את הכתובת הנ"ל)
                        - רוצים להסיר מאקרו? פשוט מחקו אותו מהתיקייה הנ"ל.

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

                      1. כעת המאקרו שבתבנית יהיו זמינים לכם בכל מסמך שתרצו

                      2. כדי להריץ מאקרו יש להיכנס לכרטיססית תצוגה בוורד > פקודות מאקרו > הצג פקודות מאקרו ( או ללחוץ ALT +F8).

                      f56ec072-2f64-4745-b9d1-7c338a06c584-image.png

                      כעת בחרו במאקרו המתאים ולחצו על הפעל.


                      איך ליצור קיצורי דרך למאקרו בקלות

                      אפשר גם ליצור קיצורי דרך (קיצורי מקשים או לחצן) עבור כל מאקרו שתירצו וכדלהלן:

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

                      c83f3ddb-b2e4-4752-859f-470a2a64af88-image.png

                      9af5da5d-f045-4687-8eba-fd015e92d0e5-image.png

                      כעת יש לגלול ב'קטגוריות' לתחתית החלון ולסמן את פקודות מאקרו - כאן תוכלו להזין איזה קיצור מקשים שתירצו רק שימו לב לכיתוב שמופיע תחת החלון בצד ימין מוקצה כרגע ל: הוי אומר שהקיצור שבחרתם כבר מוקצה למשהו אחר ועלכים להחליט אם לדרוס הקצאה זו או לא

                      076e7ded-3ca5-484f-ae28-6b1190c978af-image.png

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

                      בהצלחה!

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

                      מאקרו מעבר מהערה למסמך ולהיפך, וכן מאקרו ליצירת אינדקס בקלות
                      מעבר-מהערה-למסמך ואינדקס.dotm
                      בהצלחה

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

                        בס"ד
                        פוסט מסודר עבור העלאת מאקרואים לוורד


                        הנחיות עבור עורכי פוסטים

                        כל מי שיכול להעלות מאקרואים לתועלת הציבור נא להעלות כאן
                        תגובות לנושא זה יש לכתוב כאן בשרשור התגובות כמו"כ ניתן למצוא הוראות נוספות להכנת מאקרו בשרשור התגובות.

                        שים לב! שרשור זה נועד עבור המשתמש הפשוט לכן אבקש מכולם נא לא להעלות כאן קודים אלא רק מאקרו מוכן בתוך תבנית - כדי שכולם יוכלו להשתמש בהם בקלות. כפי שיפורט להלן, מאוד קל להתקין בוורד מאקרו מוכן באופן זה.
                        להוראות כיצד להכין תבנית עם מאקרו לחץ כאן
                        מי שיכול אבקש ממנו שיכין את המאקרו בתוך קובץ לחילוץ עצמי שיחלץ את הקבצים למקום הראוי %AppData%/Microsoft/Word/STARTUP
                        עיין כאן להוראות איך מכינים קובץ לחילוץ עצמי


                        תוכן העניינים

                        תוכן העניינים אינו כולל הכול ומעדכן מידי פעם.

                        1. מאקרו יישור טורים בוורד
                        2. מאקרו תיקון שגיאות נפוצות
                        3. תבנית מחיקת פסקאות ריקות ורווח לפני פסקא
                        4. הערות ברצף
                        5. שילוב של כמה מאקרוים: (הקטנת והגדלת סוגריים על כל המסמך. עריכת הפניות מקושרות. עדכון הפניות מקושרות. מעבר בין מקטעים. המרת הפניות לתג).
                        6. סימון שגיאה בטקסט על ידי ..?
                        7. תיקון שגיאות מנצפך ועוד שיבושים נוספים
                        8. עיצוב ספרי קודש
                        9. עיצוב אוטומטי של ההערות שוליים כנהוג ברוב ספרי הקודש
                        10. חיפוש והחלפה פרטניים
                        11. עיצוב כל כותרות בטור אחד במסמך של שני טורים
                        12. מעבר עמוד לפני כותרת
                        13. מאקרו שמוסיף שדה למיספור אוטומטי (שימושי מאוד לספר עם סימנים רבים, ובכל סימן יש סעיפים)
                        14. מאקרו מעבר מהערה למסמך ולהיפך, וכן מאקרו ליצירת אינדקס בקלות
                        15. קוד VBA להמיר בוורד ממספרים לאותיות, רגיל ובלשון נקייה.
                        16. שינוי מרווח טורים רק בהערות שוליים
                        17. החלפת שדה נבחר למספור אוטומטי אותיות
                        18. המרת מספרים לאותיות עם לשון נקיה
                        19. חיפוש ותיקון סוגריים לא סגורים
                          - תיקון סוגריים גירסה 2
                        20. מאקרו לגיבוי התבנית normal (הגדרות ברירת המחדל)
                        21. חילוץ טקסט - מפרק את כל ההערות שבמסמך [בלון, שוליים, הערות] למסמכים נפרדים, ומשאיר הפניות במסמך המקורי, עיצוב לבחירת המשתמש.
                        22. מאקרו לוורד להצגת כל קיצורי המקשים המותאמים אישית: - והתבנית המוכנה כאן: https://mitmachim.top/post/641294
                        23. החלפת אות, מילה, או פיסקה עם הסמוכה לה
                        24. הערות שולים - מספור בעברית עד 1200
                        25. קבלת הקוד של התיו המסומן לתורך שימוש בחיפוש והחלפה
                        26. פתרון באג שצג
                        27. המרה הוספה ועריכה שדה מספור אוטומטי
                        28. מספור עברי מעל שצב
                        29. חיפוש והחלפה באבני בניין
                        30. מאקרו הפניה מקושרת אינדקס תצוגת טויטה.
                        31. מאקרו שצובע את המילה הראשונה של כל עמוד בירוק ואת המילה האחרונה באדום, נצרך מאוד לתיקונים לאחר עימוד כדי לוודא שלא קפצו מילים לעמוד הבא.
                        32. מאקרו הדפסה לפי רשימה
                        33. מאקרו להסתרת טקסט
                        34. הפניה מקושרת ממסמך למסמך
                        35. הוספת עיטור לפני או אחרי כותרת
                        36. מאקרו צמצום מסמך בוורד
                        37. מאקרו איזון שורה אחרונה - מילה אחרונה תלושה

                        הוראות להתקנת מאקרו בקלות

                        להוראות כלליות לגבי מאקרו ניתן לעיין כאן

                        כדי להתקין מאקרו בוורד בקלות

                        1. יש להוריד את התבנית הרצויה (תבניות יובאו בפוסטים בהמשך השרשור)

                        2. יש להעתיק את התבנית אל תוך התיקייה הזו:
                          AppData%\Microsoft\Word\STARTUP%
                          (אפשר ללחוץ על "מקש-חלונות + R" ולהזין שם את הכתובת הנ"ל)
                          - רוצים להסיר מאקרו? פשוט מחקו אותו מהתיקייה הנ"ל.

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

                        1. כעת המאקרו שבתבנית יהיו זמינים לכם בכל מסמך שתרצו

                        2. כדי להריץ מאקרו יש להיכנס לכרטיססית תצוגה בוורד > פקודות מאקרו > הצג פקודות מאקרו ( או ללחוץ ALT +F8).

                        f56ec072-2f64-4745-b9d1-7c338a06c584-image.png

                        כעת בחרו במאקרו המתאים ולחצו על הפעל.


                        איך ליצור קיצורי דרך למאקרו בקלות

                        אפשר גם ליצור קיצורי דרך (קיצורי מקשים או לחצן) עבור כל מאקרו שתירצו וכדלהלן:

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

                        c83f3ddb-b2e4-4752-859f-470a2a64af88-image.png

                        9af5da5d-f045-4687-8eba-fd015e92d0e5-image.png

                        כעת יש לגלול ב'קטגוריות' לתחתית החלון ולסמן את פקודות מאקרו - כאן תוכלו להזין איזה קיצור מקשים שתירצו רק שימו לב לכיתוב שמופיע תחת החלון בצד ימין מוקצה כרגע ל: הוי אומר שהקיצור שבחרתם כבר מוקצה למשהו אחר ועלכים להחליט אם לדרוס הקצאה זו או לא

                        076e7ded-3ca5-484f-ae28-6b1190c978af-image.png

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

                        בהצלחה!

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

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

                        עריכה של ידידנו @דאנציג למטה https://mitmachim.top/assets/uploads/files/1682045184501-חיפוש-סוגריים-לא-סגורים.dotm

                        ד P מ 3 תגובות תגובה אחרונה
                        1
                        • menajemmendelM menajemmendel

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

                          עריכה של ידידנו @דאנציג למטה https://mitmachim.top/assets/uploads/files/1682045184501-חיפוש-סוגריים-לא-סגורים.dotm

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

                          @menajemmendel

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

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

                          לא נמצאו תוצאות...

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

                            @menajemmendel

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

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

                            לא נמצאו תוצאות...

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

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

                            @menajemmendel

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

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

                            לא נמצאו תוצאות...

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

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

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

                              עריכה של ידידנו @דאנציג למטה https://mitmachim.top/assets/uploads/files/1682045184501-חיפוש-סוגריים-לא-סגורים.dotm

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

                              @menajemmendel
                              נא לסגור מאקרו סוגריים בתוך תבנית לתועלת האשכול

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

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

                                @menajemmendel
                                נא לסגור מאקרו סוגריים בתוך תבנית לתועלת האשכול

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

                                @pcinfogmach
                                בבקשה

                                חיפוש סוגריים לא סגורים.dotm

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

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

                                  @menajemmendel

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

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

                                  לא נמצאו תוצאות...

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

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

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

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

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

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

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

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

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

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

                                    @דאנציג אצלי כן עובד אז תעלה בבקשה את הקובץ וורד שלך, נראה מה הבעיה

                                    תגובה 1 תגובה אחרונה
                                    0
                                    • האדם החושבה האדם החושב התייחס לנושא זה ב
                                    • A ASDF1345

                                      מאקרו מעבר מהערה למסמך ולהיפך, וכן מאקרו ליצירת אינדקס בקלות
                                      מעבר-מהערה-למסמך ואינדקס.dotm
                                      בהצלחה

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

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

                                      מאקרו מעבר מהערה למסמך ולהיפך, וכן מאקרו ליצירת אינדקס בקלות
                                      מעבר-מהערה-למסמך ואינדקס.dotm
                                      בהצלחה

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

                                              ActiveWindow.View.SplitSpecial = wdPaneFootnotes
                                      

                                      וזה למעבר למסמך מההערה

                                           ActiveWindow.View.SeekView = wdSeekMainDocument
                                      

                                      אגב, אני הוספתי את הפקודה הזו:
                                      d2f7b583-3eea-43df-9027-647e811bacb6-image.png
                                      לשורה למעלה, כך שלחיצה על ALT + 5 (אצלי) מביאה את אותה פונקציה בפקודה אחת, דהיינו לחיצה אחת יורדת להערה, ולחיצה נוספת מעלה בחזרה לטקסט, כך שלא צריך שתי פקודות מאקרו נפרדות (שתי קצורי מקשים).

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

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

                                        עריכה של ידידנו @דאנציג למטה https://mitmachim.top/assets/uploads/files/1682045184501-חיפוש-סוגריים-לא-סגורים.dotm

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

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

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

                                        עריכה של ידידנו @דאנציג למטה https://mitmachim.top/assets/uploads/files/1682045184501-חיפוש-סוגריים-לא-סגורים.dotm

                                        יש להדגיש, שעל הסוגר האחרון של המסמך זה לא עובד.

                                        menajemmendelM תגובה 1 תגובה אחרונה
                                        0
                                        • מ מניין התייחס לנושא זה ב
                                        • מ מניין התייחס לנושא זה ב
                                        • מ מניין

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

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

                                          עריכה של ידידנו @דאנציג למטה https://mitmachim.top/assets/uploads/files/1682045184501-חיפוש-סוגריים-לא-סגורים.dotm

                                          יש להדגיש, שעל הסוגר האחרון של המסמך זה לא עובד.

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

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

                                          יש להדגיש, שעל הסוגר האחרון של המסמך זה לא עובד.

                                          נכון שמתי לב לזה, אז נראה לי שאני הוסיף למאקרו שמתחילה יכתוב בסוף המסמך סוגר, ובסוף המקראו ימחוק אותו

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

                                          • התחברות

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

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