Zum Inhalt springen

WORD-Serienbrief mit C#


msc84

Empfohlene Beiträge

Hallo,

ich habe folgendes vor:

Word Serienbrief aus C#.

Dazu öffne ich eine Vorlagendatei, durchlaufe die Paragraphen, passe meine Serienbrief Key-Felder an, und schreib den Kram in ein neues Dokument.

Das ganze funktioniert auch, mein Problem ist nur, das ich die Formateigenschaften des Quelldokumentes (sVorlage) nicht übernehmen kann,

ich finde einfach keine Lösung.

CODE:

public void Start(List<string> liSelKundenIDs, string sVorlage, string sRTBText)

{

Microsoft.Office.Interop.Word._Document wrdDoc1;

Microsoft.Office.Interop.Word.Selection wrdSelection;

Microsoft.Office.Interop.Word.MailMerge wrdMailMerge;

Microsoft.Office.Interop.Word.MailMergeFields wrdMergeFields;

// Create an instance of Word and make it visible.

wrdApp = new Microsoft.Office.Interop.Word.Application();

wrdApp.Visible = true;

// Add a new document.

wrdDoc = wrdApp.Documents.Add(ref oMissing, ref oMissing,

ref oMissing, ref oMissing);

//Vorlage öffnen

object oFile = sVorlage;

wrdDoc1 = wrdApp.Documents.Open(ref oFile, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing,

ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing,

ref oMissing, ref oMissing, ref oMissing, ref oMissing);

wrdDoc.Select();

wrdSelection = wrdApp.Selection;

wrdMailMerge = wrdDoc.MailMerge;

// Create a MailMerge Data file.

CreateMailMergeDataFile(liSelKundenIDs);

wrdMergeFields = wrdMailMerge.Fields;

string sLines = "";

for (int i = 0; i < wrdDoc1.Paragraphs.Count; i++)

{

sLines = wrdDoc1.Paragraphs[i + 1].Range.Text;

Range rng = wrdDoc1.Paragraphs[i + 1].Range.FormattedText;

while (sLines.Contains("<<"))

{

string sNurText = sLines.Substring(0, sLines.IndexOf("<<"));

wrdSelection.TypeText(sNurText);

string sKeyField = sLines.Substring((sLines.IndexOf("<<") + 2), sLines.IndexOf(">>") - (sLines.IndexOf("<<") + 2));

wrdMergeFields.Add(wrdSelection.Range, sKeyField);

sLines = sLines.Substring((sLines.IndexOf(">>") + 2), sLines.Length - (sLines.IndexOf(">>") + 2));

}

wrdSelection.TypeText(sLines);

//wrdSelection.Font.Bold = wrdDoc1.Paragraphs[i + 1].Range.Font.Bold;

//wrdSelection.Font.Size = wrdDoc1.Paragraphs[i + 1].Range.Font.Size;

//wrdSelection.Font.Italic = wrdDoc1.Paragraphs[i + 1].Range.Font.Italic;

//wrdSelection.Font.Name = wrdDoc1.Paragraphs[i + 1].Range.Font.Name;

//wrdSelection.Font.Underline = wrdDoc1.Paragraphs[i + 1].Range.Font.Underline;

//wrdSelection.Font.UnderlineColor = wrdDoc1.Paragraphs[i + 1].Range.Font.UnderlineColor;

//wrdSelection.Font.Color = wrdDoc1.Paragraphs[i + 1].Range.Font.Color;

//wrdSelection.Font.Position = wrdDoc1.Paragraphs[i + 1].Range.Font.Position;

//wrdSelection.Font.StrikeThrough = wrdDoc1.Paragraphs[i + 1].Range.Font.StrikeThrough;

}

// Perform mail merge.

wrdMailMerge.Destination = Microsoft.Office.Interop.Word.WdMailMergeDestination.wdSendToNewDocument;

wrdMailMerge.Execute(ref oFalse);

// Close the original form document.

wrdDoc.Saved = true;

wrdDoc.Close(ref oFalse, ref oMissing, ref oMissing);

wrdDoc1.Saved = false;

wrdDoc1.Close(ref oFalse, ref oMissing, ref oMissing);

// Release References.

wrdSelection = null;

wrdMailMerge = null;

wrdMergeFields = null;

wrdDoc = null;

wrdDoc1 = null;

wrdApp = null;

// Clean up temp file.

System.IO.File.Delete("C:\\DataDoc.doc");

}

Bin für jede Hilfe und Anmerkung sehr dankbar.

Link zu diesem Kommentar
Auf anderen Seiten teilen

Dein Kommentar

Du kannst jetzt schreiben und Dich später registrieren. Wenn Du ein Konto hast, melde Dich jetzt an, um unter Deinem Benutzernamen zu schreiben.

Gast
Auf dieses Thema antworten...

×   Du hast formatierten Text eingefügt.   Formatierung wiederherstellen

  Nur 75 Emojis sind erlaubt.

×   Dein Link wurde automatisch eingebettet.   Einbetten rückgängig machen und als Link darstellen

×   Dein vorheriger Inhalt wurde wiederhergestellt.   Editor leeren

×   Du kannst Bilder nicht direkt einfügen. Lade Bilder hoch oder lade sie von einer URL.

Fachinformatiker.de, 2024 by SE Internet Services

fidelogo_small.png

Schicke uns eine Nachricht!

Fachinformatiker.de ist die größte IT-Community
rund um Ausbildung, Job, Weiterbildung für IT-Fachkräfte.

Fachinformatiker.de App

Download on the App Store
Get it on Google Play

Kontakt

Hier werben?
Oder sende eine E-Mail an

Social media u. feeds

Jobboard für Fachinformatiker und IT-Fachkräfte

×
×
  • Neu erstellen...