Makro funktioniert unter Office XP nicht!
18.08.2003 10:30:45
Chris
habe ein Problem mit meinem neuen System:
Ich habe ein Excel-Blatt ("Datenblatt"), mit einer Click-Box öffne ich das Word-Dokument ("Versuchsauftrag.dot")
In dieses Word-Dokument soll aus dem ("Datenblatt") Werte geschrieben werden. Unter Excel 97 hat das einwandfrei funktioniert!
Jetzt aber zu meinem Problem in Office XP! XP kopiert mir statt nur die Werte auch gleich die Umrandungen mit! Kann mir vielleicht jemand helfen, das folgende Makro so umzustellen, dass es auch unter Office XP funktioniert!
Das wäre klasse!
LG Chris
Mein Makro:
Sub Versuchsauftrag_öffnen()
Dim oWord As Word.Application
Dim oDoc As Document
Dim Aktuell_Datei As String
Dim tab1 As Variant
Dim dlg As Object
On Error Resume Next
Set tab1 = Worksheets("Übersichtsblatt")
If Err = 9 Then
MsgBox (("Datenblatt ist nicht vorhanden") & vbLf & ("Bitte wenden Sie sich an Ihren System-Administrator"))
GoTo ende00
Else
Aktuell_Datei = ActiveWorkbook.Name
Set oWord = CreateObject("Word.Application")
oWord.Visible = True
sFile = "C:\Versuchsauftrag.Dot"
oWord.Documents.Add Template:="C:\Versuchsauftrag.Dot", NewTemplate:=False
If Dir(sFile) = "" Then
MsgBox "Die Datei wurde umbenannt und kann deshalb nicht gefunden werden"
Else
End If
With Worksheets("Übersichtsblatt")
If .Range("B17") = "" Then
GoTo ende1
Else
.Range("B17").Copy
oWord.Selection.Goto What:=wdGoToBookmark, Name:="aufgaben"
oWord.Selection.Paste
oWord.Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
oWord.Selection.Font.Size = 12
oWord.Selection.EndKey Unit:=wdLine
oWord.Selection.TypeParagraph
If .Range("E17") = "" Then
GoTo ende01
Else
.Range("E17").Copy
oWord.Selection.Paste
oWord.Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
oWord.Selection.Font.Size = 10
oWord.Selection.EndKey Unit:=wdLine
oWord.Selection.TypeParagraph
End If
ende01:
If .Range("C17") = "" Then
GoTo ende001
Else
.Range("C17").Copy
oWord.Selection.Paste
oWord.Selection.Select
oWord.Selection.HomeKey Unit:=wdLine, Extend:=wdExtend
oWord.Selection.Font.Size = 10
oWord.Selection.EndKey Unit:=wdLine
End If
oWord.Selection.TypeParagraph
ende1:
ende001:
End If
End If
End Sub