וורד חיפוש תמונה בוורד - פספוסים

[יוחנן ק]

אני מנסה לשתול קוד לפני כל תמונה בוורד,
יש הרבה תמונות ש'מתפספסות',




האם יש למישהו פתרון לזה ?

אולי תוכנת "שימושי לוורד" של @ישורון קובי מתמודדת עם הבעיה ?

 

[יוחנן ק]

הקפצה

 

[ישורון קובי]

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

Sub RemoveShape()
    Dim doAgain As Boolean
    Dim shp As Shape
    Dim oRngAnchor As range

Again:
    doAgain = False
    For Each shp In ActiveDocument.Shapes
        If shp.Type = msoPicture Then
            Set oRngAnchor = shp.Anchor.Paragraphs(1).range
            oRngAnchor.InsertBefore "{{+++}}"
            shp.Delete
        End If
    Next shp
  
    For Each shp In ActiveDocument.Shapes
        If shp.Type = msoPicture Then
            doAgain = True
            Exit For
        End If
    Next shp
  
    If doAgain Then GoTo Again
End Sub

 

[יוחנן ק]

יישר כוח !!

ממש הציל אותי !