Fügt Texte und überschriften in Word über VSTO ein.
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);
}
}
Kommentare zum Snippet