דילוג לתוכן
  • דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
כיווץ
תחומים

תחומים - פורום חרדי מקצועי

💡 רוצה לזכור קריאת שמע בזמן? לחץ כאן!
  1. דף הבית
  2. תוכנה
  3. וורד - עזרה עם מאקרא לחילוץ טקסט מתיבות טקסט

וורד - עזרה עם מאקרא לחילוץ טקסט מתיבות טקסט

מתוזמן נעוץ נעול הועבר תוכנה
6 פוסטים 2 כותבים 148 צפיות
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • א מנותק
    א מנותק
    אהרן
    כתב ב נערך לאחרונה על ידי
    #1

    בפרוג העלו את המאקרא הזה
    (התצוגה מסתבכת בגלל סימוני ה`)

    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
    
    

    הבעיה שהוא לא מבצע על כל התיבות יחד
    ועיקר הבעיה שהוא בכלל לא מזהה חלק מהתיבות

    מישהו יכול לעזור עם תיקון המאקרא?

    רחמיםר תגובה 1 תגובה אחרונה
    0
    • רחמיםר מנותק
      רחמיםר מנותק
      רחמים מורחק
      השיב לאהרן ב נערך לאחרונה על ידי
      #2

      @אהרן על פניו המאקרו נראה די בסדר, מה אתה מצפה שהמאקרו יעשה בדיוק?

      א תגובה 1 תגובה אחרונה
      1
      • א מנותק
        א מנותק
        אהרן
        השיב לרחמים ב נערך לאחרונה על ידי
        #3

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

        רחמיםר תגובה 1 תגובה אחרונה
        0
        • רחמיםר מנותק
          רחמיםר מנותק
          רחמים מורחק
          השיב לאהרן ב נערך לאחרונה על ידי
          #4

          @אהרן המסמך שלך מכיל 'מסגרות' או 'תיבות טקסט'?

          א תגובה 1 תגובה אחרונה
          0
          • א מנותק
            א מנותק
            אהרן
            השיב לרחמים ב נערך לאחרונה על ידי
            #5

            @רחמים
            לא מצליח למצוא א"ז עכשיו (הקובץ ענק)
            ואם זה מסגרות
            מספיק להחליף את msoTextBox? להחליף למה?

            תודה!!

            רחמיםר תגובה 1 תגובה אחרונה
            0
            • רחמיםר מנותק
              רחמיםר מנותק
              רחמים מורחק
              השיב לאהרן ב נערך לאחרונה על ידי
              #6

              @אהרן תנסה msoAutoShape או msoShapeRectangle

              תגובה 1 תגובה אחרונה
              1

              בא תתחבר לדף היומי!
              • התחברות

              • אין לך חשבון עדיין? הרשמה

              • התחברו או הירשמו כדי לחפש.
              • פוסט ראשון
                פוסט אחרון
              0
              • דף הבית
              • קטגוריות
              • פוסטים אחרונים
              • משתמשים
              • חיפוש
              • חוקי הפורום