עזרה בוורד הקלטתי מאקרו ובהפעלה לא עובד תקין

שיקול דעת

משתמש סופר מקצוען
מנוי פרימיום
בוגר/תלמיד פרוג
עיצוב גרפי
עריכה תורנית
עימוד ספרים
הקלטתי מאקרו לפעולה מסוימת, אולם כשאני מפעיל המאקרו, בלי ששיניתי כלום, זה לא עובד כמו כאשר הקלטתי.
מצו"ב נוסחת המאקרו, והבאג מראה על השורה האחרונה:
קוד:
Sub החלפת_וגו_4()
'
' החלפת_וגו_4 Macro
'
'
    Selection.Find.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
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
    Selection.Cut
    Selection.TypeBackspace
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "("
        .Replacement.Text = ""
        .Forward = False
        .Wrap = wdFindAsk
        .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
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
End Sub
 

אפר

סתם מתעניין...
מנוי פרימיום
הקלטתי מאקרו לפעולה מסוימת, אולם כשאני מפעיל המאקרו, בלי ששיניתי כלום, זה לא עובד כמו כאשר הקלטתי.
מצו"ב נוסחת המאקרו, והבאג מראה על השורה האחרונה:
קוד:
Sub החלפת_וגו_4()
'
' החלפת_וגו_4 Macro
'
'
    Selection.Find.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
    Selection.MoveRight Unit:=wdCharacter, Count:=1
    Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
    Selection.Cut
    Selection.TypeBackspace
    Selection.Find.ClearFormatting
    With Selection.Find
        .Text = "("
        .Replacement.Text = ""
        .Forward = False
        .Wrap = wdFindAsk
        .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
    Selection.MoveLeft Unit:=wdCharacter, Count:=1
    Selection.PasteAndFormat (wdFormatOriginalFormatting)
End Sub
תנסה להוריד את הסוגריים בשורה הזו
 

שיקול דעת

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

Yisrael

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

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

שיקול דעת

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

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

הפרק היומי

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


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

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

לוח מודעות

למעלה