Feedback

C# - Texte und Überschriften in Worddokument einfügen

Veröffentlicht von am 20.10.2013
(1 Bewertungen)
Fügt Texte und überschriften in Word über VSTO ein.
Snippet in VB übersetzen
        private void ThisAddIn_Startup(object sender, System.EventArgs e)
        {
           WordFunctions wf = new WordFunctions(Application);

           for (int index = 1; index < 6; index++)
           {
              wf.InsertText("Überschrift " + index.ToString(), "Text " + index.ToString());
           }
        }

        private void ThisAddIn_Shutdown(object sender, System.EventArgs e)
        {
        }


        class WordFunctions
        {
           Word.Application _Application;
           Word.Document _Document;

           public WordFunctions(Word.Application application)
           {
              _Application = application;
              _Document = application.ActiveDocument;
           }

           public void InsertText(string ueberschrift, string text)
           {
              // geamten Inhalt des Dokuments
              Word.Range rng = _Document.Content;

              // an das Ende gehen
              object collapseEnd1 = Word.WdCollapseDirection.wdCollapseEnd;
              rng.Collapse(ref collapseEnd1);

              // Text für Überschrift
              rng.Text = ueberschrift + "\n";

              // Formatierung für die Überschrift
              object style1 = Word.WdBuiltinStyle.wdStyleHeading1;
              rng.set_Style(ref style1);

              // wieder ans Ende gehen
              object collapseEnd2 = Word.WdCollapseDirection.wdCollapseEnd;
              rng.Collapse(ref collapseEnd2);

              // Text hinzufügen
              rng.Text = text + "\n";

              // Formatierung Standard
              object style2 = Word.WdBuiltinStyle.wdStyleNormal;
              rng.set_Style(ref style2);
           }
}
Abgelegt unter Word, Text, VSTO.

Kommentare zum Snippet

 

Logge dich ein, um hier zu kommentieren!