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

חיטובים

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

tkh

משתמש מקצוען
עימוד ספרים
עריכה תורנית
מדוע אתה אומר שאי אפשר למצוא?
 

חיטובים

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

שיקול דעת

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

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

חיטובים

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

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

שיקול דעת

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

חיטובים

משתמש סופר מקצוען
מנוי פרימיום
בוגר/תלמיד פרוג
עיצוב גרפי
עימוד ספרים
זה בלי סגנון
 

tkh

משתמש מקצוען
עימוד ספרים
עריכה תורנית
עם ההגדרה הזו:
ללא שם.png

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

חיטובים

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

שיקול דעת

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

חיטובים

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

ניסים פנירי

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

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

ניסים פנירי

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

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

שיקול דעת

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

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

שיקול דעת

משתמש סופר מקצוען
מנוי פרימיום
בוגר/תלמיד פרוג
עיצוב גרפי
עריכה תורנית
עימוד ספרים
תנסה אם זה עובד אצלך. זה אמור לשנות מ-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.76, וכשמגדירים לו חיפוש והחלפה לפיסקאות עם מרווח 0.76 הוא לא יודע להתמודד עם זה. אם תשנה את המרווח ל 0.7 ותעשה חיפוש והחלפה והכל יהיה בסדר.

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

חיטובים

משתמש סופר מקצוען
מנוי פרימיום
בוגר/תלמיד פרוג
עיצוב גרפי
עימוד ספרים
תנסה אם זה עובד אצלך. זה אמור לשנות מ-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, ועדיין לא מוצא.
אבל אולי אפשר להשתמש במאקרו הזה כדי לתת לפיסקה צבע או סגנון.
 

ניסים פנירי

משתמש מקצוען
מנוי פרימיום
בוגר/תלמיד פרוג
עיצוב גרפי
עימוד ספרים
למה אצלי זה כן עובד?? ממש משונה
 

שיקול דעת

משתמש סופר מקצוען
מנוי פרימיום
בוגר/תלמיד פרוג
עיצוב גרפי
עריכה תורנית
עימוד ספרים
זה הפך את הכניסות ל-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
 

אולי מעניין אותך גם...

הפרק היומי

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


תהילים פרק קיט ק'

קמה קָרָאתִי בְכָל לֵב עֲנֵנִי יְהוָה חֻקֶּיךָ אֶצֹּרָה:קמו קְרָאתִיךָ הוֹשִׁיעֵנִי וְאֶשְׁמְרָה עֵדֹתֶיךָ:קמז קִדַּמְתִּי בַנֶּשֶׁף וָאֲשַׁוֵּעָה (לדבריך) לִדְבָרְךָ יִחָלְתִּי:קמח קִדְּמוּ עֵינַי אַשְׁמֻרוֹת לָשִׂיחַ בְּאִמְרָתֶךָ:קמט קוֹלִי שִׁמְעָה כְחַסְדֶּךָ יְהוָה כְּמִשְׁפָּטֶךָ חַיֵּנִי:קנ קָרְבוּ רֹדְפֵי זִמָּה מִתּוֹרָתְךָ רָחָקוּ:קנא קָרוֹב אַתָּה יְהוָה וְכָל מִצְוֹתֶיךָ אֱמֶת:קנב קֶדֶם יָדַעְתִּי מֵעֵדֹתֶיךָ כִּי לְעוֹלָם יְסַדְתָּם:
נקרא  7  פעמים

לוח מודעות

למעלה