Range.CreateContextualFragmentのサンプルプログラム