בקשת מידע | עזרה בכתיבת פקודת מאקרו

[menajemmendel]

שאלה, נניח שאני נמצא באמצע הערת שוליים בWORD, אני צריך פקודת מאקרו שיבחר החל מהמקום הנוכחי עד סוף ההערה,

מישהו יודע? אולי @NykUser, @pcinfogmach, @מאקרו, @רפרם-ב-ר-פפא, @דאנציג @האדם-החושב או מישהו אחר
תודה
ניסיתי:

Dim start_place, footnote_end, selected_range As Range

Set start_place = SELECTION.Range
SELECTION.Footnotes(1).Range.Select
SELECTION.Collapse Direction:=wdCollapseEnd
Set footnote_end = SELECTION.Range
Set selected_range = ActiveDocument.Range(start_place.start, footnote_end.End)

אבל לא עובד
אשמח לעזרה תודה

[menajemmendel]

@menajemmendel
בסדר הסתדרתי תודה
צריך לשנות השורה האחרונה ל:

SELECTION.SetRange start_place.start, footnote_end.End