Крайне медленная работа Microsoft.Office.Interop.Word

   Microsoft.Office.Interop.Word.Application app = new Microsoft.Office.Interop.Word.Application();
            Object fileName = @f.FullName;
            Object missing = Type.Missing;
            app.Documents.Open(ref fileName, ref missing, ref missing, ref missing,
                ref missing, ref missing,  ref missing, ref missing,
                ref missing, ref missing,  ref missing, ref missing,
                ref missing, ref missing,  ref missing, ref missing);
            Microsoft.Office.Interop.Word.Document doc = app.ActiveDocument;
            doc.GrammarChecked = false;
            string s = "";
            for (int i = 1; i <= doc.Paragraphs.Count; i++)
            {
                s += doc.Paragraphs[i].Range.Text+' ';
            }
            app.ActiveDocument.Close();
            app.Quit();

doc.GrammarChecked = true;//или false

 app.ActiveDocument.Close();
   app.Quit();

for (int i = 1; i <= doc.Paragraphs.Count; i++)
            {
                s += doc.Paragraphs[i].Range.Text+' ';
            }

            Microsoft.Office.Interop.Word.Application app = new Microsoft.Office.Interop.Word.Application();
            Object fileName = @f.FullName;
            Object missing = Type.Missing;
            app.Documents.Open(ref fileName, ref missing, ref missing, ref missing,
                ref missing, ref missing, ref missing, ref missing,
                ref missing, ref missing, ref missing, ref missing,
                ref missing, ref missing, ref missing, ref missing);
            Microsoft.Office.Interop.Word.Document doc = app.ActiveDocument;
            doc.GrammarChecked = false;
 
            Object start = Type.Missing;
            Object end = Type.Missing;
 
            Word.Range rng =  doc.Range(ref start, ref end);
            rng.Select();
            string s = rng.Text.ToString();
 
            app.ActiveDocument.Close();
            app.Quit();

private void RPS(string stubTR, string text, Word.Document wordDoc)
        {
            var range = wordDoc.Content;
            range.Find.ClearFormatting();
            range.Find.Execute(FindText: stubTR, ReplaceWith: text);
        }