___Seitenumbruch in Word Dokument einfügen

  • VB6

Es gibt 1 Antwort in diesem Thema. Der letzte Beitrag () ist von alchimist.

    ___Seitenumbruch in Word Dokument einfügen

    Ich füge aus meinem Programm (VB 6.0)Daten (Überschriften.Tabellen usw) über ein Range- Objekt in ein Word- Dokument ein:

    Set word = CreateObject("Word.Application")
    word.Visible = True

    Set Para1 = Doc.Content.Paragraphs.Add
    Para1.range.Text = "Test" & variable
    Para1.range.Font.Bold = True
    Para1.range.Font.Size = 12
    Para1.Format.SpaceAfter = 6
    Para1.range.InsertParagraphAfter

    und möchte anschliessend einen Seitenumbruch einfügen. Laut Anleitung sollte das wie folgt aussehen:

    Para1.range.InsertBreak type:=wdpagebreak

    Klappt aber alles nicht.

    Laut MS Knowledgebase sollten z.B. auch bestimmte Deklarationen erfolgen, die ich weglassen musste, da er die Datentypen als unbekannt betrachtet. Erst wenn ich die Deklarationen weglasse, funktioniert es.

    'Dim Word As Word.Application
    'Dim Doc As Word.Document
    'Dim Table As Word.Table
    'Dim Para1 As Word.Paragraph, oPara2 As Word.Paragraph
    'Dim Para3 As Word.Paragraph, oPara4 As Word.Paragraph
    'Dim Rng As Word.Range
    'Dim Shape As Word.InlineShape

    Wie bekomme ich also diesen Seitenumbruch zustande?

    nebenbei:
    Wie kann ich den Text (Paragraph) in die Bildschirmmitte bewegen?

    Wie kann ich in einer Tabelle nur bestimmte Felder BOLD setzen oder nicht?
    Hallo,

    alles, was du vorhast wird auch funktionieren, wenn du vorher die Microsoft Word Object Library eingebunden hast (Projekt-Verweise).

    Dein Quelltext klappte nicht, weil die Konstante wdpagebreak aufgrund der fehlenden Einbindung der Library nicht bekannt war.

    Was genau meinst du mit "Wie kann ich den Text (Paragraph) in die Bildschirmmitte bewegen?"
    Meinst du zentrieren?

    Hier ein kleiner Quelltext bzgl. deines Tabellenproblems (wichtig Library einbinden):

    Option Explicit
    Dim appWord As Word.Application
    Dim doc As Word.Document
    Dim tb As Word.Table

    Private Sub Command1_Click()
    Set appWord = New Word.Application
    appWord.Visible = True
    Set doc = Word.Documents.Add
    Set tb = doc.Tables.Add(doc.Range, 4, 3)
    With tb
    .Cell(1, 1).Range.Text = "Normaler Text"
    .Cell(2, 2).Range.Text = "Fetter Text"
    .Cell(2, 2).Range.Font.Bold = True
    .Cell(3, 3).Range.Text = "Kursiver Text"
    .Cell(3, 3).Range.Font.Italic = True
    End With
    Set tb = Nothing
    Set doc = Nothing
    Set appWord = Nothing
    End Sub

    Gruß Markus