• דף הבית
  • קטגוריות
  • פוסטים אחרונים
  • משתמשים
  • חיפוש
  • חוקי הפורום
כיווץ
תחומים

תחומים - פורום חרדי מקצועי

סריקה מוורד 2010

מתוזמן נעוץ נעול הועבר ארכיון code613m
8 פוסטים 3 כותבים 469 צפיות
    • מהישן לחדש
    • מהחדש לישן
    • הכי הרבה הצבעות
תגובה
  • תגובה כנושא
התחברו כדי לפרסם תגובה
נושא זה נמחק. רק משתמשים עם הרשאות מתאימות יוכלו לצפות בו.
  • H מנותק
    H מנותק
    hubhcbh
    כתב ב נערך לאחרונה על ידי
    #1

    היה לי פעם קוד VB כדי להוסיף סריקה ישירות לתוך מסמך בוורד 2010 (שכידוע שלפני זה, זה היה קיים).
    בחיפוש מהיר, לא מצאתי, אשמח לקבל..

    פורסם במקור בפורום CODE613 ב23/02/2014 21:21 (+02:00)

    תגובה 1 תגובה אחרונה
    0
  • clickoneC מנותק
    clickoneC מנותק
    clickone
    כתב ב נערך לאחרונה על ידי
    #2

    בעבר היה נהוג להשתמש בtwain.

    Private Declare Function TWAIN_AcquireToFilename Lib "TWAIN32d.DLL" (ByVal hwndApp As Long, ByVal bmpFileName As String) As Integer
    Private Declare Function TWAIN_IsAvailable Lib "TWAIN32d.DLL" () As Long
    Private Declare Function TWAIN_SelectImageSource Lib "TWAIN32d.DLL" (ByVal hwndApp As Long) As Long
    Private Declare Function GetSystemDirectory Lib "kernel32" Alias "GetSystemDirectoryA" (ByVal lpBuffer As String, ByVal nSize As Long) As Long
    
    
    Public Function SelectScanner()
    On Error Resume Next
       TWAIN_SelectImageSource (Application.hWndAccessApp)
    End Function
    
    Public Function ScanNow() As Boolean
    Dim PictureFileName As String
    Dim ReturnValue As Long
    'On Error GoTo errHandler
    
        ' שינוי הסמן לשעון חול
        Screen.MousePointer = 11
        ' קביעת שם הקובץ לתמונה הזמנית בה תשמר הסריקה
        PictureFileName = CurrentProject.Path + "\Temp.bmp"
        ' קריאה לדרייבר הנבחר לשם ביצוע סריקה לקובץ
        ReturnValue = TWAIN_AcquireToFilename(Application.hWndAccessApp, PictureFileName)
        
        ' בדיקה האם הסריקה הצליחה
        If ReturnValue = 0 Then
            ' :אם הסריקה הצליחה אז
            ' הצג את התמונה בקובץ שנשמר לתיבת התמונה
            'picScan.Picture = LoadPicture(PictureFileName)
            ' עדכן את השטח הנגלל לגודל התמונה החדשה
            'ScrollAreaScan.ReSizeArea
            ' מחק את קובץ התמונה הזמנית
            'Kill PictureFileName
            ScanNow = True
        Else
            ' אם הסריקה לא הצליחה
            GoTo errHandler
        End If
        
        ' החזר את סמן העכבר למצבו הרגיל
        Screen.MousePointer = 0
    
        Exit Function
        
    errHandler:
        ' במקרה של שגיאה או שהסריקה לא הצליחה
        msgok "המשתמש יצא מהתקן הסריקה או הסריקה לא הצליחה."
        ' החזר את סמן העכבר למצבו הרגיל
        ScanNow = False
        Screen.MousePointer = 0
    End Function
    

    זה הקוד שהשתמשתי בו (באקסס כמובן)

    חיפוש זריז בגוגל הביא גם את זה: http://www.codeproject.com/Articles/1376/NET-TWAIN-image-scanner
    ואת הDLL תוכל להוריד מד"ר VB כאן: http://dr-vb.co.il/dws.php?id=58

    פורסם במקור בפורום CODE613 ב23/02/2014 22:06 (+02:00)

    אין טסט כמו פרודקשן.

    המייל שלי urivpn@gmail.com

    תגובה 1 תגובה אחרונה
    0
  • H מנותק
    H מנותק
    hubhcbh
    כתב ב נערך לאחרונה על ידי
    #3

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

    פורסם במקור בפורום CODE613 ב24/02/2014 20:23 (+02:00)

    תגובה 1 תגובה אחרונה
    0
  • clickoneC מנותק
    clickoneC מנותק
    clickone
    כתב ב נערך לאחרונה על ידי
    #4

    למען האמת שאני לא מכיר את הVBA של הוורד לעומק, אבל מה שאני מציע זה:
    1.לפתוח את האופיס ששם זה קיים.
    2. להקליט מאקרו.
    3. לבצע את הפעולה שאתה רוצה.
    4. לראות בתוך המאקרו המוקלט מה יצא ולהעתיק את זה לוורד 2010.

    חיפוש SCAN בצופה האובייקטים בוורד לא נתן שום תוצאה רלוונטית.

    פורסם במקור בפורום CODE613 ב24/02/2014 21:59 (+02:00)

    אין טסט כמו פרודקשן.

    המייל שלי urivpn@gmail.com

    תגובה 1 תגובה אחרונה
    0
  • M מנותק
    M מנותק
    macroshadow
    כתב ב נערך לאחרונה על ידי
    #5

    האם לזה כוונתך?

    WordBasic.InsertImagerScan
    

    פורסם במקור בפורום CODE613 ב24/02/2014 22:41 (+02:00)

    תגובה 1 תגובה אחרונה
    1
  • H מנותק
    H מנותק
    hubhcbh
    כתב ב נערך לאחרונה על ידי
    #6

    איך אני מוסיף לוורד?

    פורסם במקור בפורום CODE613 ב27/02/2014 19:04 (+02:00)

    תגובה 1 תגובה אחרונה
    0
  • M מנותק
    M מנותק
    macroshadow
    כתב ב נערך לאחרונה על ידי
    #7

    תפעיל את הקוד הנ"ל בחלון המיידי, ותראה מה קורה ...

    פורסם במקור בפורום CODE613 ב27/02/2014 22:55 (+02:00)

    תגובה 1 תגובה אחרונה
    0
  • H מנותק
    H מנותק
    hubhcbh
    כתב ב נערך לאחרונה על ידי
    #8

    @MacroShadow

    האם לזה כוונתך?

    WordBasic.InsertImagerScan
    

    תודה רבה!!

    פורסם במקור בפורום CODE613 ב01/03/2014 21:43 (+02:00)

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

  • התחברות

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

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

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

  • התחברו או הירשמו כדי לחפש.