Ik heb de search al gebruikt maar die werkte niet echt mee.
Ik gebruik Word in mijn visual basic applicatie.
Nu sluit hij word niet af na het runnen van mijn applicatie
iemand nog tips
Ik gebruik Word in mijn visual basic applicatie.
Nu sluit hij word niet af na het runnen van mijn applicatie
iemand nog tips
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
| Dim objWord As Object
Dim objDoc As Word.Document
Dim Item As Object
Dim strWord As String
Set objWord = CreateObject("Word.Application")
'open word document
Set objDoc = objWord.Documents.Open(strFileName)
'loop trough the paragraphs
For Each Item In objDoc.Paragraphs
strWord = strWord & Item.Range.Text
Next
objDoc.Close
Set Item = Nothing
Set objDoc = Nothing
Set objWord = Nothing
GetStringFromWord = strWord |