Forums Neueste Beiträge
 

Datenübergabe Excel 2003 nach Word2003

15/10/2007 - 12:05 von Andreas78124 | Report spam
Hi,

ich habe folgendes Problem.
Von Excel aus übergebe ich eine Tabelle (Seitenformat A4) mit dem
nachfolgenden Makro nach Word.

Sub ExcelDatenNachWordKopierenBerechnung()
Dim WordApp As Object
Dim WordDok As Object
Dim Bereich As Range
Set WordApp = CreateObject("Word.application")
WordApp.Visible = True
Set WordDok = WordApp.Documents.Add
Set Bereich = Sheets("Berechnung").Range("A1:G239")
Range(Bereich.Address).Copy
WordApp.Selection.PasteSpecial Link:=True
Application.CutCopyMode = False
Set WordApp = Nothing
Set WordDok = Nothing
End Sub

Nun ist es so, dass die Seitenrànder der Normal.dot aufgrund des
Druckbereiches etc. ca 5cm kleiner als A4 sind.
Wie kann ich bei der Übergabe der Tabelle an Word a) entweder die
Seitenrànder per Makro àndern oder b) die Tabelle verkleinern.

Ein Aufruf aus Word auf die Excel-Tabelle ist nicht sinnvoll, da dann die
Formatierungen (Farbe, Schriftgröße etc) verloren geht.

Gruß
 

Lesen sie die antworten

#1 Robert M. Franz (RMF)
15/10/2007 - 18:59 | Warnen spam
Hallo Andreas

Andreas78124 wrote:
ich habe folgendes Problem.
Von Excel aus übergebe ich eine Tabelle (Seitenformat A4) mit dem
nachfolgenden Makro nach Word.


[..]

Fragen zu VBA stellst Du besser gleich in der .vba-Gruppe "nebenan".

Gruss
Robert
/"\ ASCII Ribbon Campaign | MS
\ / | MVP
X Against HTML | for
/ \ in e-mail & news | Word

Ähnliche fragen