Word '13 - Zelleninhalt der Tabelle beginnt mit vbCr anstatt definiertem Text

  • VB.NET

Es gibt 4 Antworten in diesem Thema. Der letzte Beitrag () ist von Dancger.

    Word '13 - Zelleninhalt der Tabelle beginnt mit vbCr anstatt definiertem Text

    Hallo zusammen

    Mein generiertes Word Dokument enthält eine Kopfzeile mit einer Tabelle.
    Schreibe ich Text in eine dieser Zeilen (mit .Cell(4, 3).Range.Text = "lala test"), wird der Text korrekt angezeigt.
    Versuche ich allerdings, Text mit Paragraphen einzufügen (.Cell(3, 1).Range.Paragraphs.Add 'u.s.w.), ist immer ein vbCr vorangestellt.

    Ein Bild sagt mehr als 1000 Worte:


    Codeausschnitt:

    VB.NET-Quellcode

    1. Const FONT_NAME As String = "Arial"
    3. Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    4. Dim oWord As Word.Application
    5. Dim oDoc As Word.Document
    7. 'Word starten und Dokument Template laden
    8. oWord = CreateObject("Word.Application")
    9. oWord.Visible = True
    10. oDoc = oWord.Documents.Add
    12. 'Kopfzeile hinzufügen
    13. Dim range_header As Word.Range = oDoc.Sections(1).Headers(Word.WdHeaderFooterIndex.wdHeaderFooterPrimary).Range
    14. Dim table_header As Word.Table = range_header.Tables.Add(Range:=range_header, NumRows:=4, NumColumns:=3)
    15. With table_header
    17. 'Schrift Einstellungen
    18. .Range.Font.Name = FONT_NAME
    19. .Range.Font.Size = 12
    20. .Range.Font.Bold = False
    22. 'Zellen verbinden
    23. .Cell(1, 1).Merge(.Cell(2, 1))
    25. 'Logo
    26. Dim pth_image As String = "E:\Pictures\4d9df0e6985ab9e9218f3874ccf9649d.gif"
    27. .Cell(1, 1).Range.InlineShapes.AddPicture(pth_image)
    29. 'Inhalt
    30. Dim para_header_address As Word.Paragraph = .Cell(3, 1).Range.Paragraphs.Add
    31. With para_header_address
    32. .Range.Text = "Erste Zeile"
    33. .Range.Font.Bold = False
    34. .Range.Font.Name = FONT_NAME
    35. .Range.Font.Size = 12
    36. .Format.SpaceAfter = 12
    37. .Format.SpaceBefore = 0
    38. End With
    39. Dim para_header_info As Word.Paragraph = .Cell(3, 1).Range.Paragraphs.Add
    40. With para_header_info
    41. .Range.Text = "Zweite Zeile"
    42. .Range.Font.Bold = False
    43. .Range.Font.Name = FONT_NAME
    44. .Range.Font.Size = 12
    45. .Format.SpaceAfter = 0
    46. End With
    47. Dim para_header_nr As Word.Paragraph = .Cell(3, 1).Range.Paragraphs.Add
    48. With para_header_nr
    49. .Range.Text = "Dritte Zeile"
    50. .Range.Font.Bold = False
    51. .Range.Font.Name = FONT_NAME
    52. .Range.Font.Size = 9
    53. End With


    Wie kriege ich den ersten vbCr am "saubersten" weg? Gibts da ne schöne Einstellung beim hinzufügen des ersten Paragraphen?

    Gruss
    Dancger
    MESS WITH THE BEST, DIE LIKE THE REST! :evil:
    n'paar Links: DNS Tools, Steal WA DB, Droidsheep...

    Dieser Beitrag wurde bereits 3 mal editiert, zuletzt von „Dancger“ ()

    Dancger schrieb:

    Versuche ich allerdings, Text mit Paragraphen einzufügen (.Cell(3, 1).Range.Paragraphs.Add 'u.s.w.), ist immer ein vbCr vorangestellt.
    Was erwartest du?
    Ein Paragraph ist ein harter Zeilenumbruch.
    Wenn du den einfügst, dann gibt es natürlich eine neue Zeile.
    --
    If Not Program.isWorking Then Code.Debug Else Code.DoNotTouch
    --

    petaod schrieb:

    Ein Paragraph ist ein harter Zeilenumbruch.
    Das ist mir bewusst, trotzdem muss der erste Absatz irgendwie unterdrückt werden.

    Das Ziel sind drei Zeilen in der Zelle. Die erste und zweite Zeile in Schriftgrösse 12, die letzte in Schriftgrösse 9. Zwischen der ersten und zweiten Zeile muss eine Leerzeile resp. ein Absatz sein:
    Spoiler anzeigen
    Zeile 1

    Zeile 2
    Zeile 3


    Ist es möglich, dies ohne Paragraphen zu erreichen?
    MESS WITH THE BEST, DIE LIKE THE REST! :evil:
    n'paar Links: DNS Tools, Steal WA DB, Droidsheep...

    Hast Recht, hab schon viel zuweit gedacht.
    Ich kann den Text definieren und dann nur die zweite und dritte Zeile als Paragraph hinzufügen, dann klappts:

    VB.NET-Quellcode

    1. 'Zeile 30 bis 38 ersetzen:
    2. With .Cell(3, 1).Range.Font
    3. .Bold = False
    4. .Name = FONT_NAME
    5. .Size = 12
    6. End With
    7. .Cell(3, 1).Range.Text = "Erste Zeile"


    Edit: Hab per Zufall noch ne weitere Variante gefunden. Einfach beim hinzufügen des Paragraphen die Range der Zelle übergeben:

    VB.NET-Quellcode

    1. 'Zeile 30 ersetzen:
    2. Dim para_header_address As Word.Paragraph = .Cell(3, 1).Range.Paragraphs.Add(.Cell(3, 1).Range)


    Danke dir für den Lösungsansatz.
    MESS WITH THE BEST, DIE LIKE THE REST! :evil:
    n'paar Links: DNS Tools, Steal WA DB, Droidsheep...