باز نمودن فایل های word و تصاویر در اکسل

[khorasan66]

سلام
یک فایل اندیکاتور تحت اکسل که شامل تاریخ ثبت / گیرنده ، فرستنده / شرح نامه / شماره وارده / و ... می باشد طراحی شده است
نامه ها صادره و وارده بر اساس نیاز چهار رقمی و مطابق با شماره ردیف ثبت شده در اکسل نام گذاری می شوند یعنی اگر نامه ای در ردیف 9 ثبت شود نام آن 0009 می شود .
حال برای باز کردن نامه ای که قبلا ثبت شده است ردیف آن نامه را انتخاب نموده و ماژول زیر را اجرا می نماییم :
اگر نامه صادره باشد یعنی سلول شماره وارده ("F9" ) می بایست خالی باشد ،فایلی با نام شماره ردیف و پسوند DOCX از مسیری مشخصی مانند d:\doc باز شود ( دستور این را نوشته ام )
اگر نامه , وارده باشد یعنی سلول شماره وارده ("F9" ) می بایست شامل عدد باشد ، فایلی با نام شماره ردیف و پسوند های گرافیکی را ، از مسیری مشخصی مانند d:\doc باز شود
لطفا راهنمائی فرمائید
اگز سلول ("C9") خالی باشد آن ردیف هنوز هیچ ثبتی انجام نشده است
Sub OPEN_2()
Dim T
T = ActiveCell.Row
Dim wrdApp As Object
Dim wrdDoc As Object
Set wrdApp = CreateObject("Word.Application")
If Range("F" & ActiveCell.Row) = "" Then
Set wrdDoc = wrdApp.Documents.Open("D:\DOC\" & T & ".docx")
wrdApp.Visible = True
Else
??????????
End If
End Sub