Hallo allerseits
Hoffe, habe keinen Eintrag übersetzen und bin hier richtig. Ich möchte von VBEE 2010/vb.net aus in Word bestimmte Zeilen farbig unterlegen und habe dazu mal folgendes zusammengestellt aufgrund dessen, was ich so finden konnte. Das funktioniert allerdings nicht, bzw. nur soweit, als dass zwar die eine oder andere Zeile ganz schnell farbig unterlegt wird, mit Beginn der nächsten Zeile diese Farb-Unterlegung aber wieder weg ist. Wer kann mir bitte möglichst konkret bei folgendem Code helfen:
Nachtrag: Wenn ich den Buchstaben "i" überall einsetze, wie das im letzten Block der Fall ist, dann kommt schon bei der ersten Zeile eine Fehlermeldung. Dabei möchte ich ja eigentlich nur einfach bei Bedarf eine farbige Unterlegung einschalten und dann für die nächste Zeile wieder ausschalten können.
Vorab schon mal besten Dank für jegliche Schützenhilfe.
*Topic verschoben*
Hoffe, habe keinen Eintrag übersetzen und bin hier richtig. Ich möchte von VBEE 2010/vb.net aus in Word bestimmte Zeilen farbig unterlegen und habe dazu mal folgendes zusammengestellt aufgrund dessen, was ich so finden konnte. Das funktioniert allerdings nicht, bzw. nur soweit, als dass zwar die eine oder andere Zeile ganz schnell farbig unterlegt wird, mit Beginn der nächsten Zeile diese Farb-Unterlegung aber wieder weg ist. Wer kann mir bitte möglichst konkret bei folgendem Code helfen:
VB.NET-Quellcode
- 'Dim objWord As Object
- Dim objWord As New Word.Application
- ' Word anzeigen
- objWord.Visible = True
- ' Word-Dokument hinzufügen
- objWord.Documents.Add()
- ' Name der Schriftart auslesen
- objWord.Selection.Font.Name = "Arial"
- Const wdColorWhite = 16777215
- Const wdColorGray10 = 15132390
- Const wdColorYellow = 65535
- Dim i As Integer = 1
- objWord.Selection().Range.Select()
- objWord.Selection.ParagraphFormat.Shading.BackgroundPatternColor = wdColorGray10
- objWord.Selection.TypeText("Dies ist der erste Absatz, bzw. die erste Zeile")
- objWord.Selection.TypeParagraph()
- i = i + 1
- objWord.Selection().Range.Select()
- objWord.Selection.ParagraphFormat.Shading.BackgroundPatternColor = wdColorWhite
- objWord.Selection.TypeText("Dies ist der zweite Absatz")
- objWord.Selection.TypeParagraph()
- objWord.Selection().Range.Select()
- objWord.Selection.ParagraphFormat.Shading.BackgroundPatternColor = wdColorWhite
- objWord.Selection.TypeText("Dies ist der dritte Absatz")
- objWord.Selection.TypeParagraph()
- i = i + 1
- objWord.Paragraphs(i).Range.Select()
- objWord.Selection.ParagraphFormat.Shading.BackgroundPatternColor = wdColorYellow
- objWord.Selection.TypeText("Dies ist der vierte Absatz")
- objWord.Selection.TypeParagraph()
- i = i + 1
Nachtrag: Wenn ich den Buchstaben "i" überall einsetze, wie das im letzten Block der Fall ist, dann kommt schon bei der ersten Zeile eine Fehlermeldung. Dabei möchte ich ja eigentlich nur einfach bei Bedarf eine farbige Unterlegung einschalten und dann für die nächste Zeile wieder ausschalten können.
Vorab schon mal besten Dank für jegliche Schützenhilfe.
*Topic verschoben*
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „Marcus Gräfe“ ()