Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: VW/Word
Autor: Anok4you
Datum: 28.10.01 18:16
Hier ein Beispiel: Wenn du Probleme hast einfach eine Mail schicken viel Spaß Wichtig ist das du ein Dokument hast in dem du die Bookmarks genauso nennst wie im Programm. option explicit Dim w As Object Const wdwindowstatemaximice = 1 Const wdcollapseend = 1 Const wdOrientportrait = 1 Const wdOrientLandscape = 1 Const wdcell = 1 Const wdline = 5 Const wdLineStyleNone = 0 Const wdBorderLeft = 0 Const wdBorderRight = 0 Const wdBorderTop = 0 Const wdBorderBottom = 0 Const wdBorderHorizontal = 0 Const wdBorderVertical = 0 Const wdAdjustNone = 1 Const wdAlignParagraphCenter = 1 Const wdAlignParagraphleft = 0 Const wdLineStyleSingle = 0 Const wdLineWidth050pt = 0 Const wdAuto = 0 Set w = CreateObject("Word.Application") w.Visible = True w.application.WindowState = wdwindowstatemaximice w.Documents.Add If Text1.Text <> "" Then w.selection.InsertFile FileName:="c: est exte est.dot", Range:="", ConfirmConversions:=False, Link:=False, Attachment:=False w.ActiveDocument.Bookmarks("Part1").Range.Text = Text1.Text w.ActiveDocument.Bookmarks("Länge1").Range.Text = Text2.Text w.ActiveDocument.Bookmarks("Breite1").Range.Text = Text3.Text w.ActiveDocument.Bookmarks("Höhe1").Range.Text = Text4.Text

VW/Word	98	Edmund	26.10.01 18:49
Re: VW/Word	74	Anok4you	28.10.01 18:16
Re: VW/Word	56	Edmund	29.10.01 19:33
Re: VW/Word	55	Edmund	30.10.01 18:22

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