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

[בטטה 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]

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

 

[מלבב]

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

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

לחצו על קונטרול + 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/ar...75c-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

ניסיתי ולא עבד, משהו יכול לעזור בענין?

 

[moishy]

ניסיתי ולא עבד, משהו יכול לעזור בענין?

איזה גירסה של אופיס?

 

[2u2]

איזה גירסה של אופיס?

2016

 

[moishy]

2016

בדקתי הרגע, עבד נפלא.

 

[2u2]

בדקתי הרגע, עבד נפלא.

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

 

[moishy]

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

ניתן לעשות זאת בקלות, על בסיס המאקרו הנ"ל אך מכיון שזה נושא שונה, יש לפתוח עבורו אשכול חדש.