Word VSTO で、Find.Executeの結果がSelectionに反映されない。

Question

お世話になっております。
Visual Studio 2013 (Visual Studio Tools fpor Office)で、マネージドコードを使用したドキュメントを作成しています。開いたときに、一部の文書の文字列を置き換えます。Microsoft Word 2010 が対象です。

本来はReplacementに置き換えたい内容を指定して置換処理をしたかったのですが、「長すぎます」とエラーになってしまうため、Findで選択させSelectionオブジェクトの示す内容へ代入する方法で代替しています。

        void Application_DocumentOpen(Word.Document Doc)
        {

            var f = Doc.Sections.First.Range;
            f.Find.ClearFormatting();
            f.Find.Text = "Moji";
            f.Find.Replacement.Text = "";
            f.Find.Forward = true;
            f.Find.Wrap = Word.WdFindWrap.wdFindContinue;
            f.Find.Format = false;
            f.Find.MatchCase = false;
            f.Find.MatchWholeWord = false;
            f.Find.MatchByte = false;
            f.Find.MatchAllWordForms = false;
            f.Find.MatchSoundsLike = false;
            f.Find.MatchWildcards = false;
            f.Find.MatchFuzzy = true;
            var a = f.Find.Execute();
            var b = Application.Selection.Text;
            Application.Selection.TypeText("REPLACE");

}

例では "Moji"という文字を検索して、REPLACEという文字列に置き換えようとしています。
このとき、a は trueになるのですが、bはとんちんかんな内容を示しています。

可能性はDocumentOpenイベントではSelectionオブジェクトを扱えないか、他に間違いがあるかですが、うまくSelectさせ、置き換えさせるために、間違えている個所がありましたらご指摘いただけますでしょうか？

Answer 1

最初の投稿よりかなり時間が経っているので、もう解決されたかもしれないし、もうここを見ていらっしゃらないかも知れませんが、ちょうどWordのVSTOを勉強中（ただしVB）で、もしかしたら同じ疑問をお持ちの方がいらっしゃるかも知れませんので、書き込みます。
まず、「var f」はWord.Range（以下、レンジと記載）を表し、f.Find.Execute()の検索により、検索文字の領域情報がレンジfに反映されます。
ここで注意しなければいけないのは、f.Find.Execute()の結果はレンジfに反映されるだけであって、文書内の選択位置(Selection）が変わるわけではないということです。
このため、変数bには検索結果と関係ない内容（具体的には元々の選択箇所）のテキストが入ります。
もし、検索された箇所を選択状態にし、ここの文字を置き換えるには、検索後のレンジfを選択状態（f.Select()）にします。
以下のようなアレンジでどうでしょうか。

void Application_DocumentOpen(Word.Document Doc)
        {

            var f = Doc.Sections.First.Range;
            f.Find.ClearFormatting();
            f.Find.Text = "Moji";
            f.Find.Replacement.Text = "";
            f.Find.Forward = true;
            f.Find.Wrap = Word.WdFindWrap.wdFindContinue;
            f.Find.Format = false;
            f.Find.MatchCase = false;
            f.Find.MatchWholeWord = false;
            f.Find.MatchByte = false;
            f.Find.MatchAllWordForms = false;
            f.Find.MatchSoundsLike = false;
            f.Find.MatchWildcards = false;
            f.Find.MatchFuzzy = true;
            var a = f.Find.Execute();
            if (a)  //念のためif文を追加
            {
                f.Select();  //この行を追加
                var b = Application.Selection.Text;
                Application.Selection.TypeText("REPLACE");
             }
}