www.prog.co.il
הנושאים החמים
Sub Macro2()
'
' Macro2 Macro
'
'
Dim wdPage As Page, wdRct As Rectangle, wdRng As Range, wdLine As Line
For Each wdPage In ActiveDocument.ActiveWindow.Panes(1).Pages
For Each wdRct In wdPage.Rectangles
If wdRct.RectangleType = wdTextRectangle Then
If wdRct.Lines.Count = 1 Then
'כאן ניתן להכניס כל קוד שתרצה - במקרה הזה מדגיש בצהוב
wdRct.Range.HighlightColorIndex = wdYellow
End If
End If
Next
Next
End Sub@מהודר! מקווה שעזרתי.וורד - דחוף! מי יודע איך מוצאים פסקה בת שורה אחת בוורד
אם למישהו יש מאקרו להעתיק לכאן אשמח
Sub Macro2()
'
' Macro2 Macro
'
'
Dim wdPage As Page, wdRct As Rectangle, wdRng As Range, wdLine As Line
For Each wdPage In ActiveDocument.ActiveWindow.Panes(1).Pages
For Each wdRct In wdPage.Rectangles
If wdRct.RectangleType = wdTextRectangle Then
If wdRct.Lines.Count = 1 And wdRct.Range.Start > Selection.Start Then
wdRct.Range.Select
Exit Sub
End If
End If
Next
Next
End SubSub החלת_סגנון()
Dim B, I As Double
ActiveDocument.Paragraphs(1).Range.Select
For P = 1 To ActiveDocument.Paragraphs.Count
For B = 1 To Selection.Paragraphs.Count
Selection.Paragraphs(B).Range.Select
Next B
If Selection.PageSetup.TextColumns.Count = 1 And Selection.Range.Bold = True Then
I = I + 1
Selection.Style = ActiveDocument.Styles("כותרת " & I)
Selection.MoveDown wdParagraph, 1
Else
Selection.MoveDown wdParagraph, 1
I = 0
End If
Next P
End Subבבקשה, הנה המאקרו:
Sub חדשהחלת_סגנון()
Dim wdPage As Page, wdRct As Rectangle, wdRng As Range, wdLine As Line, I As Double
I = 0
For Each wdPage In ActiveDocument.ActiveWindow.Panes(1).Pages
For Each wdRct In wdPage.Rectangles
If wdRct.RectangleType = wdTextRectangle Then
If wdRct.Lines.Count = 1 And wdRct.Range.Start > Selection.Start Then
wdRct.Range.Select
If Selection.Range.Bold = True And Selection.Range.Characters.Count < 20 Then
I = I + 1
Selection.Style = ActiveDocument.Styles("כותרת " & I)
Else
I = 0
End If
End If
End If
Next
Next
מעכשיו, תהיו הראשונים לקבל את כל העדכונים, החדשות, ההפתעות בלעדיות, והתכנים הכי חמים שלנו בפרוג!
לוח לימודים
מסלולי לימוד שאפשר להצטרף
אליהם ממש עכשיו:
