title image


Smiley Re: Verbinden zweier Worddokumente zu einem Dokument
Tolle Antwort von Jimmy ?! - ok, ich verstehe dies nicht sofort, aber egal.Natuerlich habe ich auch eine Antwort, und ich hoffe, diese ist verstaendlicher.-BeginnOption Explicit'Unter Projekte/Verweise in VB muss die Ms-Word-(Objekt-Libary) zugefuegt werdenPrivate Sub Command1_Click()Dim WordX As ObjectDim d As Word.DocumentDim strSaveName As StringDim i As IntegerDim strErg As StringDim nAnzahl As IntegerDim sMerker As String Set WordX = CreateObject("Word.Application") nAnzahl = 2 'bzw. Anzahl aller hinzuzufuegender Doks + 1 For i = 1 To nAnzahl 'Anzahl = Anzahl der ges. Word-Dokumente If i 'Name des Dokuments 'ErstesWordDokument1.doc strSaveName = "c:\WordDokument" & i & ".doc" 'Merke den Namen sMerker = strSaveName 'Speichern des Dokumentes WordX.Documents.Open FileName:=strSaveName WordX.Selection.EndKey Unit:=wdStory WordX.Selection.InsertBreak Type:=wdPageBreak Else 'hizuzufügende Dokumente 'VertragsDruck2.doc,'VertragsDruck3.doc ... strSaveName = "c:\WordDokument" & i & ".doc" WordX.Selection.InsertFile strSaveName WordX.Selection.EndKey Unit:=wdStory WordX.Selection.InsertBreak Type:=wdPageBreak End If Next 'Speicher alle Docs unter dem Namen des 1. Doks strSaveName = sMerker WordX.Documents.Open FileName:=sMerker Set d = WordX.ActiveDocument d.SaveAs strSaveName d.Close 'zeigt das erstellte Dok WordX.Documents.Open FileName:=sMerker WordX.Visible = True WordX.Selection.TypeBackspace 'loescht letzten Seitenumbruch WordX.Selection.HomeKey Unit:=wdStory 'setzt Curser auf Doc-Anfang WordX.Application.WindowState = wdWindowStateMaximize 'maximiert Word AppActivate WordX.ActiveDocument 'bringt Word in den Vordergrund End Sub--Ende

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: