מרכאות לפני ואחרי הציטוט

[מעשה הכתב - ארכיון]

תאריך ההודעה המקורית: 19/02/2023 10:34

באופן הזה הגרשיים האחרונות תהיינה לאחר הסוגריים. לא?

מאת: [email protected]

[ymy8... gmail.c - ארכיון]

תאריך ההודעה המקורית: 19/02/2023 10:35

יפה מאד!
אם תוכל להעתיק את המאקרו לטובת כולנו, אודה לך מאד.
בברכה מרובה.
יוסף מיכאל יוסקוביץ
0548496207

[ymy8... gmail.c - ארכיון]

תאריך ההודעה המקורית: 19/02/2023 10:42

תודה.
בברכה מרובה.
יוסף מיכאל יוסקוביץ
0548496207

[אריכא - ארכיון]

תאריך ההודעה המקורית: 19/02/2023 10:46

משני הטעמים הנ"ל נראה שזה באמת רעיון פחות טוב.
אמנם עדיין יש מקומות שהוא מתאים יותר.

לגבי בקשתך הרב יוסקוביץ את הקוד של הרב מעשה הכתב

נראה שעדיף לך (ללמוד איך) להקליט לבד
יש דברים שמשתנים מאדם לאדם, וחבל להסתבך

[ymy8... gmail.c - ארכיון]

תאריך ההודעה המקורית: 19/02/2023 10:50

כן, וגם יש רווח מיותר בשני המקומות.
בברכה מרובה.
יוסף מיכאל יוסקוביץ
0548496207

[מעשה הכתב - ארכיון]

תאריך ההודעה המקורית: 19/02/2023 10:52

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

'
' merchaot Macro
'
'
Selection.Paste
Selection.MoveUp Unit:=wdParagraph, Count:=1
Selection.TypeText Text:=""""
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
With Selection
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseStart
Else
.Collapse Direction:=wdCollapseEnd
End If
.Find.Execute Replace:=wdReplaceOne
If .Find.Forward = True Then
.Collapse Direction:=wdCollapseEnd
Else
.Collapse Direction:=wdCollapseStart
End If
.Find.Execute
End With
End Sub

מאת: [email protected]

[ymy8... gmail.c - ארכיון]

תאריך ההודעה המקורית: 19/02/2023 10:58

אני יודע איך לעשות בעצמי, וסתם התעצלתי לעשות זאת, וכן סמכתי עליו שבדק את כל
האופציות ועשה זאת כראוי וכו'.
בברכה מרובה.
יוסף מיכאל יוסקוביץ
0548496207

[ymy8... gmail.c - ארכיון]

תאריך ההודעה המקורית: 19/02/2023 11:07

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

[מעשה הכתב - ארכיון]

תאריך ההודעה המקורית: 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:49

לא עברתי בעיון על כל התכתובות, אשתף איפוא במאקרו שעשיתי ושהוכיחה את עצמה:
קודם כל הגדרתי את ההעתקות בבר אילן כך שהכותרת תוצב בשורה נפרדת מהטקסט עצמו
וגם תוקף בסוגריים,
אחר כך העתקתי קטע מבר אילן, הקלטתי מאקרו והקציתי קיצור מקשים, הדבקת המועתק,
הקלדה של מרכאות בסוף הפסקה, העברת הסמן לתחילת הפסקה (ע"י הקשה על קונטרול +
חץ למעלה), הקלדה חוזרת של מרכאות וסיום ההקלטה.
מה שקרה כעת הוא שקבלתי אמנם טקסט ממורכאת כמו שרציתי, אך הכותרת היתה בשורה
נפרדת. לכן הקלטתי שוב מאקרו *ולאחר *התהליכים הנ"ל צירפתי את שורת הכותרת
לפסקת הטקסט, כעת התוצאה היתה מושלמת!
אודה, בתחילה גם לא הערכתי את המאקרו שיבין את הכל, אבל לשבחו ייאמר שהוא
הוכיח את עצמו...

[מעשה הכתב - ארכיון]

תאריך ההודעה המקורית: 19/02/2023 12:06

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

[ע נר - ארכיון]

תאריך ההודעה המקורית: 19/02/2023 13:37

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

[ymy8... gmail.c - ארכיון]

תאריך ההודעה המקורית: 19/02/2023 14:16

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

[אריכא - ארכיון]

תאריך ההודעה המקורית: 19/02/2023 16:47

הרב יוסקוביץ, על איזה מאקרו מדובר?

מאת: [email protected]

[ymy8... gmail.c - ארכיון]

תאריך ההודעה המקורית: 19/02/2023 16:57

ניסיתי את כל המאקרואים שהועלו בשרשור.
בברכה מרובה.
יוסף מיכאל יוסקוביץ
0548496207

[אריכא - ארכיון]

תאריך ההודעה המקורית: 20/02/2023 00:27

אכן מורכב (למי שאינו חפץ בהפרדה של שורה בין המקור לציטוט כברירת מחדל)
ניסינו מכמה כיוונים

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

ברור לי שישנה דרך למאקרו יעיל, אבל צריך ממש להכיר את השפה...

מאת: [email protected]