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

[יוחנן ק]

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




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

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

 

[יוחנן ק]

הקפצה

 

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

לפי מה שבדקתי בתוך הקובץ, נראה כך (גם סרטון מצורף):
למעשה בוורד יש אפשרות להכניס תמונה כחלק מהטקסט (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

 

[יוחנן ק]

יישר כוח !!

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

 

[yoel32]

והיאך מחפשים טקסט בתוך מסגרת. רוצים להחליף את המסגרת בקוד שיעמוד בתחילת הפיסקה

 

[יוחנן ק]

והיאך מחפשים טקסט בתוך מסגרת. רוצים להחליף את המסגרת בקוד שיעמוד בתחילת הפיסקה

לא הבנתי,
אתה מתכוון אולי לטקסט מעוגן ?

 

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

והיאך מחפשים טקסט בתוך מסגרת. רוצים להחליף את המסגרת בקוד שיעמוד בתחילת הפיסקה

לא נראה לי שהשאלה קשורה לנושא של האשכול, אבל אולי תראו את המאקרו הזה:

כללי - המרת תיבות טקסט בוורד לצורך העברה לאינדיזיין

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

www.prog.co.il