כללי שאלה | קובץ וורד מורכב, איך מייבאים לאינדיזיין?

[הסתר_פנים]

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

 

[ונתנו10]

אפשר לעשות מאקרו קטן שעושה זאת.

 

[ונתנו10]

הנה הנוסחה: לשנות תיבות טקסט לFRAME (מה שעושה אח"כ תיבת טקסט מעוגן באינדיזיין)

Dim oShp As Shape
For Each oShp In ActiveDocument.Shapes
If oShp.Type = msoTextBox Then oShp.ConvertToFrame
Next oShp


והנה הנוסחה: לשנות תיבות טקסט לטקסט רגיל
Dim oShp As Shape
Dim i As Integer
For Each oShp In ActiveDocument.Shapes
If oShp.Type = msoTextBox Then oShp.ConvertToFrame
Next oShp
For i = ActiveDocument.Frames.Count To 1 Step -1
With ActiveDocument.Frames(i)
.Borders.Enable = False
With .Shading
.Texture = wdTextureNone
.ForegroundPatternColor = wdColorAutomatic
.BackgroundPatternColor = wdColorAutomatic
End With
.Delete
End With
Next
End Sub

 

[ונתנו10]

לוורד-ארטים עוד לא מצאתי.

 

[הסתר_פנים]

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

 

[ונתנו10]

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

Sub TextBoxToFrame()
'
' TextBoxToFrame Macro
' Macro created 3/4/2008 by nuti
'
Dim oShp As Shape
For Each oShp In ActiveDocument.Shapes
If oShp.Type = msoTextBox Then oShp.ConvertToFrame
Next oShp
End Sub

 

[יענקי שכטר]

כאן הביאו הסבר מפורט מאוד ל'מאקרו' בוורד. מומלץ.

 

[ונתנו10]

יש לי כאן קובץ ווארד. ייתכן וזה לא יעבוד. כי הגדרות הסקריוטי עומד על HIGH.
אפשר אולי לסדר את זה בפקודות>מאקרו>סקיוריטי (?) ושם על LOW
כמו כן ב: TOOLS<options><security><macro security="">
לעשות על LOW
אולי זה יעבוד. וגם אם לא תעתיק מכאן למאקרו חדש.</macro></security></options>

 

[RCpro]

תהנו מהחיים.
המאקרו באדיבות ונתנו.
הפיתרון באדיבותי.
צפה בקובץ המצורף 7549

יש לי כאן קובץ ווארד. ייתכן וזה לא יעבוד. כי הגדרות הסקריוטי עומד על HIGH.
אפשר אולי לסדר את זה בפקודות>מאקרו>סקיוריטי (?) ושם על LOW
כמו כן ב: TOOLS<options><security><macro security="">
לעשות על LOW
אולי זה יעבוד. וגם אם לא תעתיק מכאן למאקרו חדש.</macro></security></options>

זה לא עוזר. לידיעתך...

 

[ונתנו10]

אתה צדיק אתה. תודה!