האם אפשר להגדיר בוורד שיהיה עיטור ליד כל כותרת?
-
@מניין כתב בהאם אפשר להגדיר בוורד שיהיה עיטור ליד כל כותרת?:
@לשכת-הרב איזה סוג עיטור? אם זה עיטור של גופן אפשר באופן פשוט דרך החלף.
בגדול מדובר בעיטור לא של גופן
אבל אשמח שתסביר לי בעיטור של גופן איך עושים, יש בקובץ כ 200 כותרות אמצע, ואני רוצה שבכל הכותרות יהיה עיטור בתחילת הכותרת ובסופה
-
@יאיר-הבהיר כתב בהאם אפשר להגדיר בוורד שיהיה עיטור ליד כל כותרת?:
@לשכת-הרב חפש את: להשאיר ריק, בעיצוב של הסגנון כותרת המבוקש.
החלף ב: ^& [מה שנמצא בשורת החיפוש], ולפניו ואחריו את הגופן של העיטור.מה זה אומר "בעיצוב של הסגנון כותרת המבוקש".
וכן לא הבנתי מה כתבת כאן : "החלף ב: ^& [מה שנמצא בשורת החיפוש], ולפניו ואחריו את הגופן של העיטור".אשמח אם תוכל להסביר לי יותר, או ע"י צילומסך [בזמנך הפנוי]
תודה רבה -
@יאיר-הבהיר כתב בהאם אפשר להגדיר בוורד שיהיה עיטור ליד כל כותרת?:
@לשכת-הרב
מה שכן - אולי יהיו פעמים שהעיטור יקפוץ שורה, אני לא מתמצא עד כדי כךמה זה האות ע שהוספת בהחלף ?
ובסגנונות, איזה סגנון לבחור? -
@יאיר-הבהיר כתב בהאם אפשר להגדיר בוורד שיהיה עיטור ליד כל כותרת?:
@לשכת-הרב אתה צריך שיהיה לך סגנון מובנה, של גופן של עיטורים [כמו למשל הגופנים שיש כאן].
האות ע' היתה סתם דוגמא לאחת האותיות שמציגה את העיטור הנדרש כשאתה נמצא על הסגנון הנ"ל.מצוין, אבל איך אני מגדיר שזה יעשה את העיטורים בכותרת אמצע ולא כותרת ראשית וכדו?
-
@יאיר-הבהיר כתב בהאם אפשר להגדיר בוורד שיהיה עיטור ליד כל כותרת?:
@לשכת-הרב כותרת ראשית צריכה להיות בסגנון כותרת 1, וכותרת משנית בסגנון כותרת 2...
כן אני יודע, אבל איך אני מגדיר את זה בחיפוש והחלפה
-
@לשכת-הרב אם גם הכותרת הראשית וגם הכותרת משנה הם באותו גופן ועיצוב בדיוק, אין דרך להבדיל ביניהם...
אבל אם לכל אחד מהם עיצוב שונה - אפשר שוב עם אותו רעיון; חפש את: ריק, בהגדרת עיצוב של הכותרת ראשית, החלף ב: מה שנמצא בשורת החיפוש [^&], בסגנון כותרת 1. וכנ"ל גם לכותרת 2. -
@יאיר-הבהיר כתב בהאם אפשר להגדיר בוורד שיהיה עיטור ליד כל כותרת?:
@לשכת-הרב אם גם הכותרת הראשית וגם הכותרת משנה הם באותו גופן ועיצוב בדיוק, אין דרך להבדיל ביניהם...
אבל אם לכל אחד מהם עיצוב שונה - אפשר שוב עם אותו רעיון; חפש את: ריק, בהגדרת עיצוב של הכותרת ראשית, החלף ב: מה שנמצא בשורת החיפוש [^&], בסגנון כותרת 1. וכנ"ל גם לכותרת 2.לא כ"כ הבנתי אותך, אשמח אם תוכל לפרט לי כל שלב בדיוק מה צריך לעשות (אם תוכל עם צילומסך בכל שלב, עוד יותר טוב)
כמובן, הכותרות אמצע מוגדרות ככותרות מס' 3, וברצוני שבכולם יהיה עיטור קטן מצד ימין וצד שמאלזה מאוד יעזור לי אם תוכל.
-
@לשכת-הרב אני התכוונתי לתו שמופיע בתוך הגופן (ולא לתמונה)
אבל יש דרך פשוטה יותר.
תלחץ לחיצה ימנית על הסגנון כותרת1 (או הכותרת שאותה תרצה לשנות)>שינוי>עיצוב>מספור>תבליטים>הגדר תבליט חדש>תבחר את התמונה שלך מהמחשב, אישור וכו'
זה יכניס את העיצוב לכל תחילת כותרת, (אבל לא לסוף)
אפשר גם להכניס את העיטור בתור תמונה באמצעות הקוד הבא (זה מוסיף משני צידי הכותרת)
Sub הוספת_עיטור () Dim dlg As FileDialog Dim imgPath As String Dim para As Paragraph Dim rngStart As Range, rngEnd As Range Dim StyleName As String On Error GoTo Ending Application.UndoRecord.StartCustomRecord ' ôúéçú ãéàìåâ ìáçéøú ÷åáõ Set dlg = Application.FileDialog(msoFileDialogFilePicker) With dlg .Title = "áçø úîåðä ìäåñôä áúçéìú åñåó äëåúøú" .Filters.Clear .Filters.Add "תמונות", "*.jpg; *.jpeg; *.png; *.bmp; *.gif" If .Show <> -1 Then GoTo Ending ' àí äîùúîù áéèì imgPath = .SelectedItems(1) End With StyleName = InputBox("הכנס את שם הכותרת (בצורה מדויקת!)") ' îòáø òì ëì äôñ÷àåú áîñîê For Each para In ActiveDocument.Paragraphs If para.Style = StyleName Then ' úçéìú äôñ÷ä Set rngStart = para.Range.Duplicate rngStart.Collapse Direction:=wdCollapseStart rngStart.InlineShapes.AddPicture FileName:=imgPath, LinkToFile:=False, SaveWithDocument:=True ' ñåó äôñ÷ä Set rngEnd = para.Range.Duplicate rngEnd.Collapse Direction:=wdCollapseEnd rngEnd.Move wdCharacter, -1 rngEnd.InsertAfter " " ' øååç ìôðé äúîåðä rngEnd.Collapse Direction:=wdCollapseEnd rngEnd.InlineShapes.AddPicture FileName:=imgPath, LinkToFile:=False, SaveWithDocument:=True End If Next para MsgBox "הכנסת העיטור בוצעה בהצלחה", vbInformation Ending: Application.UndoRecord.EndCustomRecord End Sub
להפעלת הקוד פותחים את בלשונית תצוגה>פקודות מאקרו>הצג פקודות מאקרו>צור>מדביקים>ולוחצים במקלדת על FN+F5 (זה מריץ את הקוד)
-
-
@שלמה11 תודה רבה לך, הוספתי גם אפשרות עם בחירה לעיטור שונה לאחרי הפיסקא, מבקרים שהעיטור שונה לימין ושמאל.
Sub הוספת_עיטור() Dim dlg As FileDialog Dim imgPathBefore As String Dim imgPathAfter As String Dim useSameImage As Boolean Dim para As Paragraph Dim rngStart As Range, rngEnd As Range Dim StyleName As String On Error GoTo Ending Application.UndoRecord.StartCustomRecord ' בחירת עיטור לפני הפסקה Set dlg = Application.FileDialog(msoFileDialogFilePicker) With dlg .Title = "בחר תמונה לעיטור לפני הפסקה" .Filters.Clear .Filters.Add "תמונות", "*.jpg; *.jpeg; *.png; *.bmp; *.gif" If .Show <> -1 Then GoTo Ending imgPathBefore = .SelectedItems(1) End With ' שאל אם רוצים עיטור שונה אחרי If MsgBox("האם אתה רוצה לבחור עיטור שונה לאחר הפסקה?", vbYesNo + vbQuestion, "בחירת עיטור לאחר") = vbYes Then Set dlg = Application.FileDialog(msoFileDialogFilePicker) With dlg .Title = "בחר תמונה לעיטור אחרי הפסקה" .Filters.Clear .Filters.Add "תמונות", "*.jpg; *.jpeg; *.png; *.bmp; *.gif" If .Show <> -1 Then GoTo Ending imgPathAfter = .SelectedItems(1) End With Else imgPathAfter = imgPathBefore ' משתמש באותו עיטור לשני הצדדים End If StyleName = InputBox("הכנס את שם הכותרת (בצורה מדויקת!)") ' מעבר על כל הפסקאות והוספת העיטורים For Each para In ActiveDocument.Paragraphs If para.Style = StyleName Then ' עיטור לפני Set rngStart = para.Range.Duplicate rngStart.Collapse Direction:=wdCollapseStart rngStart.InlineShapes.AddPicture FileName:=imgPathBefore, LinkToFile:=False, SaveWithDocument:=True ' עיטור אחרי Set rngEnd = para.Range.Duplicate rngEnd.Collapse Direction:=wdCollapseEnd rngEnd.Move wdCharacter, -1 rngEnd.InsertAfter " " rngEnd.Collapse Direction:=wdCollapseEnd rngEnd.InlineShapes.AddPicture FileName:=imgPathAfter, LinkToFile:=False, SaveWithDocument:=True End If Next para MsgBox "הכנסת העיטורים בוצעה בהצלחה", vbInformation Ending: Application.UndoRecord.EndCustomRecord End Sub