באג ב-vba בפונקציה Selection.Information(wdVerticalPositionRelativeToPage)

[pcinfogmach]

אם מריצים את הקוד הזה ב-vba בוורד

Sub VerticalPos()
    Debug.Print ("position: " & Selection.Information(wdVerticalPositionRelativeToPage) & " | Zoom: " & ActiveWindow.View.Zoom.Percentage)
End Sub

התוצאה משתנית לפי המצב של הזום - בכל אופן אצלי.

position: 753 | Zoom: 50
position: 754 | Zoom: 100
position: 753.75 | Zoom: 200
position: 753.75 | Zoom: 385
position: 753.8 | Zoom: 500

יש למישהו רעיון איך להתגבר על זה?
או בכל אופן איך אני מגדיר מהו הposition האמיתי?

[dovid]

מי אמר שיש position אמיתי, אולי זה רק מקורב?

[pcinfogmach]

@dovid
מסתמא אתה צודק מצאתי משהו כאן אבל העצה שלהם לא תמיד פותרת את הבעיה:
https://wordmvp.com/FAQs/MacrosVBA/GetPosRelToPage.htm

יש לך עצה מה לעשות כשאני רוצה להשוות שני אובייקטים בצורה הזו למשל שני טורים (זה יכול להיות גם שני תיבות טקסט או כל אובייקט אחר)

בתמונה יש הבדל קטן בין הטורים אבל אם עושים את הזום הראשון לא ניכר שום הבדל כלל! לפעמים זה הפוך בזום מאה לא ראוים הבדל ובזום אחר כן.

[yossiz]

וורד לא נועד לעימוד מדוייק, זה מעבד תמלילים...

[pcinfogmach]

@yossiz
ייתכן שאתה צודק ואין פתרון.
ולו יהא זה שכרי בפתיחת הפוסט שכל מורט בשער ראשו יידע מה מקור עצביו.

אגב ההשוואה בין הטורים רק הבאתי את זה כדוגמא
זה רלונטי לכל מיקום מדוייק של שני אובייקטים במסמך