אופיס 365 תיבות טקסט

[vn453]

יש לי ספר בן כ-600 עמודים. תיבות טקסט קיימות בשוליים שמאליים של כל דף אי-זוגי ובשוליים ימניים של כל דף זוגי.
כל המלל בתיבות הטקסט מיושר כעת לצד ימין. אני מעוניין שהמלל בתיבות הטקסט המצויות בדף זוגי בלבד יהיה מיושר לשמאל. איך עושים זאת?
כמו כן, תיבות הטקסט אינן בעלות אורך אחיד. אני מעוניין שהן יהיו באורך מדויק של 2.6 ס"מ, הגובה שלהן יתיישר לפי כמות המלל בכל תיבה, והמרחק של של תיבה משולי הדף יהיה 2.5 ס"מ. איך עושים זאת?
כמו כן איך אפשר להפעיל את תיבת הדו-שיח "חיפוש והחלפה" רק על תיבות הטקסט.
אשמח אם מי מחברי הפורום יוכל להשיבני (גם על אחד הדברים).

 

[kap]

כמו כן איך אפשר להפעיל את תיבת הדו-שיח "חיפוש והחלפה" רק על תיבות הטקסט.

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

 

[Rרחמים]

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

 

[moishy]

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

Sub Demo()

    Dim oTextBox As Shape
    Dim intPageNumber As Integer

    For Each oTextBox In ActiveDocument.Shapes
        If oTextBox.Type = msoTextBox Then
            oTextBox.Select
            intPageNumber = Selection.Information(wdActiveEndPageNumber)
            If intPageNumber Mod 2 = 0 Then
                With oTextBox
                    .TextFrame.TextRange.ParagraphFormat.Alignment = wdAlignParagraphLeft
                    .Width = CentimetersToPoints(6.5)
                    .Left = CentimetersToPoints(2.5)
                End With
            Else
                With oTextBox
                    .TextFrame.TextRange.ParagraphFormat.Alignment = wdAlignParagraphRight
                    .Width = CentimetersToPoints(6.5)
                End With
            End If
        End If
    Next

End Sub

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

Sub SearchTextBoxes()
    Dim objDocShapes As Shapes
    Dim lngGroupCt As Long
    Dim n As Long
    Dim c As Long
    Set objDocShapes = ActiveDocument.Shapes
    For n = 1 To objDocShapes.Count
        On Error Resume Next
        lngGroupCt = objDocShapes(n).GroupItems.Count
        If lngGroupCt = 0 Then
            With objDocShapes(n).TextFrame.TextRange.Find
                .ClearFormatting
                .Replacement.ClearFormatting
                .Text = "הטקסט לחיפוש"
                .Replacement.Text = "הטקסט להחלפה"
                .Forward = True
                .Wrap = wdFindContinue
                .Format = False
                .MatchCase = False
                .MatchWholeWord = False
                .MatchWildcards = False
                .MatchSoundsLike = False
                .MatchAllWordForms = False
                .Execute Replace:=wdReplaceAll
            End With
        Else
            objDocShapes(n).Select
            objDocShapes(n).Ungroup
            For c = n To n + (lngGroupCt - 1)
                With objDocShapes(n).TextFrame.TextRange.Find
                    .Text = "הטקסט לחיפוש"
                    .Replacement.Text = "הטקסט להחלפה"
                    .Forward = True
                    .Wrap = wdFindContinue
                    .Format = False
                    .Execute Replace:=wdReplaceAll
                End With
            Next c
            objDocShapes(n).Select
            Selection.ShapeRange.Regroup
        End If
    Next n
End Sub

 

[vn453]

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

 

[moishy]

מה לא עובד בקוד הראשון, אצלי הוא עובד היטב.

לשימוש בסימנים מיוחדים יש לשנות שורה זו
MatchWildcards = False
לזו
MatchWildcards = True

 

[Rרחמים]

מוישי, אני חושב שvn453 משתמש במסגרות (Frame) ולא בתיבות טקסט ולכן הקוד הראשון לא עבד לו.

 

[FullTime]

מוישי, אני חושב שvn453 משתמש במסגרות (Frame) ולא בתיבות טקסט ולכן הקוד הראשון לא עבד לו.

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

 

[Rרחמים]

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

 

[FullTime]

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

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

 

[Rרחמים]

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