בוורד, כאשר משתמשים בCtrl+Shift+Left/Right לבחירת המילה הבאה הבחירה נעצרת בתוי הפיסוק כגון " או ( או ,
ברוב השימושים של בחירה זו נצרכת בחירת כל המילה עד לתו הרווח
לעיתים קרובות כאשר בתוך הטקסט יש ציונים כגון (ל"א, ב') התענוג מושלם
ניסיתי מכמה כיוונים ליצור מאקרו שיבחר את כל התווים מהמקום שבו הסמן עומד עד לתו הרווח, ונכשלתי במטרה זו
אם יהיה לי כזה מאקרו, אקצה אותו לCtrl+Shift+Left/Right ולישראל יהיה טוב מאד
אני לא רוצה להטריח אף אחד בשביל הנוחות שלי, אמנם האמת היא שסביר להניח שיש בזה תועלת גדולה דרבים
אודה מאד לכל עזרה!
ChatGPT הביא לי את המאקרו הבא, שכמובן לא נותן את התוצאה, אלא עוצר מיד אחרי התו הראשון
אני מביא את זה כאן למקרה שזה באמת התחלה ויקל על המסייעים
Sub CheckForSpaces()
Dim currentChar As String
Dim i As Integer
For i = 1 To Len(Selection.Text)
currentChar = Mid(Selection.Text, i, 1)
If currentChar = " " Then
Exit For
Else
Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend
End If
Next i
End Sub