habe gestern schon einmal mein Glück versucht!
Ich wollte beim Einfügen meiner Daten von Excel nach Word die Schriftgrösse von "Arial 10" auf "Arial 12" zu stellen, dies hat aber leider nicht funktioniert!
Ich habe ein Makro bekommen, schaffe es aber leider nicht, bei miteinander so zu verknüpfen, so dass es funktioniert! Vielleicht kann mir jemand helfen!
Mein Makro:
Sub Prüfbericht_aktivieren()
Dim oWord As Word.Application
Dim oDoc As Document
Dim i As Integer
Dim iRow As Integer
Dim sFile As String
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
Sheets("Übersichtsblatt").Range("B18").Copy
oWord.Selection.GoTo What:=wdGoToBookmark, Name:="Prüfungen2"
oWord.Selection.Paste
Next
End If
End Sub
Das Makro, welches ich von hier habe:
Dim iSize As Integer
iSize = Range("B18").Font.Size = 12
With Sheets("Übersichtsblatt")
Range("B18").Copy .Range("B18")
.Range("B18").Font.Size = iSize
End With
Danke im Voraus für Eure Hilfe!
Gruss Chris