Private Sub GrafikAnTextmarkeUebergeben(ByVal sTMName As String)  
Dim tmRange As Range  
Dim objShape As InlineShape      
With ActiveDocument    
If .ProtectionType <> wdNoProtection Then .Unprotect        
If .Bookmarks.Exists(sTMName) Then      
If .Bookmarks(sTMName).Empty = True Then        
Set tmRange = .Bookmarks(sTMName).Range        
Set objShape = tmRange.InlineShapes.AddPicture( _ 
FileName:="c:\temp\Logo.gif", _               
LinkToFile:=False, SaveWithDocument:=True)        
.Bookmarks.Add Name:=sTMName, Range:=objShape.Range      
End If    
End If          
.Protect Type:=wdAllowOnlyFormFields  
End With    
Set tmRange = Nothing  
Set objShape = NothingEnd Sub

Sub Start()
TextAnTextmarkeUebergeben "Test1"  
TextAnTextmarkeUebergeben "Test2"  
TextAnTextmarkeUebergeben "Test3"
End Sub