Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
1212to1216
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

Von Excel nach Word (VBA) => Ausrichtung

Von Excel nach Word (VBA) => Ausrichtung
Florian
Hallo liebe Excel-Freunde!
Habe wiedermal eine Frage, bei der Ihr mir evt. weiterhelfen könntet.
Der Inhalt eines Excel-Sheets soll per VBA in ein leeres Word-Dokument eingefügt werden. Das funktioniert prinzipiell ganz gut. Problem, das ich noch habe, ist die Ausrichtung. Da die Routine verallgemeinert werden soll, wäre es wünschenswert auch die Ausrichtung genau zu steuern, so dass der kopierte Inhalt genau auf eine Word-Seite passt.
Die zu kopierenden Ranges in Excel haben jeweils immer andere Zeilen- und Spaltenanzahlen. Ein einfachs Bsp, wie man die Ausrichtung für nur ein Sheet steuert/anspricht würde mir reichen. Alle Routinen sitzen im Excel-file, Code-Bsp siehe unten)
Vielen Dank für Eure Unterstützung!
Gruß Florian
Sub vonExcelNachWord()
Dim Word_App As Word.Application
Dim Word_Doc As Word.Document
On Error Resume Next
Set Word_App = GetObject(, "Word.Application")
Set Word_App = CreateObject("Word.Application")
Set Word_Doc = Word_App.Documents.Add("C:\Users\Don_Tony\Desktop\bspBriefLeer.doc")
Word_App.Visible = True
With ThisWorkbook
With .Sheets("3xMisch")
.Range(.Cells(1, 1), .Cells(10, 31)).Copy
End With
End With
'in Word einfu"gen
Word_App.Selection.PasteSpecial Link:=False, DataType:=wdPasteRTF, _
Placement:=wdInLine, DisplayAsIcon:=False
'Speicher freigeben
Set Word_Doc = Nothing
Set Word_App = Nothing
Application.CutCopyMode = False
Exit Sub
Fehler:
Set Word_Doc = Nothing
Set Word_App = Nothing
Application.CutCopyMode = False
End Sub

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Benutzer
Anzeige

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige