Option Explicit
 
Dim wrd As New word.Application
Dim doc As word.Document
 
Private Sub Command1_Click()
 
   Set doc = wrd.Documents.Open("C:\A.doc", Visible:=False)
 
   MsgBox GetDocText(doc)
   SetDocText doc, "VB" & vbCrLf & "ist" & vbCr & "relativ toll, eigentlich!"
 
   'Oder für deine Anwendung:
   'SetDocText doc, Replace(GetDocText, "11111", "22222")
End Sub
 
Private Function GetDocText(objDoc As word.Document) As String
   Dim b As Integer
   For b = 1 To objDoc.Characters.Count
       GetDocText = GetDocText & objDoc.Characters(b).text
   Next
End Function
 
Private Sub SetDocText(objDoc As word.Document, text As String)
   Dim b As Integer
 
   For b = 1 To objDoc.Characters.Count
      objDoc.Characters(1).Delete
   Next
 
   For b = 1 To Len(text)
      objDoc.Characters(b) = Mid(text, b, 1)
   Next
End Sub
 
Private Sub Command2_Click()
'aufräumen
   doc.Close SaveChanges:=True
      Set doc = Nothing
   wrd.Quit SaveChanges:=True
      Set wrd = Nothing
End Sub

LG,Robert

Beitrag wurde zuletzt am 10.03.09 um 17:25:14 editiert.