מציאת ראשי תיבות אקסס

ארי4791

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

moishy

משתמש סופר מקצוען
מנוי פרימיום
בבקשה
קוד:
Public Function fMyFunction(strInput As String) As String
    Dim arr() As String
    Dim i As Long
    Dim strTemp As String

    arr = Split(strInput)
    If UBound(arr) = 0 Then
        fMyFunction = strInput
    Else
        For i = LBound(arr) To UBound(arr)
            strTemp = strTemp & Left(arr(i), 1)
        Next
        fMyFunction = strTemp
    End If
End Function
 

סוגרים שידוך

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

סוגרים שידוך

משתמש מקצוען
מוזיקה ונגינה
עריכה תורנית
מצאתי אפשרות לעשות את זה בוורד על ידי החלפה של
([a-zA-Z])[a-zA-Z]{1,}
להחליף ב
\1
אבל זה עובד רק על אנגלית, האם יש אפשרות לומר לי מה לעשות כדי שזה יעבוד גם על עברית?
 

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

הפרק היומי

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


תהילים פרק קכג

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

לוח מודעות

למעלה