Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Wyszukiwanie w plikach wordowskich
fosgen




Typ: neutral
Postów: 1
Zarejestrowany: Jul 2003
Wyszukiwanie w plikach wordowskich

Temat jest nastepujacy. Aplikacja obslugiwana przez IIS z wykorzystaniem SQL Servera. W jednym z katalogow przechowywane sa pliki worda (linki do nich sa w tabeli sql-owej). Czy jest mozliwe przeszukanie ich zawartosci wg zadanego slowa?

22-07-2003 13:05
Pokaż profil fosgen  Wyślij email do fosgen   
losmac
"profesorek"




Typ: neutral
Postów: 758
Zarejestrowany: May 2003
jest!

Jest możliwe, skoro masz linki do plików.

Oto przykład na szybko sporządzony:

Sub ASD()
    MsgBox OtworziSzukaj(ThisWorkbook.path & "\aaa.doc", "cos"
End Sub

Function OtworziSzukaj(strSciezkaDoPliku As String, strSzukaneSlowo As String) As Boolean
Dim appWrd As Word.Application
Dim doc As Document
Dim rng As Word.Range
Dim res As Boolean

On Error GoTo Err_OtworziSzukaj

Set appWrd = CreateObject("Word.Application"
appWrd.Visible = True
Set doc = appWrd.Documents.Open(strSciezkaDoPliku, , True) 'otworz tylko do odczytu
Set rng = doc.Content
With rng.Find
    .Forward = True
    .ClearFormatting
    .MatchWholeWord = True
    .MatchCase = False
    .Wrap = wdFindContinue
    res = .Execute(FindText:=strSzukaneSlowo)
End With

doc.Close
appWrd.Quit

Set rng = Nothing
Set doc = Nothing
Set appWrd = Nothing

OtworziSzukaj = res

Exit Function

'--------przechwytywacz bledow-----------
Err_OtworziSzukaj:

On Error Resume Next
    doc.Close
    appWrd.Quit
    Set rng = Nothing
    Set doc = Nothing
    Set appWrd = Nothing
End Function




_____________________________________________
POSTULATY STARUSZKA:
1) Ludzie, dbajcie o polszczyznę!!!
2) Ludzie, zadawajcie kompletne pytania, a nie rzucacie ochłapy i trzeba się domyślać o co chodzi!!!

Powodzenia
Maciej Łoś

22-07-2003 16:46
Pokaż profil losmac  Wyślij email do losmac   Odwiedź stronę losmac  
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1