Excel - Word
18.11.2003 15:42:10
Ilona
Ich öffne ein Worddokument mit Inhalt und will nur den Briefkopf ändern. Also die ersten 4 Zeilen löschen und mit den Daten aus Excel beschreiben.
Mit .WholeStory und .Delete wird aber der gesamte Inhalt gelöscht. Kann ich irgendwie festlegen, dass es nur die ersten 4 Zeilen sind, die gelöscht werden.
Sub UebernahmeWord()
Dim WordApp As Object
Dim KName As String
Dim KStrasse As String
Dim KPLZ As String
Dim KOrt As String
Dim KLand As String
KName = Range("F2").Value
KStrasse = Range("K2").Value
KPLZ = Range("I2").Value
KOrt = Range("J2").Value
KLand = Range("H2").Value
'eröffnen einer neuen Word- Sitzung
Set WordApp = CreateObject("Word.application")
With WordApp
'anzeigen der Word- Sitzung
.Application.Visible = True
'öffnen des Dokumentes in welches die Anschrift übernommen werden soll
.Application.Documents.Open _
("C:\Manus\Word\MeinSchreiben.doc")
With WordApp.Selection
' .WholeStory 'bereits vorhandenen Text in .doc markieren
' .Delete 'Text löschen
.TypeText Text:=KName 'Text schreiben
.TypeParagraph 'leere Zeile
.TypeText Text:=KStrasse
.TypeParagraph
.TypeParagraph
.TypeText Text:=KPLZ & " " & KOrt
.TypeParagraph
.TypeText Text:=KLand
End With
End With
Set WordApp = Nothing 'Speicher wieder freigeben, der für die Objektvariable reserviert wurde
End Sub
Danke schon mal im Voraus.
ILONA