אופיס 365 מאקרו - פיסקאות עם כניסה ימנית

חיטובים · 7/7/19

יש בעיה בוורד מגירסה 2007 עד היום, שאי אפשר למצוא פיסקאות עם כניסה ימנית ע"י חיפוש/החלפה (הכוונה לכניסה ימנית על כל הפיסקה כנהוג בציטוטים).
חשבתי אולי יהיה אפשר לפתור זאת באמצעות מאקרו שיכניס קוד בתחילת כל פיסקה כזו, לצורך ייבוא לתג.
לכאורה זה מאקרו די פשוט, אבל אין לי מושג בזה. מישהו מוכן לעזור?

tkh · 7/7/19

מדוע אתה אומר שאי אפשר למצוא?

חיטובים · 7/7/19

מפני שכך המציאות. נסה ותראה

שיקול דעת · 8/7/19

נכתב ע"י חיטובים:
מפני שכך המציאות. נסה ותראה

ניסיתי וראיתי ש... כן מוצא! (וורד 2010)
אבל לצורך הענין, נסית בפורום תוכנת תג? הלא אם זה שימושי לצורך עימוד בתג, אני מאמין שיש שם מישהו שיודע להסתדר עם זה.

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

חיטובים · 8/7/19

נכתב ע"י שיקול דעת:
ניסיתי וראיתי ש... כן מוצא! (וורד 2010)
אבל לצורך הענין, נסית בפורום תוכנת תג? הלא אם זה שימושי לצורך עימוד בתג, אני מאמין שיש שם מישהו שיודע להסתדר עם זה.

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

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

שיקול דעת · 8/7/19

גם ע"י חיפוש סגנון כמו שכתבתי לא הצלחת?

חיטובים · 8/7/19

זה בלי סגנון

tkh · 8/7/19

עם ההגדרה הזו:

אני בהחלט מצליח למצוא.

חיטובים · 8/7/19

אני מכיר את זה ואצלי זה לא עובד, וורד 2019. וגם בגרסאות הקודמות לא עבד לי.

שיקול דעת · 8/7/19

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

חיטובים · 8/7/19

הרב שיקול דעת,
ב"ה יש לי נסיון רב בזה. האמן לי שאילו היתה דרך אחרת חוץ ממאקרו הייתי כבר עושה זאת.

ניסים פנירי · 8/7/19

@חיטובים , לא יודע למה לי זה כן מוצא... (2019)

יש מצב שאתה מעלה חלקיק מהקובץ רק בשביל להיווכח בבעיה?

חיטובים · 8/7/19

נכתב ע"י ניסים פנירי:
@חיטובים , לא יודע למה לי זה כן מוצא... (2019)

יש מצב שאתה מעלה חלקיק מהקובץ רק בשביל להיווכח בבעיה?

הנה

ניסים פנירי · 8/7/19

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

כעת רק נשארת השאלה איך אתה אמור לחפש את כל הפיסקאות הנ"ל... אני אנסה למצוא פתרון בעז"ה.

שיקול דעת · 8/7/19

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

אבל זה לא מצב תקין, כי וורד אמור להתמודד גם עם זה.

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

שיקול דעת · 8/7/19

תנסה אם זה עובד אצלך. זה אמור לשנות מ-0.76 ל-0.7

קוד:

Sub Macro1()
'
' Macro1 Macro
'
'
    Selection.Find.ClearFormatting
    With Selection.Find.ParagraphFormat
        .LeftIndent = CentimetersToPoints(0.76)
        .CharacterUnitLeftIndent = 0
    End With
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.ParagraphFormat
        .LeftIndent = CentimetersToPoints(0.7)
        .CharacterUnitLeftIndent = 0
    End With
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

חיטובים · 8/7/19

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

כעת רק נשארת השאלה איך אתה אמור לחפש את כל הפיסקאות הנ"ל... אני אנסה למצוא פתרון בעז"ה.

בתחילה זה היה 0.5 וגם אז לא הצליח למצוא. רק כשהמרתי את הקובץ ל-RTF הוא נהפך ל-0.76.

חיטובים · 8/7/19

נכתב ע"י שיקול דעת:

תנסה אם זה עובד אצלך. זה אמור לשנות מ-0.76 ל-0.7

קוד:

Sub Macro1()
'
' Macro1 Macro
'
'
    Selection.Find.ClearFormatting
    With Selection.Find.ParagraphFormat
        .LeftIndent = CentimetersToPoints(0.76)
        .CharacterUnitLeftIndent = 0
    End With
    Selection.Find.Replacement.ClearFormatting
    With Selection.Find.Replacement.ParagraphFormat
        .LeftIndent = CentimetersToPoints(0.7)
        .CharacterUnitLeftIndent = 0
    End With
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub

זה הפך את הכניסות ל-0.7, ועדיין לא מוצא.
אבל אולי אפשר להשתמש במאקרו הזה כדי לתת לפיסקה צבע או סגנון.

ניסים פנירי · 8/7/19

למה אצלי זה כן עובד?? ממש משונה

שיקול דעת · 8/7/19

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

אז הקלטתי לך מאקרו אחר, לשנות כל ה-0.7 לצבע גופן אחר.

קוד:

Sub Macro1()
'
' Macro1 Macro
'
'
    Selection.Find.ClearFormatting
    With Selection.Find.ParagraphFormat
        .LeftIndent = CentimetersToPoints(0.7)
        .CharacterUnitLeftIndent = 0
    End With
    Selection.Find.Replacement.ClearFormatting
    Selection.Find.Replacement.Font.Color = -654245889
    With Selection.Find
        .Text = ""
        .Replacement.Text = ""
        .Forward = True
        .Wrap = wdFindContinue
        .Format = True
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
End Sub