ایجاد قابلیت اسکن مدارک برای هر ردیف سلول

[mohanad-arch]

با درود به همه دوستان گرامی



من یک فایلی دارم که برای نمونه ارسال میکنم: میخوام براش قابلیتی بگذارم که بعد از وارد کردن هر ردیف اطلاعات سرآخر یک دکمه برای باز شدن یک نرم افزار اسکنر مثل WinScan2PDF داشته باشم تا یک اسکن از سند مربوطه به ردیف رو داشته باشم. و میخوام هر اسکن با نام شماره ردیف در جایی که تعریف میکنم ذخیره بشه.
اینجوری هر بار بخوام تصویر یک سند رو ببینم با فشردن کلمه (برای مشاهده کلیک کنید) ستون G سند مربوطه باز میشه.


یا یک پنجره ای مثل تصویری که ارسال میکنم داشته باشیم و بشه از قیمت اسکن اون کاری که من میخوام رو انجام بدم.


ممنونم از همه

نمونه.xls

https://soft98.ir/software/pdf/1358-WinScan2PDF.html

اخطار: این یک موضوع قدیمی است به دلیل قدیمی بودن موضوع، ممکن است برخی فایل های ضمیمه به درستی کار نکنند. لطفا در صورت عدم ضرورت، از بالا آوردن موضوعات قدیمی خودداری نمایید.

[iranweld]

با سلام

اسناد خود را به ترتیب یک شماره گذاری خاص ، اسکن نموده و سپس با یک ماکرو ساده هایپر لینک نمایید

در این مثال فایل ها در پوشه Pictures ذخیره شده و هر سند با یک پسوند img و یک شماره مشخص شده اند مثلا img1.jpg

Sub Macro2()

For i = 4 To 100

    Range("G" & i).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "Pictures\img" & i & ".jpg", TextToDisplay:="مشاهده سند"
        
        Next
End Sub 

[mohanad-arch]

خیلی عالی بود ممنونم

با سلام

اسناد خود را به ترتیب یک شماره گذاری خاص ، اسکن نموده و سپس با یک ماکرو ساده هایپر لینک نمایید

در این مثال فایل ها در پوشه Pictures ذخیره شده و هر سند با یک پسوند img و یک شماره مشخص شده اند مثلا img1.jpg

Sub Macro2()

For i = 4 To 100

    Range("G" & i).Select
    ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
        "Pictures\img" & i & ".jpg", TextToDisplay:="مشاهده سند"
        
        Next
End Sub