title image


Smiley Re: 2nd Try : Daten von Excel per Makro in Word-Dokument
Hi,Zuerst eine Verweis im Menüpunkt Extras - Verweiseauf die - Microsoft Word8.0 Object Library - machen (anhaken).Egal ob Worddokument offen oder nicht.WordObj.Documents.Open ("D:\Eigene Dateien\test.doc")gehört natürlich angepaßt.Sub Word()Dim WordObj As Object, i As VariantOn Error GoTo FehlerSet WordObj = GetObject(, "word.Application")WordObj.Visible = TrueWordObj.WindowState = wdWindowStateMaximizeWordObj.Documents.Open ("D:\Eigene Dateien\test.doc")WordObj.ActivateFor Each i In SelectionIf i "" ThenWith WordObj.ActiveDocument .Content.InsertAfter Text:=i .Content.InsertAfter Text:=Chr$(13)End WithEnd IfNextSet WordObj = NothingExit SubFehler:If Err.Number = 429 ThenSet WordObj = CreateObject("word.Application")Resume NextElseMsgBox Err.DescriptionEnd IfEnd SubGrußWalter Griesser

geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: