2 روز برای کپی کردن هوش ساختگی،
و پاک کردن کامنتهای اون،
و چسبوندن تبلیغ زمان زیادیه!
کد اصلی پیشنهادی هوش ساختگی که در برنامه پیوست پست شماره 7 بدون آوردن منبع کپی شده رو پایین آوردم،
ولی موضوع اصلی این نیست.
اشکال کار سر این هست که مشخصا هیچ شناختی از موقعیت های واقعی و دید عملی در این کد نیست -
برای هر جستجو باید همه فایلهای پیوست شده روی دیسک ساخته و یکی یکی در word باز بشه،
و بعد در content جستجو انجام بشه.
این پروسه در عمل کاملا غیرمنطقی هست، کافی هست تعداد و اندازه پیوست ها بیشتر باشه تا خودش رو نشون بده.
روش درست همونی هست که در پست شماره 2 گفتم
هوش ساختگی ممکنه به شما کد پیشنهاد بده،
ولی تشخیص این که کد در شرایط واقعی چه اندازه موثر و عملی هست نیاز به تجربه کافی و اشراف به همه جوانب داره که در این پاسخ نیست.
Sub SearchWordInAttachment()
Dim db As DAO.Database
Dim rs As DAO.Recordset2
Dim rsAttach As DAO.Recordset2
Dim wordApp As Object
Dim wordDoc As Object
Dim searchText As String
Dim foundText As Boolean
Dim tempFilePath As String
' Open the database
Set db = CurrentDb
' Open the recordset
Set rs = db.OpenRecordset("YourTableName")
' Loop through records
Do While Not rs.EOF
' Check if there is an attachment
If Not rs("YourAttachmentFieldName").Value Is Nothing Then
' Get the attachment field
Set rsAttach = rs("YourAttachmentFieldName").Value
' Loop through attachments (if there are multiple)
Do While Not rsAttach.EOF
' Save the attachment to a temporary file
tempFilePath = Environ("Temp") & "" & rsAttach("FileName")
rsAttach("FileData").SaveToFile tempFilePath
' Open Word application
Set wordApp = CreateObject("Word.Application")
wordApp.Visible = False
' Open the Word document
Set wordDoc = wordApp.Documents.Open(tempFilePath)
' Search for text
searchText = "YourSearchText"
foundText = wordDoc.Content.Find.Execute(FindText:=searchText)
' Display result
If foundText Then
MsgBox "Text found in document: " & rsAttach("FileName")
Else
MsgBox "Text not found in document: " & rsAttach("FileName")
End If
' Close the Word document
wordDoc.Close SaveChanges:=False
' Quit the Word application
wordApp.Quit
' Move to the next attachment (if there are multiple)
rsAttach.MoveNext
Loop
End If
' Move to the next record
rs.MoveNext
Loop
' Clean up
rs.Close
Set rs = Nothing
Set db = Nothing
End Sub
نقل قول: امکان جستجو در فیلد Attachment
نوشته شده توسط dastgerdi
قوانین ایجاد تاپیک در تالار
پاسخ با نقل قول