הנושאים החמים
הנושאים החמים
אברהם
מהמשתמשים המובילים!
עיצוב גרפי DIP
עיצוב גרפי
עימוד ספרים
עריכה תורנית
D I G I T A L
עימוד ספרים
למי שאין "המשלים ל word", להלן קודי מאקרו להוספת חלון ולמירכוז שורה אחרונה ב word, הועתק מפורום "נתיב" ברשותו האדיבה של S_H:
הוספת חלון בתחילת השורה השנייה בפיסקה
מירכוז שורה אחרונה בפיסקה
פונקציה משולבת של הנ"ל:
כמובן שאפשר לשכלל עוד ועוד, כגון ליצור תפריטים שמאפשרים לבחור את מספר מילות הפתיח וכו'
עכשיו שאלה:
במירכוז שורה אחרונה של פיסקה שמתחילה בתבליט או מספור, מופיע גם תבליט ומספור בשורה האחרונה. האם יש דרך (יש דרך, השאלה איך עושים את זה) לבטל את זה בצורה אוטומטית?
הוספת חלון בתחילת השורה השנייה בפיסקה
קוד:
Sub חלון()
'
' חלון Macro
'
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = " "
.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
Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
Selection.Copy
Selection.EndKey Unit:=wdLine
Selection.TypeBackspace
Selection.TypeText Text:=Chr(11)
Selection.PasteAndFormat (wdPasteDefault)
Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
Selection.Font.Color = -603914241
Selection.MoveDown Unit:=wdParagraph, Count:=1
End Subמירכוז שורה אחרונה בפיסקה
קוד:
Sub מירכוז()
'
' מירכוז Macro
'
'
Selection.MoveDown Unit:=wdParagraph, Count:=1
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=Chr(11)
Selection.TypeParagraph
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
With Selection.Font
.Name = "Times New Roman"
.Size = 10
.Bold = False
.Italic = False
.Underline = wdUnderlineNone
.UnderlineColor = wdColorAutomatic
.StrikeThrough = False
.DoubleStrikeThrough = False
.Outline = False
.Emboss = False
.Shadow = False
.Hidden = True
.SmallCaps = False
.AllCaps = False
.Color = wdColorAutomatic
.Engrave = False
.Superscript = False
.Subscript = False
.Spacing = 0
.Scaling = 100
.Position = 0
.Kerning = 0
.Animation = wdAnimationNone
.SizeBi = 10
.NameBi = "David"
.BoldBi = False
.ItalicBi = False
Selection.MoveDown Unit:=wdParagraph, Count:=1
End With
End Subפונקציה משולבת של הנ"ל:
קוד:
Sub שיא()
'
' שיא Macro
'
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = " "
.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
Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
Selection.Copy
Selection.EndKey Unit:=wdLine
Selection.TypeBackspace
Selection.TypeText Text:=Chr(11)
Selection.PasteAndFormat (wdFormatSurroundingFormattingWithEmphasis)
Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
Selection.Font.Color = -603914241
Selection.MoveDown Unit:=wdParagraph, Count:=1
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=Chr(11)
Selection.TypeParagraph
Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter
Selection.MoveUp Unit:=wdLine, Count:=1
Selection.EndKey Unit:=wdLine, Extend:=wdExtend
With Selection.Font
.Name = "Times New Roman"
.Size = 12
.Bold = False
.Italic = False
.Underline = wdUnderlineNone
.UnderlineColor = wdColorAutomatic
.StrikeThrough = False
.DoubleStrikeThrough = False
.Outline = False
.Emboss = False
.Shadow = False
.Hidden = True
.SmallCaps = False
.AllCaps = False
.Color = wdColorAutomatic
.Engrave = False
.Superscript = False
.Subscript = False
.Spacing = 0
.Scaling = 100
.Position = 0
.Kerning = 0
.Animation = wdAnimationNone
.SizeBi = 12
.NameBi = "Guttman Rashi"
.BoldBi = False
.ItalicBi = False
End With
Selection.MoveDown Unit:=wdParagraph, Count:=1
End Subכמובן שאפשר לשכלל עוד ועוד, כגון ליצור תפריטים שמאפשרים לבחור את מספר מילות הפתיח וכו'
עכשיו שאלה:
במירכוז שורה אחרונה של פיסקה שמתחילה בתבליט או מספור, מופיע גם תבליט ומספור בשורה האחרונה. האם יש דרך (יש דרך, השאלה איך עושים את זה) לבטל את זה בצורה אוטומטית?
