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

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

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

מנסה ליצור מאקרו בוורד להוספת סוגריים לטקסט מסומן

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

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

    אפשרות א: ניסיתי באופן זה, אבל הבעיה היא שההעתקה באופן הזה בעייתית והוא לא מוצא את מה להדביק
    המעניין הוא שלפעמים פתאום המאקרו עובד, אבל ב99.9% מהמקרים יש באג שהמאקרו לא מוצא את מה להדביק

    Sub סוגריים_עגולים_לטקסט_נבחר()
    '
    ' סוגריים_עגולים_לטקסט_נבחר Macro
    '
    '
        Selection.Copy
        Selection.TypeText Text:="("
        Selection.Paste
        Selection.TypeText Text:=")"
    End Sub
    
    

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

    אפשרות ג: ?

    מנע בזבוז זמן, זכה את הרבים!

    M תגובה 1 תגובה אחרונה
    0
    • מעלה ומורידמ מעלה ומוריד

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

      אפשרות א: ניסיתי באופן זה, אבל הבעיה היא שההעתקה באופן הזה בעייתית והוא לא מוצא את מה להדביק
      המעניין הוא שלפעמים פתאום המאקרו עובד, אבל ב99.9% מהמקרים יש באג שהמאקרו לא מוצא את מה להדביק

      Sub סוגריים_עגולים_לטקסט_נבחר()
      '
      ' סוגריים_עגולים_לטקסט_נבחר Macro
      '
      '
          Selection.Copy
          Selection.TypeText Text:="("
          Selection.Paste
          Selection.TypeText Text:=")"
      End Sub
      
      

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

      אפשרות ג: ?

      M מנותק
      M מנותק
      mekev
      כתב ב נערך לאחרונה על ידי mekev
      #2

      @מעלה-ומוריד

      Sub AddParens()
          If Len(Selection.Range) > 0 Then
              Selection.InsertBefore "("
              Selection.InsertAfter ")"
          Else
              MsgBox "לא נבחר טקסט"
          End If
      End Sub
      

      קרדיט

      תגובה 1 תגובה אחרונה
      3
      תגובה
      • תגובה כנושא
      התחברו כדי לפרסם תגובה
      • מהישן לחדש
      • מהחדש לישן
      • הכי הרבה הצבעות


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

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

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