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

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

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

ייש"כ על העצות כבר סייעני החכם @ע נר [email protected] בעצות מועילות
ויעילות.

מאת: [email protected]

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

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

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

מאת: [email protected]

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

תאריך ההודעה המקורית: 18/02/2023 23:38

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

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

תאריך ההודעה המקורית: 18/02/2023 23:49

נראה מעניין! אבל איך הוא מזהה שזה הקטע המועתק? בדקת זאת בפועל כבר?
בברכה מרובה.
יוסף מיכאל יוסקוביץ
0548496207

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

תאריך ההודעה המקורית: 18/02/2023 23:53

לא הבנתי את השאלה.
חלק מההקלטה זה הדבקת קטע מבר אילן (קונטרול+ה), שרלוונטי לכל קטע שתבחר.
בדקתי את המאקרו ולכאורה הוא עושה את העבודה.

מאת: [email protected]

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

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

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

[אשר מאיר שולמן - ארכיון]

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

הבעיה הרבה יותר גדולה, כי בכל העתקה הוא יעשה גרשיים לפני ואחרי

מאת: [email protected]

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

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

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

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

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

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

כמו כן היותר פשוט, להקליט מאקרו באופן הבא:
כתיבת 2 מרכאות
העברת הסמן 1 אחורה
הדבקה
העברת הסמן 1 קדימה

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

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

הנה המאקרו באופן שציינתי למעלה:
(כתיבת 2 מרכאות, העברת הסמן 1 אחורה, הדבקה, העברת הסמן 1 קדימה)

Sub מרכאות ()
'
' מרכאות Macro
'
'
Selection.TypeText Text:=""""""
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.PasteAndFormat (wdFormatSurroundingFormattingWithEmphasis)
Selection.MoveRight Unit:=wdCharacter, Count:=1

End Sub

מאת: [email protected]

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

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