Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Word
Autor: Marco Nickolai
Datum: 04.05.02 17:16
Hi an alle ich habe folgendes problem ich öffne aus vb word und erstelle einen brief wenn ich jetzt Befehl1_Click zum 2. mal drücke schreibt er mir den brief in dukument1 auf die 2. seite und nicht in dokument2 wo liegt der fehler? gruß marco Private Sub Befehl1_Click() Dim Word As Object Set Word = CreateObject("Word.Application") 'Objekt initialisieren If Word Is Nothing Then MsgBox "Konnte keine Verbindung zu Word herstellen!", 16, "Problem" Exit Sub End If Word.Documents.Add Word.Visible = True If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).Close End If If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ ActivePane.View.Type = wdOutlineView Then ActiveWindow.ActivePane.View.Type = wdPrintView End If ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Word.Selection.Font.Name = "Times New Roman" Selection.Font.Size = 18 Selection.TypeText Text:="Marco Nickolai" If Selection.HeaderFooter.IsHeader = True Then ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter Else ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader End If Word.Selection.Font.Name = "Times New Roman" Selection.Font.Size = 9 Selection.TypeText Text:= _ "Marco Nickolai xxxxxx Telefo" Selection.TypeText Text:="n (xxxx) xxxxxx" Selection.TypeParagraph Selection.TypeText Text:="xxxxxxx xxxxxxxx" ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument Selection.TypeParagraph Selection.TypeParagraph Selection.TypeParagraph Selection.TypeParagraph Selection.TypeParagraph Word.Selection.Font.Name = "Times New Roman" Selection.Font.Size = 8 If Selection.Font.Underline = wdUnderlineNone Then Selection.Font.Underline = wdUnderlineSingle Else Selection.Font.Underline = wdUnderlineNone End If Selection.TypeText Text:="Marco Nickolai xxxxxx, xxxx" Selection.TypeParagraph Selection.TypeParagraph Word.Selection.Font.Name = "Times New Roman" Selection.Font.Size = 12 Selection.Font.Bold = wdToggle If Selection.Font.Underline = wdUnderlineNone Then Selection.Font.Underline = wdUnderlineSingle Else Selection.Font.Underline = wdUnderlineNone End If Selection.TypeText Text:=(txtName) Selection.TypeParagraph Selection.TypeText Text:=(txtStraße) Selection.TypeParagraph Selection.TypeParagraph Selection.TypeText Text:=(txtPostleitzahl & " " & txtOrt) Selection.TypeParagraph Selection.TypeParagraph Selection.TypeParagraph Selection.TypeParagraph Selection.TypeParagraph Selection.Font.Bold = wdToggle Selection.ParagraphFormat.Alignment = wdAlignParagraphRight Selection.TypeText Text:=("xxxxxx, " & Format(Date, "dd.mmm.yyyy")) Selection.TypeParagraph Selection.ParagraphFormat.Alignment = wdAlignParagraphLeft Selection.TypeParagraph Selection.TypeParagraph Selection.TypeParagraph Selection.Font.Bold = wdToggle Selection.TypeText Text:=(Combo1.Text) Selection.TypeParagraph Selection.Font.Bold = wdToggle Selection.TypeParagraph Selection.TypeParagraph Selection.TypeText Text:="Sehr geehrte Damen und Herren," Selection.TypeParagraph Selection.TypeParagraph Selection.TypeParagraph Selection.TypeParagraph Selection.TypeText Text:="Mit freundlichen Grüßen" Selection.TypeParagraph Selection.TypeParagraph Selection.TypeParagraph Selection.TypeParagraph Selection.TypeText Text:="Marco Nickolai" Selection.MoveUp Unit:=wdLine, Count:=6 End Sub

Word	53	Marco Nickolai	04.05.02 17:16
Re: Word	34	Michael	04.05.02 23:14
Re: Word	31	Marco Nickolai	05.05.02 23:10

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen