מרכאות לפני ואחרי הציטוט
-
תאריך ההודעה המקורית: 19/02/2023 11:21
אני מסכים.
צריך לשדרג את הרעיון.
ניסיתי כמה כיוונים אך לא באתי לכלל יישוב כל הקושיות.מאת: [email protected]
תאריך ההודעה המקורית: 19/02/2023 11:26
המאקרו הבא עובד אצלי.
זו התוצאה:
[image: image.png]Sub מרכאות()
'
' מרכאות Macro
'
'
Selection.TypeParagraph
Selection.TypeText Text:=""""""
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.Paste
Selection.Find.ClearFormatting
Selection.Find.Replacement.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 Replace:=wdReplaceAll
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 Replace:=wdReplaceAll
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=" "
End Sub -
תאריך ההודעה המקורית: 19/02/2023 11:26
המאקרו הבא עובד אצלי.
זו התוצאה:
[image: image.png]Sub מרכאות()
'
' מרכאות Macro
'
'
Selection.TypeParagraph
Selection.TypeText Text:=""""""
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.Paste
Selection.Find.ClearFormatting
Selection.Find.Replacement.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 Replace:=wdReplaceAll
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 Replace:=wdReplaceAll
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=" "
End Subתאריך ההודעה המקורית: 19/02/2023 11:49
לא עברתי בעיון על כל התכתובות, אשתף איפוא במאקרו שעשיתי ושהוכיחה את עצמה:
קודם כל הגדרתי את ההעתקות בבר אילן כך שהכותרת תוצב בשורה נפרדת מהטקסט עצמו
וגם תוקף בסוגריים,
אחר כך העתקתי קטע מבר אילן, הקלטתי מאקרו והקציתי קיצור מקשים, הדבקת המועתק,
הקלדה של מרכאות בסוף הפסקה, העברת הסמן לתחילת הפסקה (ע"י הקשה על קונטרול +
חץ למעלה), הקלדה חוזרת של מרכאות וסיום ההקלטה.
מה שקרה כעת הוא שקבלתי אמנם טקסט ממורכאת כמו שרציתי, אך הכותרת היתה בשורה
נפרדת. לכן הקלטתי שוב מאקרו *ולאחר *התהליכים הנ"ל צירפתי את שורת הכותרת
לפסקת הטקסט, כעת התוצאה היתה מושלמת!
אודה, בתחילה גם לא הערכתי את המאקרו שיבין את הכל, אבל לשבחו ייאמר שהוא
הוכיח את עצמו... -
תאריך ההודעה המקורית: 19/02/2023 11:49
לא עברתי בעיון על כל התכתובות, אשתף איפוא במאקרו שעשיתי ושהוכיחה את עצמה:
קודם כל הגדרתי את ההעתקות בבר אילן כך שהכותרת תוצב בשורה נפרדת מהטקסט עצמו
וגם תוקף בסוגריים,
אחר כך העתקתי קטע מבר אילן, הקלטתי מאקרו והקציתי קיצור מקשים, הדבקת המועתק,
הקלדה של מרכאות בסוף הפסקה, העברת הסמן לתחילת הפסקה (ע"י הקשה על קונטרול +
חץ למעלה), הקלדה חוזרת של מרכאות וסיום ההקלטה.
מה שקרה כעת הוא שקבלתי אמנם טקסט ממורכאת כמו שרציתי, אך הכותרת היתה בשורה
נפרדת. לכן הקלטתי שוב מאקרו *ולאחר *התהליכים הנ"ל צירפתי את שורת הכותרת
לפסקת הטקסט, כעת התוצאה היתה מושלמת!
אודה, בתחילה גם לא הערכתי את המאקרו שיבין את הכל, אבל לשבחו ייאמר שהוא
הוכיח את עצמו... -
-
תאריך ההודעה המקורית: 19/02/2023 11:26
המאקרו הבא עובד אצלי.
זו התוצאה:
[image: image.png]Sub מרכאות()
'
' מרכאות Macro
'
'
Selection.TypeParagraph
Selection.TypeText Text:=""""""
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.Paste
Selection.Find.ClearFormatting
Selection.Find.Replacement.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 Replace:=wdReplaceAll
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 Replace:=wdReplaceAll
Selection.MoveRight Unit:=wdCharacter, Count:=1
Selection.TypeText Text:=" "
End Sub -
-
-
תאריך ההודעה המקורית: 20/02/2023 00:27
אכן מורכב (למי שאינו חפץ בהפרדה של שורה בין המקור לציטוט כברירת מחדל)
ניסינו מכמה כיווניםמי שיש לו התוסף עזרים יכול ליצור הדבקה שתכלול החלפה שתכניס מרכאות
אבל אני לא מכיר קיצור מקשים לפקודות של תוסף זה, ולכאורה נשארנו עם המסורבלותברור לי שישנה דרך למאקרו יעיל, אבל צריך ממש להכיר את השפה...
מאת: [email protected]
שלום! נראה שהשיחה הזו מעניינת אותך, אבל עדיין אין לך חשבון.
נמאס לכם לגלול בין אותם הפוסטים בכל ביקור? כשנרשמים לחשבון, תמיד תחזרו בדיוק למקום שבו הייתם קודם, ותוכלו לבחור לקבל התראות על תגובות חדשות (בין אם במייל, ובין אם בהתראת פוש). תוכלו גם לשמור סימניות ולפרגן ב-upvote לפוסטים כדי להביע הערכה לחברי קהילה אחרים.
בעזרת התרומה שלך, הפוסט הזה יכול להיות אפילו טוב יותר 💗
הרשמה התחברות