Daten von Excel nach Word kopieren!
08.07.2003 11:34:29
Chris
habe ein kleines Problemchen!
Und zwar würde ich gerne Daten von Excel nach Word kopieren! Funktioniert alles einwandfrei, aber er macht mir immer zwischen meinen Textmarken immer eine Leerzeile, obwohl keine eingegeben wurde!
Dim oDoc As Document
Dim oWord As Word.Application
If oDoc Is Nothing Then
GoTo ende
Else
Sheets("Übersichtsblatt").Range("B18").Copy
oWord.Selection.Goto What:=wdGoToBookmark, Name:="Prüfungen1"
oWord.Selection.PasteSpecial Link:=False, DataType:=wdPasteText
ende:
Kann mir vielleicht jemand helfen!?
LG Chris
PS: Wenn ich die Zeile ändere
oWord.Selection.PasteSpecial Link:=False, DataType:=wdPasteText
in
oWord.Selection.Paste
dann macht er mir die Leerzeile nicht, aber er verändert meine Schriftgröße
ES MUSS WOHL IRGENDWIE IN DIESER ZEILE DAS PROBLEM LIEGEN!!!!
Vielleicht finde ich hier ja einen Fachmann!!!!