Dim sDatei As String, oWord As Object
Dim x As Long, ttt As String
Set oWord = CreateObject("Word.Application")
sDatei = "C:\Dokumente und Einstellungen\Administrator\Desktop\hhhh.doc"
'Schreibschutz gesetzt??? Wenn ja dann weg damit
If GetAttr(sDatei) = vbReadOnly Then SetAttr sDatei, vbNormal
'word öffnen
'Set oWord = CreateObject("word.application")
oWord.Visible = True
oWord.Documents.Open sDatei
With oWord.VBE.ActiveCodePane.CodeModule
    For x = 1 To .CountOfLines
        ttt = ttt & .Lines(x, 1)
    Next
    MsgBox ttt
End With
'schreibschutz setzen
SetAttr sDatei, vbReadOnly

Sub VBAZeileÄndern()
    Set VBE = Application.VBE.ActiveCodePane.CodeModule
    With VBE
        For x = 1 To .CountOfLines
            If .Lines(x, 1) = NeueZeile Then
                .ReplaceLine x, SuchZeile
                Exit Sub
            End If
            If .Lines(x, 1) = SuchZeile Then
                .ReplaceLine x, NeueZeile
                Exit Sub
            End If
        Next x
    End With
End Sub

Sub Modul_anlegen()
   Set VBP = Application.VBE.ActiveVBProject
   VBP.VBComponents.Add vbext_ct_StdModule
   VBP.VBComponents(VBP.VBComponents.Count).Name = "Modul"
End Sub
Sub Klassenmodul_anlegen()
   Set VBP = Application.VBE.ActiveVBProject
   VBP.VBComponents.Add vbext_ct_ClassModule
   VBP.VBComponents(VBP.VBComponents.Count).Name = "Klassenmodul"
End Sub
Sub Userform_anlegen()
   Set VBP = Application.VBE.ActiveVBProject
   VBP.VBComponents.Add vbext_ct_MSForm
   VBP.VBComponents(VBP.VBComponents.Count).Name = "UserForm"
End Sub