With Selection.Find.Text="^d ADDIN ZOTERO_BIBL".Replacement.Text="".Forward=True.Wrap=wdFindContinue.Format=False.MatchCase=False.MatchWholeWord=False.MatchWildcards=False.MatchSoundsLike=False.MatchAllWordForms=FalseEnd With Selection.Find.Execute With ActiveDocument.Bookmarks.Add Range:=Selection.Ra...