איך מחפשים תיבת טקסט בוורד?

[אהרן]

איך מחפשים תיבת טקסט בוורד?

[shraga]

@אהרן
תפרט את הצורך. באיזה תוצאה אתה מעונין.
את זה ראית?
https://www.datanumen.com/blogs/3-effective-ways-find-hidden-text-boxes-word-document/

[אהרן]

@shraga אמר באיך מחפשים תיבת טקסט בוורד?:

@אהרן
תפרט את הצורך. באיזה תוצאה אתה מעונין.
את זה ראית?
https://www.datanumen.com/blogs/3-effective-ways-find-hidden-text-boxes-word-document/

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

אשמח אם תעתיק לפה.

תודה!

[shraga]

@אהרן מי אמר שזה שייך לפיתוח תוכנה,
בכל מקרה יש את זה, יותר מתאים:
https://wordribbon.tips.net/T009169_Removing_All_Text_Boxes_In_a_Document.html

רשום שם להפעיל מאקרו למחיקת תיבות הטקסט כולם הטקסט שבתוכם:

Sub RemoveTextBox1()
Dim shp As Shape
Dim stry As Range
Dim oTxtFrame As TextFrame
Dim j As Long
Dim k As Long
For Each stry In ActiveDocument.StoryRanges
j = stry.ShapeRange.Count
For k = j To 1 Step -1
Set shp = stry.ShapeRange(k)
If shp.Type = msoTextBox Then
shp.Delete
Else
Set oTxtFrame = shp.TextFrame
If oTxtFrame Is Nothing Then
' shape does not have a text frame
Else
If oTxtFrame.HasText Then
oTxtFrame.TextRange.Text = "" ' deletes the text but not the shape
' shp.Delete will delete the shape including its text
End If
End If
End If
Next k
Next stry
End Sub

או מאקרו שמוחק את תיבות הטקסט ומגדיר את הטקסט שבתוכם כטקסט רגיל:

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

[shraga]

יש את התוסף הזה לword, שמכיל גם את הפונקציה הזו:
https://appnee.com/kutools-for-word/

[אהרן]

@shraga אמר באיך מחפשים תיבת טקסט בוורד?:

יש את התוסף הזה לword, שמכיל גם את הפונקציה הזו:
https://appnee.com/kutools-for-word/

"שימו לב! דף זה החזיר קוד שגיאה 403."

[shraga]

@אהרן זה בגלל זה:

[WWW]

@shraga למה לא הבאת קישור לאתר הבית, שההורדה פתוחה בנטפרי?
https://www.extendoffice.com/download.html

בקישור שלך זה חינמי?

[shraga]

@WWW בדף הבית זה בתשלום
כאן זה ללא תשלום