באג ב-vba בפונקציה Selection.Information(wdVerticalPositionRelativeToPage)
תכנות
5
פוסטים
3
כותבים
375
צפיות
2
עוקבים
-
אם מריצים את הקוד הזה ב-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
מסתמא אתה צודק מצאתי משהו כאן אבל העצה שלהם לא תמיד פותרת את הבעיה:
https://wordmvp.com/FAQs/MacrosVBA/GetPosRelToPage.htmיש לך עצה מה לעשות כשאני רוצה להשוות שני אובייקטים בצורה הזו למשל שני טורים (זה יכול להיות גם שני תיבות טקסט או כל אובייקט אחר)
בתמונה יש הבדל קטן בין הטורים אבל אם עושים את הזום הראשון לא ניכר שום הבדל כלל! לפעמים זה הפוך בזום מאה לא ראוים הבדל ובזום אחר כן.
-
@yossiz
ייתכן שאתה צודק ואין פתרון.
ולו יהא זה שכרי בפתיחת הפוסט שכל מורט בשער ראשו יידע מה מקור עצביו.אגב ההשוואה בין הטורים רק הבאתי את זה כדוגמא
זה רלונטי לכל מיקום מדוייק של שני אובייקטים במסמך