Try something like:
tmp = DictionaryLookup[]; tmp // Length tmp = Select[tmp, StringFreeQ[#, "ar"] &]; tmp // Length tmp = Select[tmp, StringFreeQ[#, "h"] &]; tmp // Length
