Sub Absätzen_mit_Rahmenlinie_Formatvorlage_zuweisen() 
' allen Absätzen mit einer Rahmenlinie links wird die Absatzformatvorlage >mit_Rahmenlinie< zugewiesen 
   
  Dim para As Word.Paragraph 
  Dim sty As Word.Style 
  AFV_fehlt = True 
  AFV_name = "mit_Rahmenlinie" 
   
  For Each sty In ActiveDocument.Styles 
    If sty.NameLocal = AFV_name Then 
      AFV_fehlt = False 
      Exit For 
    End If 
  Next sty 
  If AFV_fehlt Then 
     Antwort = MsgBox("Eine Absatzformatvorlage namens >" & AFV_name & "< MUSS noch definiert werden!", vbOKOnly, "Abbruch") 
     Exit Sub 
  End If 
  For Each para In ActiveDocument.Paragraphs 
    If para.Format.Borders(wdBorderLeft).LineStyle <> wdLineStyleNone Then 
       para.Style = AFV_name 
    End If 
  Next 
  Exit Sub 
End Sub