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

[Rocket Studio]

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

(ראיתי שפורסם מאקרו לצורך העניין לפני מס' שנים
אך לא הצלחתי להסתדר איתו
יצוין שיש לי וורד 2010)

תודה מראש

 

[eliezer]

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

(ראיתי שפורסם מאקרו לצורך העניין לפני מס' שנים
אך לא הצלחתי להסתדר איתו
יצוין שיש לי וורד 2010)

תודה מראש

מה קורה שאתה שומר בשם לקובץ טקסט נקי. זה גם מעלים אתהטקסט?

 

[Rocket Studio]

מה קורה שאתה שומר בשם לקובץ טקסט נקי. זה גם מעלים אתהטקסט?

לא כ"כ הבנתי את השאלה
אם הכוונה לשמירת הקובץ בלי תיבות הטקסט - מסתבר שאז הטקסט שלא בתיבות נשאר ולא נעלם


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

 

[eliezer]

לא כ"כ הבנתי את השאלה
אם הכוונה לשמירת הקובץ בלי תיבות הטקסט - מסתבר שאז הטקסט שלא בתיבות נשאר ולא נעלם


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

אם אתה בוחר בתפריט הוורד שמירה בשם. ושם בסוג הקובץ בוחר טקסט נקי (txt)
האם זה מאבד את התיבות?

 

[eliezer]

לא כ"כ הבנתי את השאלה
אם הכוונה לשמירת הקובץ בלי תיבות הטקסט - מסתבר שאז הטקסט שלא בתיבות נשאר ולא נעלם


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

נ"ב בברירת המחדל למיטב זכרוני כל תיבה מעוגנת בוורד אם היא בהגדרה בתוך השורה. מתקבלת כאובייקט מעוגן באינדזיין.

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

 

[Rocket Studio]

האם יש לך המאקרו הנ"ל?
אני לא מוצאת אותו

 

[ונתנו10]

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

 

[ונתנו10]

נראה לי שזה המאקרו

 

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

אמנם מאקרו ישן, אבל כיון שקיבל הפניה לאחרונה [כאן].
הייתי מציע לתקן איזה משהו במאקרו הזה, כיון שעל פניו הוא לא מצליח לרוץ ולטפל בכל תיבות הטקסט, לכאורה כיון שבמהלך הלולאה נעשית המחיקה של תיבת הטקסט: shp.delete.
כמו כן נראה לי מיותר להכניס פתאום טקסט לועזי: Textbox start לציין התחלה של תיבת טקסט ו- Textbox end, כאשר המאקרו מכניס ממילא את הטקסט בתוך גובלים זוית כפולים.
לכן הנה המאקרו שלפי דעתי יותר מתאים לזה (גם צירפתי קובץ וורד לבדיקה):

Sub RemoveTextBox3()
    Dim doAgain As Boolean
    Dim shp As Shape
    Dim oRngAnchor As range
    Dim sString As String
    Dim bFound As Boolean

Again:
    doAgain = False
    For Each shp In ActiveDocument.Shapes
        If shp.Type = msoTextBox Then
            If Not bFound Then bFound = True
            ' 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 _
                  "<< " & sString & " >>"
            End If
            shp.Delete
            
        End If
       
        
    Next shp
    
    For Each shp In ActiveDocument.Shapes
        If shp.Type = msoTextBox Then
            doAgain = True
            Exit For
        End If
    Next shp
    
    If doAgain Then GoTo Again
    
   If bFound Then
     MsgBox ("TextBox cancel finnished!")
    Else
     MsgBox ("No TextBox where found!")
    End If
    
End Sub

 

[מרקר]

איך אני מטמיעה את הקוד?
איפה?
יש איזו הדרכה?
תודה גדולה!!!

 

[סופריא - הוצאה לאור]

אמנם מאקרו ישן, אבל כיון שקיבל הפניה לאחרונה [כאן].
הייתי מציע לתקן איזה משהו במאקרו הזה, כיון שעל פניו הוא לא מצליח לרוץ ולטפל בכל תיבות הטקסט, לכאורה כיון שבמהלך הלולאה נעשית המחיקה של תיבת הטקסט: shp.delete.
כמו כן נראה לי מיותר להכניס פתאום טקסט לועזי: Textbox start לציין התחלה של תיבת טקסט ו- Textbox end, כאשר המאקרו מכניס ממילא את הטקסט בתוך גובלים זוית כפולים.
לכן הנה המאקרו שלפי דעתי יותר מתאים לזה (גם צירפתי קובץ וורד לבדיקה):

Sub RemoveTextBox3()
    Dim doAgain As Boolean
    Dim shp As Shape
    Dim oRngAnchor As range
    Dim sString As String

Again:
    doAgain = False
    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 _
                  "<< " & sString & " >>"
            End If
            shp.Delete
        End If
    Next shp
   
    For Each shp In ActiveDocument.Shapes
        If shp.Type = msoTextBox Then
            doAgain = True
            Exit For
        End If
    Next shp
   
    If doAgain Then GoTo Again
End Sub

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