Sub RemoveTextBox2()
Dim shp As Shape
Dim oRngAnchor As Range
Dim sString As String
For Each shp In ActiveDocument.Shapes
If shp.Type = msoTextBox Then
' copy text to string, without last paragraph mark
sString = Left(shp.TextFrame.TextRange.Text, _
shp.TextFrame.TextRange.Characters.Count - 1)
If Len(sString) > 0 Then
' set the range to insert the text
Set oRngAnchor = shp.Anchor.Paragraphs(1).Range
' insert the textbox text before the range object
oRngAnchor.InsertBefore _
"Textbox start << " & sString & " >> Textbox end"
End If
shp.delete
End If
Next shp
End Sub
לחצו על קונטרול + A והדביקו לתוך פנקס רשימות במחשב. ומשום חזרה לקובץ הוורד הישן / החדש.נכתב ע"י bdtbdt;1936203:יש לי מסמך בוורד ובו תיבות טקסט רבות. אני צריכה להעתיק את המלל כך שיצא מתוך התיבות ויהפוך למלל רציף. יש דרך קצרה לעשות את זה? העתקה של כל תיבה ותיבה באופן ידני תיקח לי שעות!
תודה לכל המסייעים!
Sub RemoveTextBoxRevised()
Dim shp As Shape
Dim oRngAnchor As Range
Dim sString As String
Dim lCounter As Long
Dim i As Long
For Each shp In ActiveDocument.Shapes
If shp.Type = msoTextBox Then
lCounter = lCounter + 1
End If
Next
For i = lCounter To 1 Step -1
With ActiveDocument.Shapes(i)
If .Type = msoTextBox Then
sString = Left(.TextFrame.TextRange.Text, .TextFrame.TextRange.Characters.Count - 1)
If Len(sString) > 0 Then
Set oRngAnchor = .Anchor.Paragraphs(1).Range
oRngAnchor.InsertBefore sString
.Delete
End If
End If
End With
Next
End Sub
ניסיתי ולא עבד, משהו יכול לעזור בענין?הודות להערתו של צמרא, ניסיתי את הקוד וראיתי שבאמת יש בו בעיות משמעותיות. הנה גירסה משופרת ובדוקה.
קוד:Sub RemoveTextBoxRevised() Dim shp As Shape Dim oRngAnchor As Range Dim sString As String Dim lCounter As Long Dim i As Long For Each shp In ActiveDocument.Shapes If shp.Type = msoTextBox Then lCounter = lCounter + 1 End If Next For i = lCounter To 1 Step -1 With ActiveDocument.Shapes(i) If .Type = msoTextBox Then sString = Left(.TextFrame.TextRange.Text, .TextFrame.TextRange.Characters.Count - 1) If Len(sString) > 0 Then Set oRngAnchor = .Anchor.Paragraphs(1).Range oRngAnchor.InsertBefore sString .Delete End If End If End With Next End Sub
בנוגע לשימוש במאקרו ראו כאן https://support.office.com/he-il/article/כתיבה-או-הקלטה-של-מאקרו-cd56fb86-d8b2-475c-ba39-9728389feeeb?ui=he-IL&rs=he-IL&ad=IL
איזה גירסה של אופיס?ניסיתי ולא עבד, משהו יכול לעזור בענין?
2016איזה גירסה של אופיס?
בדקתי הרגע, עבד נפלא.2016
הצדק עם מר.בדקתי הרגע, עבד נפלא.
ניתן לעשות זאת בקלות, על בסיס המאקרו הנ"ל אך מכיון שזה נושא שונה, יש לפתוח עבורו אשכול חדש.אני חשבתי שהמאקרו נותן להעתיק את כל הטקסט בבת אחת (אני צריך להוציא אותו לקובץ אחר), והפעולה שהמאקרו עושה, זה רק להוציא את הטקסט החוצה מהתיבות..
מצאתי מאקרו במקום אחר אבל הוא לא עובד.
לוח לימודים
מסלולי לימוד שאפשר לההצטרף
אליהם ממש עכשיו:
8.05
ל' ניסן
פתיחת מסלול
אוטומציות עסקיות, בוטים והטמעת מערכות מידע
מלגות גבוהות!
9.05
א' אייר
הנחת ענק!
ירושלמי?
יש לנו מלגה מטורפת עבורך! קורס במימון כמעט מלא!!
ההרשמה בעיצומה
28.05
כ' אייר
פתיחת מסלול מורחב:
פיתוח ובניית אתרים
מלגות גבוהות!
2.06
כ"ה אייר
פתיחת מסלול
קורס עריכת וידאו
מלגות והנחות משמעותיות!
24.06
י"ח סיוון
פתיחת מסלול
מאסטר בשיווק דיגיטלי
מלגות גבוהות!
27.06
כ"א סיוון
פתיחת מסלול
עיצוב ואדריכלות פנים
מלגות גבוהות!
27.06
כ"א סיוון
השקה חגיגית!
עיצוב גרפי ודיגיטל - בסילבוס חדש ומטורף!
מלגות גבוהות!
7.05
כ"ט ניסן
#רקבפרוג
הרצאה מרתקת:
מלחמה מבעד לעדשה
עם אילן לורנצי
שיתוף מטלטל ומיוחד על צילומים בזמן מלחמה ותיעודים יותאי דופן זווית יוצאת דופן מתוך עזה והעוטף ועד הצפון
לתלמידים ובוגרים בלבד!
תהילים פרק קלב
א שִׁיר הַמַּעֲלוֹת זְכוֹר יְהוָה לְדָוִד אֵת כָּל עֻנּוֹתוֹ:ב אֲשֶׁר נִשְׁבַּע לַיהוָה נָדַר לַאֲבִיר יַעֲקֹב:ג אִם אָבֹא בְּאֹהֶל בֵּיתִי אִם אֶעֱלֶה עַל עֶרֶשׂ יְצוּעָי:ד אִם אֶתֵּן שְׁנַת לְעֵינָי לְעַפְעַפַּי תְּנוּמָה:ה עַד אֶמְצָא מָקוֹם לַיהוָה מִשְׁכָּנוֹת לַאֲבִיר יַעֲקֹב:ו הִנֵּה שְׁמַעֲנוּהָ בְאֶפְרָתָה מְצָאנוּהָ בִּשְׂדֵי יָעַר:ז נָבוֹאָה לְמִשְׁכְּנוֹתָיו נִשְׁתַּחֲוֶה לַהֲדֹם רַגְלָיו:ח קוּמָה יְהוָה לִמְנוּחָתֶךָ אַתָּה וַאֲרוֹן עֻזֶּךָ:ט כֹּהֲנֶיךָ יִלְבְּשׁוּ צֶדֶק וַחֲסִידֶיךָ יְרַנֵּנוּ:י בַּעֲבוּר דָּוִד עַבְדֶּךָ אַל תָּשֵׁב פְּנֵי מְשִׁיחֶךָ:יא נִשְׁבַּע יְהוָה לְדָוִד אֱמֶת לֹא יָשׁוּב מִמֶּנָּה מִפְּרִי בִטְנְךָ אָשִׁית לְכִסֵּא לָךְ:יב אִם יִשְׁמְרוּ בָנֶיךָ בְּרִיתִי וְעֵדֹתִי זוֹ אֲלַמְּדֵם גַּם בְּנֵיהֶם עֲדֵי עַד יֵשְׁבוּ לְכִסֵּא לָךְ:יג כִּי בָחַר יְהוָה בְּצִיּוֹן אִוָּהּ לְמוֹשָׁב לוֹ:יד זֹאת מְנוּחָתִי עֲדֵי עַד פֹּה אֵשֵׁב כִּי אִוִּתִיהָ:טו צֵידָהּ בָּרֵךְ אֲבָרֵךְ אֶבְיוֹנֶיהָ אַשְׂבִּיעַ לָחֶם:טז וְכֹהֲנֶיהָ אַלְבִּישׁ יֶשַׁע וַחֲסִידֶיהָ רַנֵּן יְרַנֵּנוּ:יז שָׁם אַצְמִיחַ קֶרֶן לְדָוִד עָרַכְתִּי נֵר לִמְשִׁיחִי:יח אוֹיְבָיו אַלְבִּישׁ בֹּשֶׁת וְעָלָיו יָצִיץ נִזְרוֹ: