سلام.چطور ميشه اطلاعاتي رو وارد فايلهاي پي دي اف كرد يا متن درون اون رو خوند مثل خوندن ونوشتن فايلهاي ورد كه از دستورات open و input بر اي خواندن ونوشتن اونها استفاده ميشه.باتشكر
با "open و input" میشه فایلای وردو خوند؟
برای کار با فایلای pdf اگه توی اینترنت بگردید احتمالا کتابخونه ای کنترلی چیزی برای کار باهاش پیدا میکنید. البته من تا حالا برای ساختن یا خوندنش کد دیدم ولی برای ویرایشش ندیدم. چون ساختارش با ورد فرق داره ویرایشش راحت نیست.
سلام.من براي ساخت و تبديل پي دي اف دوتا كد از سايت vbcode پيدا كردم ولي دو تاش ارور ميده كدها رو گذاشتم اگه كسي ميتونه لطفا اشكال كدها رو بگه و اونها رو رفع كنه.باتشكر
كد اولي
Private sub PDFToHTML (ByVal strIn as string,byval StrOut as string)
dim strTools as string
strTools=App.path & "\pdftohtml.exe"
Dim intRet as integer
intRet=Shell(strTools & " -c -hr " & strIn & " " & strOut, vbHide)
if intRet=0 then
msgbox ("Error..." & vbCrlf & Err.Description)
End If
End sub
Private sub command1_click()
Dim strIn as string,strOut as string
strIn=App.Path & "\test2.pdf"
strOut=app.Path & "\test2.html"
Call PDFToHTML (strIn, strOut)
End Sub
كد دومي اينكد يه دي ال ال ميخواد اون اضافه ميكنم ولي ارور eroor loadin dll رو ميده
Private Sub Command1_Click()
'Save tiff file in pdf format. Need full Adobe Acrobat any version.
'Add Adobe Acrobat Type Library to References.
Dim bOK As Boolean
On Error GoTo errmsg
Dim avDoc As CAcroAVDoc
Dim pdDoc As CAcroPDDoc
Set avDoc = CreateObject("AcroExch.AVDoc")
bOK = avDoc.Open("C:\test.tif, "Adobe Acrobat")
Set pdDoc = avDoc.GetPDDoc
bOK = pdDoc.Save(1, "C:\test.pdf")
avDoc.Close (False)
Exit Sub
errmsg:
MsgBox Err.Description
End Sub