Paste special von Excel nach Word
Excel
ich hoffe Ihr könnt mir helfen bei einem Problem mit der Zusammenarbeit von Excel und Word.
mit folgendem Sniplet füge ich einen Teil einer Exceltabelle in ein Word document (an einem _
Boookmark) ein:
Sub einfügen()
' hier kommt offensichtlich viel mehr code den ich Euch jetzt erspare
On Error Resume Next
doc.Bookmarks("Textmarke24").Select
If Err.Number = 0 Then
activesheet.Range(Cells(23, 3), Cells(33, 6)).Copy
doc.Windows(1).Selection.PasteSpecial Placement:=wdInLine, DataType:=wdPasteHTML
End If
Err.clear
End Sub
Das klappt soweit auch (fast) gut. Leider schiebt mir Word aus für mich unersichtlichen Gründen die Tabelle zu weit nach rechts. Ich habe schon das entsprechende Bookmark weiter nach links verschoben aber die Tabelle landet immer zu weit rechts.
Hat jemand eine Idee wie ich meinen Code umfrickeln muss, um die Tabelle linksbündig mit dem restlichen Text zuu bekommen? Habe schon mit Word Macro Recorder versucht die Tabelle zu verschieben, aber der Recorder ist (zumindest unter 2007) wohl nicht richtig brauchbar :-( )
Vielen Dank für Eure Hilfe
Ein (ratloser) Fettertiger