• פרוג למען העצמאים!

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

    למימוש ההטבה, אין צורך בהקלדת קוד קופון, פשוט פרסמו!

    לתשומת לב! המבצע עד חג הפסח

    למעבר ליצירת קמפיין >>>
     
    להתייעצות ועזרה בין חברי הפורום >>>
     
    לחבילת פוש לעסקים לחץ כאן >>>
     

העתקת הטקסט מתיבות טקסט מרובות בבת אחת

בטטה 1

משתמש רשום
יש לי מסמך בוורד ובו תיבות טקסט רבות. אני צריכה להעתיק את המלל כך שיצא מתוך התיבות ויהפוך למלל רציף. יש דרך קצרה לעשות את זה? העתקה של כל תיבה ותיבה באופן ידני תיקח לי שעות!

תודה לכל המסייעים!
 

moishy

משתמש מקצוען
תפעיל מאקרו זה:
קוד:
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
קרדיט: http://word.tips.net/T001690_Removing_All_Text_Boxes_In_a_Document.html
 

בטטה 1

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

מלבב

משתמש רשום
נכתב ע"י bdtbdt;1936203:
יש לי מסמך בוורד ובו תיבות טקסט רבות. אני צריכה להעתיק את המלל כך שיצא מתוך התיבות ויהפוך למלל רציף. יש דרך קצרה לעשות את זה? העתקה של כל תיבה ותיבה באופן ידני תיקח לי שעות!

תודה לכל המסייעים!
לחצו על קונטרול + A והדביקו לתוך פנקס רשימות במחשב. ומשום חזרה לקובץ הוורד הישן / החדש.

הערה: בהדבקה לפנקס רשימות כל העיצובים של הטקסט יוסרו.
 

moishy

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

2u2

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

2u2

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

moishy

משתמש מקצוען
אני חשבתי שהמאקרו נותן להעתיק את כל הטקסט בבת אחת (אני צריך להוציא אותו לקובץ אחר), והפעולה שהמאקרו עושה, זה רק להוציא את הטקסט החוצה מהתיבות..
מצאתי מאקרו במקום אחר אבל הוא לא עובד.
ניתן לעשות זאת בקלות, על בסיס המאקרו הנ"ל אך מכיון שזה נושא שונה, יש לפתוח עבורו אשכול חדש.
 
  • תודה
Reactions: 2u2

לוח דרושים

למעלה