its not show the output , any one help for this VBA program

solution in C#.net WORD ADDIN

first create the class

public void paraAlign(Word.Range range)
        {
            Word.Range T = range.Duplicate;
            Word.Range R;
            string StrP;
            string[] Arr;
            string Swrite;
            int PCount;
            PCount =Globals.ThisAddIn.Application.ActiveDocument.Paragraphs.Count;
            int tempj = 0;
            for (int i = 1; i <= PCount; i++)
            {
                R = Globals.ThisAddIn.Application.ActiveDocument.Paragraphs[i + tempj].Range;
                StrP = R.Text;
                StrP = StrP.Replace('\r', ' ');
                Arr = StrP.Split(' ');
                System.Array.Sort(Arr);
                Swrite = string.Join(" ", Arr);
                Swrite = Swrite + "\r";
                R.Collapse(Word.WdCollapseDirection.wdCollapseEnd);
                R.InsertAfter(Swrite);
                tempj++;
            }
        }

then use button click event

private void button1_Click(object sender, RibbonControlEventArgs e)
       {
           Class1 c = new Class1();
           c.paraAlign(Globals.ThisAddIn.Application.ActiveDocument.Content);
       }

solution in C#.net WORD ADDIN

store the content and count in new file

first create the class

public void OccuranceAllWordOther(Word.Range range)
{

//Create a dic
Dictionary<string,> WordDictionary = new Dictionary<string,>();
int _intW = 0;
string txt;
Word.Range T = range.Duplicate;
T.Collapse(Word.WdCollapseDirection.wdCollapseStart);
foreach (Word.Range RWord in range.Words)
{
RWord.Select();
txt = RWord.Text;
T.Find.Text = txt;
T.Find.MatchWholeWord = true;
T.Find.MatchCase = false;
_intW = 1;
txt = txt.Trim();
txt = " " + txt;
if (WordDictionary.ContainsKey(txt) != true)
{
if ((!txt.Contains("(")) && (!txt.Contains(")")))
{
Regex reg = new Regex(txt);
MatchCollection match = reg.Matches(range.Text);
_intW = match.Count;
WordDictionary.Add(txt, _intW);
}
}
}
// create a text file and paste the values
CreateTextFile(WordDictionary, @"C:\Users\201875\Desktop\out.txt");
}

then use button click event

public void CreateTextFile(Dictionary<string,> SampleWord, string pathname)
{
string outputText = null;
if (File.Exists(pathname))
{
File.Delete(pathname);
}
using (StreamWriter Sw = File.CreateText(pathname))
{
foreach (KeyValuePair<string,> Dicmain in SampleWord)
{
outputText = Dicmain.Key + ":" + Dicmain.Value;
Sw.WriteLine(outputText);
}
}
}



private void button1_Click(object sender, RibbonControlEventArgs e)
{
Class1 c = new Class1();
c.OccuranceAllWordOther(Globals.ThisAddIn.Application.ActiveDocument.Content);

}

solution in C#.net WORD ADDIN

sort the paragraph content separate by ;

first create the class

public void SeriesContent()
{
Word.Range R;
R = Globals.ThisAddIn.Application.Selection.Range;
string[] ParaArr;
string Swrite;
string Pstr;
Pstr = R.Text;
Pstr = Pstr.Replace('\r', ' ');
ParaArr = Pstr.Split(';');
System.Array.Sort(ParaArr);
Swrite = string.Join(";", ParaArr);
Swrite = Swrite + "\r";
R.InsertAfter(Swrite);
}


then use button click event

private void button1_Click(object sender, RibbonControlEventArgs e)
{
Class1 c = new Class1();
c.SeriesContent();
}