סריקה מוורד 2010

hubhcbh

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

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

clickone

בעבר היה נהוג להשתמש ב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)

hubhcbh

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

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

clickone

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

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

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

macroshadow

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

WordBasic.InsertImagerScan

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

hubhcbh

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

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

macroshadow

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

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

hubhcbh

@MacroShadow

האם לזה כוונתך?
WordBasic.InsertImagerScan

תודה רבה!!

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

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

סריקה מוורד 2010