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

שרשור עזרה בפיתוח התוסף לוורד - עיצוב ספרי קודש

מתוזמן נעוץ נעול הועבר עזרה הדדית - וורד
74 פוסטים 7 כותבים 1.4k צפיות 9 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • P pcinfogmach

    אז הנה הקוד המשופץ של הערות ברצף אשמח לקבל הערות והארות

    Attribute VB_Name = "הערות_ברצף"
Option Explicit

Sub הערות_ברצף()

Application.ScreenUpdating = False

'AddSectionBreakToEndOfEachPage
    Dim i, totalPages As Integer, rng As Range, twoColumn As Boolean
    
   'check if layout is 2 columns
    
    ' Check if the first section has two columns
    If ActiveDocument.PageSetup.TextColumns.Count >= 2 Then
    twoColumn = True
    
    'chnage colums to one to avoide problems with section breaks
    With ActiveDocument.PageSetup.TextColumns
        .SetCount numColumns:=1
        .EvenlySpaced = True
        .LineBetween = False
    End With
    
    End If
    
    ' Get the total number of pages in the document
    totalPages = ActiveDocument.ComputeStatistics(wdStatisticPages)
    
    ' Loop through each page and add a section break at the end
    For i = 2 To totalPages
        Set rng = Selection.GoTo(wdGoToPage, wdGoToAbsolute, i)
        
        rng.InsertBreak Type:=wdSectionBreakNextPage
    Next i
    
'covert footnotes to endnotes

    ActiveDocument.Footnotes.Convert
    With ActiveDocument.Range(Start:=ActiveDocument.Content.Start, End:= _
        ActiveDocument.Content.End).EndnoteOptions
        .Location = wdEndOfSection
        .NumberingRule = wdRestartContinuous
        .StartingNumber = 1
        .NumberStyle = wdNoteNumberStyleHebrewLetter1
    End With
    
    'Set pargraph align justify for Endnotes
    
    ActiveWindow.View.SeekView = wdSeekEndnotes
    Selection.WholeStory
    Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify
    
    Selection.Range.Find.Execute FindText:="^e", ReplaceWith:="^&%?!#...", Forward:=True, Wrap:=wdFindStop, Replace:=wdReplaceAll
    Selection.Range.Find.Execute FindText:="%?!#... ", ReplaceWith:=" ", Forward:=True, Wrap:=wdFindStop, Replace:=wdReplaceAll
    Selection.Range.Find.Execute FindText:="%?!#...", ReplaceWith:="", Forward:=True, Wrap:=wdFindStop, Replace:=wdReplaceAll
    
    'restyle endnotes
     Selection.Find.ClearFormatting
    With Selection.Find.font
        .Superscript = True
        .Subscript = False
    End With
    
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.font
        .BoldBi = True
        .Superscript = False
        .Subscript = False
    End With
    
    With Selection.Find
        .text = "^e"
        .Replacement.text = "^&"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    

'add styleseprator after endnotes
    
    Dim secRange As Range
    Dim fnote As Endnote
    Dim x As Integer
    
For i = 1 To totalPages
    Set rng = Selection.GoTo(wdGoToPage, wdGoToAbsolute, i)

    ' Set the range to the current section
    Set secRange = Selection.Sections(1).Range
    
    ' Loop through each endnote in the section
    For x = 1 To secRange.endnotes.Count - 1
        On Error Resume Next
        Set fnote = secRange.endnotes(x)
        fnote.Range.Select
        Call RemoveParagraphBreaks
        
        'AddStyleSeparator
        Selection.InsertStyleSeparator
        On Error GoTo 0
        Selection.InsertAfter " " & " "
    Next x
    
    'הסר פיסקאות בהערה אחרונה
    For x = secRange.endnotes.Count To secRange.endnotes.Count
        On Error Resume Next
        Set fnote = secRange.endnotes(x)
        fnote.Range.Select
        Call RemoveParagraphBreaks
        On Error GoTo 0
        
    'הסר עיצוב קודם בהערה אחרונה אם יש
        Selection.Collapse Direction:=wdCollapseEnd
        Selection.font.Reset
    Next x

    
    Next i
    
    
    'החזר שני טורים אם צריך
    If twoColumn = True Then
    With ActiveDocument.PageSetup.TextColumns
            .SetCount numColumns:=2
            .EvenlySpaced = True
            .LineBetween = False
        End With
    End If
    
    Call הסר_רווחים_כפולים
    Application.ScreenUpdating = True
    Application.ScreenRefresh
End Sub

Sub RemoveParagraphBreaks()

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .text = "^p"
        .Replacement.text = " "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
      
End Sub

Sub הסר_רווחים_כפולים()
'
' Macro10 Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .text = "( )( )@"
        .Replacement.text = "\1"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    

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

    @pcinfogmach

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

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

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

      אז הנה הקוד המשופץ של הערות ברצף אשמח לקבל הערות והארות

      Attribute VB_Name = "הערות_ברצף"
Option Explicit

Sub הערות_ברצף()

Application.ScreenUpdating = False

'AddSectionBreakToEndOfEachPage
    Dim i, totalPages As Integer, rng As Range, twoColumn As Boolean
    
   'check if layout is 2 columns
    
    ' Check if the first section has two columns
    If ActiveDocument.PageSetup.TextColumns.Count >= 2 Then
    twoColumn = True
    
    'chnage colums to one to avoide problems with section breaks
    With ActiveDocument.PageSetup.TextColumns
        .SetCount numColumns:=1
        .EvenlySpaced = True
        .LineBetween = False
    End With
    
    End If
    
    ' Get the total number of pages in the document
    totalPages = ActiveDocument.ComputeStatistics(wdStatisticPages)
    
    ' Loop through each page and add a section break at the end
    For i = 2 To totalPages
        Set rng = Selection.GoTo(wdGoToPage, wdGoToAbsolute, i)
        
        rng.InsertBreak Type:=wdSectionBreakNextPage
    Next i
    
'covert footnotes to endnotes

    ActiveDocument.Footnotes.Convert
    With ActiveDocument.Range(Start:=ActiveDocument.Content.Start, End:= _
        ActiveDocument.Content.End).EndnoteOptions
        .Location = wdEndOfSection
        .NumberingRule = wdRestartContinuous
        .StartingNumber = 1
        .NumberStyle = wdNoteNumberStyleHebrewLetter1
    End With
    
    'Set pargraph align justify for Endnotes
    
    ActiveWindow.View.SeekView = wdSeekEndnotes
    Selection.WholeStory
    Selection.ParagraphFormat.Alignment = wdAlignParagraphJustify
    
    Selection.Range.Find.Execute FindText:="^e", ReplaceWith:="^&%?!#...", Forward:=True, Wrap:=wdFindStop, Replace:=wdReplaceAll
    Selection.Range.Find.Execute FindText:="%?!#... ", ReplaceWith:=" ", Forward:=True, Wrap:=wdFindStop, Replace:=wdReplaceAll
    Selection.Range.Find.Execute FindText:="%?!#...", ReplaceWith:="", Forward:=True, Wrap:=wdFindStop, Replace:=wdReplaceAll
    
    'restyle endnotes
     Selection.Find.ClearFormatting
    With Selection.Find.font
        .Superscript = True
        .Subscript = False
    End With
    
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.font
        .BoldBi = True
        .Superscript = False
        .Subscript = False
    End With
    
    With Selection.Find
        .text = "^e"
        .Replacement.text = "^&"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    

'add styleseprator after endnotes
    
    Dim secRange As Range
    Dim fnote As Endnote
    Dim x As Integer
    
For i = 1 To totalPages
    Set rng = Selection.GoTo(wdGoToPage, wdGoToAbsolute, i)

    ' Set the range to the current section
    Set secRange = Selection.Sections(1).Range
    
    ' Loop through each endnote in the section
    For x = 1 To secRange.endnotes.Count - 1
        On Error Resume Next
        Set fnote = secRange.endnotes(x)
        fnote.Range.Select
        Call RemoveParagraphBreaks
        
        'AddStyleSeparator
        Selection.InsertStyleSeparator
        On Error GoTo 0
        Selection.InsertAfter " " & " "
    Next x
    
    'הסר פיסקאות בהערה אחרונה
    For x = secRange.endnotes.Count To secRange.endnotes.Count
        On Error Resume Next
        Set fnote = secRange.endnotes(x)
        fnote.Range.Select
        Call RemoveParagraphBreaks
        On Error GoTo 0
        
    'הסר עיצוב קודם בהערה אחרונה אם יש
        Selection.Collapse Direction:=wdCollapseEnd
        Selection.font.Reset
    Next x

    
    Next i
    
    
    'החזר שני טורים אם צריך
    If twoColumn = True Then
    With ActiveDocument.PageSetup.TextColumns
            .SetCount numColumns:=2
            .EvenlySpaced = True
            .LineBetween = False
        End With
    End If
    
    Call הסר_רווחים_כפולים
    Application.ScreenUpdating = True
    Application.ScreenRefresh
End Sub

Sub RemoveParagraphBreaks()

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .text = "^p"
        .Replacement.text = " "
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
      
End Sub

Sub הסר_רווחים_כפולים()
'
' Macro10 Macro
'
'
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .text = "( )( )@"
        .Replacement.text = "\1"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchAllWordForms = False
        .MatchSoundsLike = False
        .MatchWildcards = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    

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

      והנה הקוד להסרת עיצוב הערות ברצף

      Sub הסר_עיצוב_הערות_ברצף()
'
'
'
'הסר רווחים קשיחים
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .text = "^s^s"
        .Replacement.text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
    'המר הערות סיום חזרה להערות שוליים
    ActiveDocument.endnotes.Convert
    
    'אפס עיצוב מספרי הערות שוליים
    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.style = ActiveDocument.Styles( _
        "הפניה להערת שוליים")
    Selection.Find.Replacement.font.Superscript = True
    With Selection.Find
        .text = "^f"
        .Replacement.text = "^&"
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
Application.ScreenUpdating = False
Dim x As Integer, fnote As footnote

'החל לולאה על כל ההערות
 For x = 1 To ActiveDocument.Footnotes.Count
        On Error Resume Next
        Set fnote = ActiveDocument.Footnotes(x)
        fnote.Range.Select
        Application.ScreenRefresh
        
    'הסר מפריד עיצוב בהערה  אם יש
        Selection.Collapse Direction:=wdCollapseEnd
        Selection.font.Reset
    Next x
Application.ScreenUpdating = True

    'RemoveSectionBreaks
    ActiveWindow.View.SeekView = wdSeekMainDocument

    Selection.Find.ClearFormatting
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .text = "^b"
        .Replacement.text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = False
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    
End Sub

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

      תגובה 1 תגובה אחרונה
      2
      • P מנותק
        P מנותק
        pcinfogmach
        מדריכים
        כתב ב נערך לאחרונה על ידי pcinfogmach
        #5

        יש למישהו מאקרו מוכן עבור stylref - כותרות מתעדכנות?

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

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

          שרשור עזרה בפיתוח התוסף לוורד - עיצוב ספרי קודש

          לינק לתוסף כאן

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

          כעת בפיתוח:
          עריכה:

          1. כותרות עליונות מתעדכנות
          2. מספור עברי

          אשמח לקבל הצעות

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

          @pcinfogmach

          אז הנה הקוד לכותרות צד אשמח לקבל משוב.

          הקוד כולל כמה וכמה קודים:

          Addstyle1 ו- 2 משמשים ליצירת סגנון ואינם מיועדים לשימוש בפני עצמם
          AddFrame מוסיף כותרת צד ריקה ומחשבן ימין ושמאל במסמך עם שני טורים
          InsertIntoFrame ממיר פיסקה\כותרת לכותרת צד
          FormattingPane פותח חלון סגנונות כדי לעצב את הכותרות צד
          AddStyle3 משמש לסגנון עבור עדכון או מחיקת החלונות ואינו משמש בפני עצמו
          update לעדכון מיקום הכותרות במקרה שהפיסקה זזה מהטור הימני לשמאלי או הפוך
          DeleteAll למחיקת כל הכותרות צד במסמך

          Sub Addstyle()
'
'
'
'
 ActiveDocument.Styles.Add Name:="כותרת צד ימין", Type:=wdStyleTypeParagraph
    ActiveDocument.Styles("כותרת צד ימין").AutomaticallyUpdate = False
    With ActiveDocument.Styles("כותרת צד ימין").font
        .Name = "+גוף"
        .Size = 8
        .Bold = False
        .Italic = False
        .Color = wdColorAutomatic
        .Superscript = False
        .Subscript = False
        .SizeBi = 8
        .NameBi = "Arial"
        .BoldBi = False
        .ItalicBi = False
    End With
    
     With ActiveDocument.Styles("כותרת צד ימין").ParagraphFormat
         .Alignment = wdAlignParagraphLeft
        .ReadingOrder = wdReadingOrderRtl
    End With
    
    With ActiveDocument.Styles("כותרת צד ימין").Frame
        .TextWrap = True
        .WidthRule = wdFrameExact
        .Width = ActiveDocument.PageSetup.LeftMargin / 2.5
        .HeightRule = wdFrameAuto
        .HorizontalPosition = wdFrameRight
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
        .VerticalPosition = CentimetersToPoints(0.04)
        .RelativeVerticalPosition = wdRelativeVerticalPositionParagraph
        .HorizontalDistanceFromText = CentimetersToPoints(0.32)
        .VerticalDistanceFromText = CentimetersToPoints(0)
        .LockAnchor = True
    End With
    
End Sub

Sub Addstyle2()
ActiveDocument.Styles.Add Name:="כותרת צד שמאל", Type:=wdStyleTypeParagraph
    ActiveDocument.Styles("כותרת צד שמאל").AutomaticallyUpdate = False
    With ActiveDocument.Styles("כותרת צד שמאל").font
        .Name = "+גוף"
        .Size = 8
        .Bold = False
        .Italic = False
        .Color = wdColorAutomatic
        .Superscript = False
        .Subscript = False
        .SizeBi = 8
        .NameBi = "Arial"
        .BoldBi = False
        .ItalicBi = False
    End With
    
     With ActiveDocument.Styles("כותרת צד שמאל").ParagraphFormat
         .Alignment = wdAlignParagraphRight
        .ReadingOrder = wdReadingOrderRtl
    End With
    
    With ActiveDocument.Styles("כותרת צד שמאל").Frame
        .TextWrap = True
        .WidthRule = wdFrameExact
        .Width = ActiveDocument.PageSetup.LeftMargin / 2.5
        .HeightRule = wdFrameAuto
        .HorizontalPosition = wdFrameLeft
        .RelativeHorizontalPosition = wdRelativeHorizontalPositionPage
        .VerticalPosition = CentimetersToPoints(0.04)
        .RelativeVerticalPosition = wdRelativeVerticalPositionParagraph
        .HorizontalDistanceFromText = CentimetersToPoints(0.32)
        .VerticalDistanceFromText = CentimetersToPoints(0)
        .LockAnchor = True
    End With
    
End Sub

Sub AddFrame()
Dim rng As Range, styl As Style

    Set rng = Selection.Paragraphs(1).Range
    
    With rng
        .End = .Start
        .InsertAfter vbCr
        
        If ActiveDocument.PageSetup.PageWidth / 2 > .Information(wdHorizontalPositionRelativeToPage) Then
            
            For Each styl In ActiveDocument.Styles
                If styl.NameLocal = "כותרת צד שמאל" Then GoTo skp2
            Next styl
            Call Addstyle2
skp2:
            .Style = ActiveDocument.Styles("כותרת צד שמאל")
            
        Else
        
            For Each styl In ActiveDocument.Styles
                If styl.NameLocal = "כותרת צד ימין" Then GoTo skp
            Next styl
    
            Call Addstyle
skp:
            .Style = ActiveDocument.Styles("כותרת צד ימין")
            
        End If
     
     .Select
    End With
      
End Sub

Sub InsertIntoFrame()
Dim styl As Style

        
        If ActiveDocument.PageSetup.PageWidth / 2 > Selection.Information(wdHorizontalPositionRelativeToPage) Then
            
            For Each styl In ActiveDocument.Styles
                If styl.NameLocal = "כותרת צד שמאל" Then GoTo skp2
            Next styl
            Call Addstyle2
skp2:
            Selection.Style = ActiveDocument.Styles("כותרת צד שמאל")
            
        Else
        
            For Each styl In ActiveDocument.Styles
                If styl.NameLocal = "כותרת צד ימין" Then GoTo skp
            Next styl
    
            Call Addstyle
skp:
            Selection.Style = ActiveDocument.Styles("כותרת צד ימין")
            
        End If
      
End Sub

Sub FormattingPane()

    Selection.Find.ClearFormatting
    Selection.Find.Style = ActiveDocument.Styles("כותרת צד ימין")
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .text = ""
        .Replacement.text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchWildcards = False
        .Execute
    End With
         
         Application.Dialogs(wdDialogStyleManagement).Show
 
End Sub

Sub AddStyle3()

Selection.GoTo What:=wdGoToPage, Which:=wdGoToPrevious, Count:=1

Dim styl As Style

    For Each styl In ActiveDocument.Styles
        If styl.NameLocal = "temp" Then GoTo skp
    Next styl
    
    ActiveDocument.Styles.Add Name:="temp", Type:=wdStyleTypeParagraph
    ActiveDocument.Styles("temp").AutomaticallyUpdate = False
skp:

End Sub

Sub update()
'
'
'
Dim styl As Style

Call AddStyle3

    Selection.Find.ClearFormatting
    Selection.Find.Style = ActiveDocument.Styles("כותרת צד ימין")
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Style = ActiveDocument.Styles("temp")
    With Selection.Find
        .text = ""
        .Replacement.text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Style = ActiveDocument.Styles("כותרת צד שמאל")
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Style = ActiveDocument.Styles("temp")
    With Selection.Find
        .text = ""
        .Replacement.text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll

    Selection.Find.ClearFormatting
    Selection.Find.Style = ActiveDocument.Styles("temp")
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .text = ""
        .Replacement.text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute
        
        Do While .Found = True
        
        If ActiveDocument.PageSetup.PageWidth / 2 > Selection.Information(wdHorizontalPositionRelativeToPage) Then
            
            For Each styl In ActiveDocument.Styles
                If styl.NameLocal = "כותרת צד שמאל" Then GoTo skp2
            Next styl
            Call Addstyle2
skp2:
            Selection.Style = ActiveDocument.Styles("כותרת צד שמאל")
            
        Else
        
            For Each styl In ActiveDocument.Styles
                If styl.NameLocal = "כותרת צד ימין" Then GoTo skp
            Next styl
    
            Call Addstyle
skp:
            Selection.Style = ActiveDocument.Styles("כותרת צד ימין")
            
        End If
        
        Selection.GoTo What:=wdGoToPage, Which:=wdGoToPrevious, Count:=1
        .Execute
        Loop
        
    End With
       
End Sub


Sub DeleteAll()
Call AddStyle3

    Selection.Find.ClearFormatting
    Selection.Find.Style = ActiveDocument.Styles("כותרת צד ימין")
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Style = ActiveDocument.Styles("temp")
    With Selection.Find
        .text = ""
        .Replacement.text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Style = ActiveDocument.Styles("כותרת צד שמאל")
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Style = ActiveDocument.Styles("temp")
    With Selection.Find
        .text = ""
        .Replacement.text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    
    Selection.Find.ClearFormatting
    Selection.Find.Style = ActiveDocument.Styles("temp")
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find
        .text = ""
        .Replacement.text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
        .MatchCase = False
        .MatchWholeWord = False
        .MatchKashida = False
        .MatchDiacritics = False
        .MatchAlefHamza = False
        .MatchControl = False
        .MatchWildcards = False
        .MatchSoundsLike = False
        .MatchAllWordForms = False
        .Execute
    End With
    
    WordBasic.SelectSimilarFormatting
    Selection.Delete
End Sub

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

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

            בעיה נוספת בהערות ברצף, לפעמים חלק מההערות שוליים פשוט "נעלמים"
            עריכה: נפתר

            כמו"כ רציתי לשאול האם צריך לעשות (בעתיד) שיהיה אפשר לעצב מילה ראשונה בהערות שוליים ברצף?

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

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

              יש למישהו מאקרו מוכן עבור stylref - כותרות מתעדכנות?

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

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

              יש למישהו מאקרו מוכן עבור stylref - כותרות מתעדכנות?

              רק לכותרת 2

              Sub כותרת_2()
'
' כותרת_2 Macro
'
'
    Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
        "STYLEREF  ""כותרת 2"" \l ", PreserveFormatting:=True
End Sub
              תגובה 1 תגובה אחרונה
              1
              • P pcinfogmach

                בעיה נוספת בהערות ברצף, לפעמים חלק מההערות שוליים פשוט "נעלמים"
                עריכה: נפתר

                כמו"כ רציתי לשאול האם צריך לעשות (בעתיד) שיהיה אפשר לעצב מילה ראשונה בהערות שוליים ברצף?

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

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

                כמו"כ רציתי לשאול האם צריך לעשות (בעתיד) שיהיה אפשר לעצב מילה ראשונה בהערות שוליים ברצף?

                אם ישנה אפשרות לעצב את מספר ההערה, לדעתי לא.

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

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

                  כמו"כ רציתי לשאול האם צריך לעשות (בעתיד) שיהיה אפשר לעצב מילה ראשונה בהערות שוליים ברצף?

                  אם ישנה אפשרות לעצב את מספר ההערה, לדעתי לא.

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

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

                  אם ישנה אפשרות לעצב את מספר ההערה,

                  זה אפשר בקלות על ידי חיפוש והחלפה. האם צריך לזה גם לחצן?

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

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

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

                    אם ישנה אפשרות לעצב את מספר ההערה,

                    זה אפשר בקלות על ידי חיפוש והחלפה. האם צריך לזה גם לחצן?

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

                    @pcinfogmach
                    אם זה מוגדר אחרת מכל המסמך, כן, אך אם לא...

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

                      @pcinfogmach
                      אם זה מוגדר אחרת מכל המסמך, כן, אך אם לא...

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

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

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

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

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

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

                        @pcinfogmach
                        אם כך התשובה היא שלא צריך.

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

                          שרשור עזרה בפיתוח התוסף לוורד - עיצוב ספרי קודש

                          לינק לתוסף כאן

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

                          כעת בפיתוח:
                          עריכה:

                          1. כותרות עליונות מתעדכנות
                          2. מספור עברי

                          אשמח לקבל הצעות

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

                          @pcinfogmach
                          מישהו יכול לכתוב לי מסודר מה צריך לפתח בשביל כותרות?

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

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

                            שרשור עזרה בפיתוח התוסף לוורד - עיצוב ספרי קודש

                            לינק לתוסף כאן

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

                            כעת בפיתוח:
                            עריכה:

                            1. כותרות עליונות מתעדכנות
                            2. מספור עברי

                            אשמח לקבל הצעות

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

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

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

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

                              @pcinfogmach
                              מישהו יכול לכתוב לי מסודר מה צריך לפתח בשביל כותרות?

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

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

                              מישהו יכול לכתוב לי מסודר מה צריך לפתח בשביל כותרות?

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

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

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

                                צ מנותק
                                צ מנותק
                                צדיק וטוב לו 0
                                כתב ב נערך לאחרונה על ידי
                                #17

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

                                השאלה היא האם מצוי שיש רווחים בגדלים שונים בפיסקה אחת?

                                וודאי - מה שכתוב בסוגריים.

                                P תגובה 1 תגובה אחרונה
                                0
                                • צ צדיק וטוב לו 0

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

                                  השאלה היא האם מצוי שיש רווחים בגדלים שונים בפיסקה אחת?

                                  וודאי - מה שכתוב בסוגריים.

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

                                  @צדיק-וטוב-לו-0
                                  מה שכתוב בסוגריים יש לו רווחים אחרים משאר הטקסט? (גם ברמה של הגדרות הטקסט באפשרויות גופן?)

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

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

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

                                    מישהו יכול לכתוב לי מסודר מה צריך לפתח בשביל כותרות?

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

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

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

                                    בשביל כותרות הכי פשוט שתסתכל במדריך של @תודה-רבה-4 כאן בפיסקא של כותרות עליונות.

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

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

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

                                      @צדיק-וטוב-לו-0
                                      מה שכתוב בסוגריים יש לו רווחים אחרים משאר הטקסט? (גם ברמה של הגדרות הטקסט באפשרויות גופן?)

                                      צ מנותק
                                      צ מנותק
                                      צדיק וטוב לו 0
                                      כתב ב נערך לאחרונה על ידי צדיק וטוב לו 0
                                      #20

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

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

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

                                        בשביל כותרות הכי פשוט שתסתכל במדריך של @תודה-רבה-4 כאן בפיסקא של כותרות עליונות.

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

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

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

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

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

                                        תגובה 1 תגובה אחרונה
                                        1
                                        • צ צדיק וטוב לו 0

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

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

                                          @צדיק-וטוב-לו-0 כתב בשרשור עזרה בפיתוח התוסף לוורד - עיצוב ספרי קודש:

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

                                          @מניין תוכל לעזור לנו פה בבקשה?

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

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

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