Microsoft Word remove double-bracketed text

This is an AppleScript that from the selected text removes double-bracketed text. So “[[word]]”, etc., is removed.


tell application "Microsoft Word"
	activate

	-- remove bracketed text
	set docRange to text object of selection
	set myfind to find object of docRange
	set properties of myfind to {match wildcards:true}
	execute find (myfind) find text "\\[\\[*\\]\\]" replace with "" replace replace all
end tell