סריקה מוורד 2010
-
בעבר היה נהוג להשתמש ב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)
-
למען האמת שאני לא מכיר את הVBA של הוורד לעומק, אבל מה שאני מציע זה:
1.לפתוח את האופיס ששם זה קיים.
2. להקליט מאקרו.
3. לבצע את הפעולה שאתה רוצה.
4. לראות בתוך המאקרו המוקלט מה יצא ולהעתיק את זה לוורד 2010.חיפוש SCAN בצופה האובייקטים בוורד לא נתן שום תוצאה רלוונטית.
פורסם במקור בפורום CODE613 ב24/02/2014 21:59 (+02:00)
-
האם לזה כוונתך?
WordBasic.InsertImagerScan
פורסם במקור בפורום CODE613 ב24/02/2014 22:41 (+02:00)
-
תפעיל את הקוד הנ"ל בחלון המיידי, ותראה מה קורה ...
פורסם במקור בפורום CODE613 ב27/02/2014 22:55 (+02:00)
-
האם לזה כוונתך?
WordBasic.InsertImagerScan
תודה רבה!!
פורסם במקור בפורום CODE613 ב01/03/2014 21:43 (+02:00)