דילוג לתוכן
  • חוקי הפורום
  • פופולרי
  • לא נפתר
  • משתמשים
  • חיפוש גוגל בפורום
  • צור קשר
עיצובים
  • Light
  • Cerulean
  • Cosmo
  • Flatly
  • Journal
  • Litera
  • Lumen
  • Lux
  • Materia
  • Minty
  • Morph
  • Pulse
  • Sandstone
  • Simplex
  • Sketchy
  • Spacelab
  • United
  • Yeti
  • Zephyr
  • Dark
  • Cyborg
  • Darkly
  • Quartz
  • Slate
  • Solar
  • Superhero
  • Vapor

  • ברירת מחדל (ללא עיצוב (ברירת מחדל))
  • ללא עיצוב (ברירת מחדל)
כיווץ
מתמחים טופ
  1. דף הבית
  2. תוכנות
  3. יישומי אופיס
  4. אקסל
  5. VBA - excel
  6. עזרה הדדית - VBA excel
  7. בקשת מידע | מאקרו לבדוק אם הערה מתחילה בעמוד אחד וגומר באחרת

בקשת מידע | מאקרו לבדוק אם הערה מתחילה בעמוד אחד וגומר באחרת

מתוזמן נעוץ נעול הועבר עזרה הדדית - VBA excel
3 פוסטים 3 כותבים 83 צפיות 3 עוקבים
  • מהישן לחדש
  • מהחדש לישן
  • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • menajemmendelM מנותק
    menajemmendelM מנותק
    menajemmendel
    כתב ב נערך לאחרונה על ידי
    #1

    שלום, אני מנסה לכתוב מאקרו שיבדוק אם יש הערות שמתחילות בעמוד אחד ונגמרות בעמוד אחרת,
    וחשבתי בפשטות, שאפשר לקבוע משתנה למקום תחילת הערה, ולשמור את מספר עמוד שלה במשתנה, וכן בסוף העמוד, והיה אם הם שונים שיעשה X, משהו כזה

    Selection.Footnotes(1).Range.Select
    Set NOTE = Selection.Range
    
    Selection.SetRange Start:=NOTE.Start, End:=NOTE.Start
    NOTE_BEGGINIG = Selection.Range.Information(wdActiveEndPageNumber)
    Selection.SetRange Start:=NOTE.End, End:=NOTE.End
    NOTE_BEGGINIG = Selection.Range.Information(wdActiveEndPageNumber)
    
    

    אבל מתברר שגם בסוף הערה WORD אומר את מספר העמוד של תחילת הערה, מישהו יש לו פתרון לזה
    או רעיון אחר
    תודה

    מ ר 2 תגובות תגובה אחרונה
    0
    • menajemmendelM menajemmendel

      שלום, אני מנסה לכתוב מאקרו שיבדוק אם יש הערות שמתחילות בעמוד אחד ונגמרות בעמוד אחרת,
      וחשבתי בפשטות, שאפשר לקבוע משתנה למקום תחילת הערה, ולשמור את מספר עמוד שלה במשתנה, וכן בסוף העמוד, והיה אם הם שונים שיעשה X, משהו כזה

      Selection.Footnotes(1).Range.Select
      Set NOTE = Selection.Range
      
      Selection.SetRange Start:=NOTE.Start, End:=NOTE.Start
      NOTE_BEGGINIG = Selection.Range.Information(wdActiveEndPageNumber)
      Selection.SetRange Start:=NOTE.End, End:=NOTE.End
      NOTE_BEGGINIG = Selection.Range.Information(wdActiveEndPageNumber)
      
      

      אבל מתברר שגם בסוף הערה WORD אומר את מספר העמוד של תחילת הערה, מישהו יש לו פתרון לזה
      או רעיון אחר
      תודה

      מ מנותק
      מ מנותק
      מניין
      כתב ב נערך לאחרונה על ידי
      #2

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

      תגובה 1 תגובה אחרונה
      0
      • menajemmendelM menajemmendel

        שלום, אני מנסה לכתוב מאקרו שיבדוק אם יש הערות שמתחילות בעמוד אחד ונגמרות בעמוד אחרת,
        וחשבתי בפשטות, שאפשר לקבוע משתנה למקום תחילת הערה, ולשמור את מספר עמוד שלה במשתנה, וכן בסוף העמוד, והיה אם הם שונים שיעשה X, משהו כזה

        Selection.Footnotes(1).Range.Select
        Set NOTE = Selection.Range
        
        Selection.SetRange Start:=NOTE.Start, End:=NOTE.Start
        NOTE_BEGGINIG = Selection.Range.Information(wdActiveEndPageNumber)
        Selection.SetRange Start:=NOTE.End, End:=NOTE.End
        NOTE_BEGGINIG = Selection.Range.Information(wdActiveEndPageNumber)
        
        

        אבל מתברר שגם בסוף הערה WORD אומר את מספר העמוד של תחילת הערה, מישהו יש לו פתרון לזה
        או רעיון אחר
        תודה

        ר מנותק
        ר מנותק
        רפרם ב"ר פפא
        כתב ב נערך לאחרונה על ידי רפרם ב"ר פפא
        #3

        @menajemmendel
        אתה יכול לבדוק לפי גבוה יחסי לדף
        לכאורה עדיף ע"י שיורד שורה ובודק גובה ואם שורה גבוהה משורה שלפניה יש מעבר עמוד
        ולהלן הקוד שלך אם הגדרת גבוה במקום מספר עמוד

        Selection.Footnotes(1).Range.Select
        Set NOTE = Selection.Range
        
        Selection.SetRange Start:=NOTE.Start, End:=NOTE.Start
        NOTE_BEGGINIG = Selection.Range.Information(wdVerticalPositionRelativeToPage)
        Selection.SetRange Start:=NOTE.End, End:=NOTE.End
        NOTE_BEGGINIG = Selection.Range.Information(wdVerticalPositionRelativeToPage)
        
        

        בהצלחה

        תגובה 1 תגובה אחרונה
        0

        • התחברות

        • אין לך חשבון עדיין? הרשמה

        • התחברו או הירשמו כדי לחפש.
        • פוסט ראשון
          פוסט אחרון
        0
        • חוקי הפורום
        • פופולרי
        • לא נפתר
        • משתמשים
        • חיפוש גוגל בפורום
        • צור קשר