פורום אוצר החכמה

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

Sub חפש_באוצר_החכמה()
If Selection.Type = wdSelectionNormal Then
Selection.Copy
'Tasks("אוצר החכמה").WindowState = wdWindowStateNormal
Tasks("אוצר החכמה").Activate
SendKeys "{F3}", True
SendKeys "{HOME}", True
SendKeys "+{END}", True
SendKeys "^V", True
SendKeys "{ENTER}", True
End If
If Selection.Type = wdSelectionIP Then
' Tasks("אוצר החכמה").WindowState = wdWindowStateMaximize
Tasks("אוצר החכמה").Activate
SendKeys "{F3}", True
SendKeys "{HOME}", True
SendKeys "+{END}", True
SendKeys "^V", True
SendKeys "{ENTER}", True
End If
End Sub

.....

רחמים כתב:ההגדרות בדרך אם יש לך רעיונות מה לשים שם שלח לי
תודה