mein Problem ist folgendes:
Und zwar kopiere ich Daten von Excel nach Word. Beim Einfügen in Word fügt er mir die Daten immer in "Arial 10" ein und nicht wie in dem Word-Dokument hinterlegt "Arial 12". Hat jemand vielleicht eine Ahnung, wie ich mein bisheriges Makro umbauen müsste?
Sub Prüfbericht_aktivieren()
Dim oWord As Word.Application
Dim oDoc As Document
Dim iRow As Integer
Dim sFile As String
Dim i As Integer
Set oWord = CreateObject("Word.Application")
oWord.Visible = True
sFile = "C:\Prüfbericht_Öl.Doc"
Set oDoc = oWord.Documents.Open(sFile)
For i = 1 To Worksheets.Count
If Worksheets(i).Name = "Übersichtsblatt" Then
Sheets("Übersichtsblatt").Range("B17").Copy
oWord.Selection.GoTo What:=wdGoToBookmark, Name:="Prüfungen1"
oWord.Selection.Paste
Danke im Voraus
Chris