if combofamilienstand.text = "verheiratet" then
  With objWord.Selection.Find
      .Text = "Konkretisierung"
      .Replacement.Text = "Was bedeutet das konkret für Sie : "
  end With
objWord.Selection.Find.Execute Replace:=wdReplaceAll