Forum

Αναζήτηση στο ms-office.gr

Πάμε!
ms-office.gr > Forum > Microsoft Access > Access - Ερωτήσεις / Απαντήσεις > Από Access 2007 ψάξιμο λέξης σε έγγραφο word

Access - Ερωτήσεις / Απαντήσεις Access + VBA... Εδώ δεν υπάρχουν όρια!

Απάντηση στο θέμα

 

Εργαλεία Θεμάτων Τρόποι εμφάνισης
  #1  
Παλιά 31-05-19, 20:35
Όνομα: Δημήτρης
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 15-12-2011
Μηνύματα: 23
Προεπιλογή Από Access 2007 ψάξιμο λέξης σε έγγραφο word

Γεια σας είμαι σχετικά νέος στη vba και θέλω τη βοήθεια σας.
Με ένα κουμπί σε μια φόρμα access 2007 θέλω να ανοίγω ένα ένα τα έγγραφα word από ένα φάκελο και να ψάχνω ένα επώνυμο, όταν βρεθεί το επώνυμο που έδωσα από inputbox στην access θέλω να μου βγάζει ένα μήνυμα Msgbox ότι βρέθηκε και να αφήνει ανοιχτό το έγγραφο, αν είναι συνωνυμία να συνεχίζει το ψάξιμο στα επόμενα έγγραφα.
Ευχαριστώ εκ των προτέρων.
Απάντηση με παράθεση
  #2  
Παλιά 02-06-19, 09:02
Όνομα: Δημήτρης
Έκδοση λογισμικού Office: Ms-Office 2007
Γλώσσα λογισμικού Office: Ελληνική
 
Εγγραφή: 15-12-2011
Μηνύματα: 23
Προεπιλογή

Τελικά ψάχνοντας στο ιντερνετ βρήκα λύση που με κάποιες μετατροπές με καλύπτει. Ίσως δεν είναι η καλύτερη λύση αλλά μου έλυσε το πρόβλημα, ανεβάζω τον κώδικα για όποιον αντιμετωπίσει παρόμοιο πρόβλημα.

Private Sub FindInDoc
Dim wApp As Word.Application
Dim mySource As Object
Dim oDoc As Object
Const wdYellow = 7
Dim rng1 As Range
Dim strTheText As String
Dim metr, metr2 As Integer

strTheText = InputBox("Δώσε Επώνυμο για ψάξιμο μέσα στα έγγραφα του φακέλου TEST_WORD")
DoCmd.Hourglass True
If Len(strTheText) < 2 Then
DoCmd.Hourglass False
Exit Sub
End If
Set obj = CreateObject("Scripting.FileSystemObject")
Set mySource = obj.GetFolder("D\TEST_WORD")

For Each file In mySource.Files 'loop through the directory
If Len(file.Name) > 0 And InStr(1, file.Name, "$") = 0 Then
Set wApp = CreateObject("Word.Application")
Set oDoc = wApp.Documents.Open(mySource & "\" & file.Name)
oDoc.Content.Find.HitHighlight FindText:=strTheText
Set rng1 = oDoc.Range
If rng1.Find.Execute(FindText:=strTheText) Then
wApp.Visible = True
AnswerVRE = MsgBox( " ΒΡΈΘΗΚΕ - ΘΈΛΕΤΕ ΝΑ ΣΥΝΕΧΊΣΕΤΕ ΤΟ ΨΆΞΙΜΟ", vbYesNo + vbQuestion + vbDefaultButton1, "ΕΠΙΛΈΞΤΕ;")
If AnswerVRE = vbNo Then
DoCmd.Hourglass False
Exit Sub
End If
End If
On Error Resume Next
wApp.Quit
Set wApp = Nothing
End If
Next file
DoCmd.Hourglass False
MsgBox "Τέλος "
End Sub
Απάντηση με παράθεση
Απάντηση στο θέμα

Εργαλεία Θεμάτων
Τρόποι εμφάνισης

Δικαιώματα - Επιλογές
Δε μπορείτε να δημοσιεύσετε νέα μηνύματα
Δε μπορείτε να δημοσιεύσετε απαντήσεις
Δεν μπορείτε να επισυνάψετε αρχεία
Δεν μπορείτε να επεξεργαστείτε τα μηνύματα σας

Ο κώδικας ΒΒ είναι σε λειτουργία
Τα Smilies είναι σε λειτουργία
Ο κώδικας [IMG] είναι σε λειτουργία
Ο κώδικας HTML είναι εκτός λειτουργίας
Trackbacks are εκτός λειτουργίας
Pingbacks are εκτός λειτουργίας
Refbacks are εκτός λειτουργίας


Παρόμοια Θέματα

Θέμα Δημιουργός Forum Απαντήσεις Τελευταίο Μήνυμα
Έγγραφο Word Μέσα από την Access xristos0718 Access - Ερωτήσεις / Απαντήσεις 4 13-12-14 21:12
Συγχώνευση Αλληλογραφίας από Access σε Word (Office 2007) kostaskalam Access - Ερωτήσεις / Απαντήσεις 4 03-07-12 21:00
Διαγραφή γραμμάτων σε έγγραφο Word anastasiosz Word - Ερωτήσεις / Απαντήσεις 6 18-08-11 21:02
Πρόβλημα Σταθερής Γραμματοσειριάς κ Μεγέθους Γρ. για ολο το έγγραφο του Word skarman Word - Ερωτήσεις / Απαντήσεις 3 22-02-11 19:23
Access 2007 και Word Merge editolis Access - Tips & Tricks 0 15-02-10 18:54


Η ώρα είναι 18:03.