תחומים
    • הרשמה
    • התחברות
    • חיפוש
    • קטגוריות
    • פוסטים אחרונים
    • משתמשים
    • חיפוש
    חוקי הפורום

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

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

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

      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
      • רחמים
        רחמים @אהרן נערך לאחרונה על ידי

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

        יעקובוב פיתוח תוכנה ערוץ היוטיוב | אתר

        צפו יוונים נקבצו עלי

        א תגובה 1 תגובה אחרונה תגובה ציטוט 1
        • א
          אהרן @רחמים נערך לאחרונה על ידי

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

          רחמים תגובה 1 תגובה אחרונה תגובה ציטוט 0
          • רחמים
            רחמים @אהרן נערך לאחרונה על ידי

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

            יעקובוב פיתוח תוכנה ערוץ היוטיוב | אתר

            צפו יוונים נקבצו עלי

            א תגובה 1 תגובה אחרונה תגובה ציטוט 0
            • א
              אהרן @רחמים נערך לאחרונה על ידי

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

              תודה!!

              רחמים תגובה 1 תגובה אחרונה תגובה ציטוט 0
              • רחמים
                רחמים @אהרן נערך לאחרונה על ידי

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

                יעקובוב פיתוח תוכנה ערוץ היוטיוב | אתר

                צפו יוונים נקבצו עלי

                תגובה 1 תגובה אחרונה תגובה ציטוט 1
                • 1 / 1
                • פוסט ראשון
                  פוסט אחרון
                בא תתחבר לדף היומי!