קהילת המעמדים

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

עימוד >> תוכן מקצועי

קהילת מעמדים בתוכנת תג

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

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

הנה המאקרו:
קוד:
Sub ConvertListToTextPro()
    Dim aList As List
    Dim rng As Range
    Dim para As Paragraph
    scode = InputBox("Code to insert for each list item:", "Convert List To Text + Insert Code", "{$}")
    For Each aList In ActiveDocument.Lists
        For Each para In aList.Range.Paragraphs
            Set rng = para.Range
            If rng.ListFormat.ListTemplate Is Nothing Then GoTo ContinueForLoop
            rng.InsertBefore scode
            rng.End = rng.End - 1
            rng.Collapse wdCollapseEnd
ContinueForLoop:
        Next
    Next
    ActiveDocument.ConvertNumbersToText wdNumberParagraph
End Sub

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

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

הצטרפות לניוזלטר

איזה כיף שהצטרפתם לניוזלטר שלנו!

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

לוח מודעות

הפרק היומי

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


תהילים פרק כה

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