Hallo Forum,
ich beschäftige mich erst seit ein paar Wochen mit VBA und habe daher vermutlich einige Lücken, was die Basics angeht. Den unten eingefügten Code habe ich geschrieben, weil ich den Inhalt verschiedener Zellen in die Textmarken einer Wordvorlage einfügen will. Beim schreiben ist mir dann aufgefallen, dass sich das Ganze doch gewiss auch irgendwie optimieren lassen müsste, indem ich zum Beispiel eine Funktion, beispielsweise für Audio schreibe, welche die Daten aus Excel ausliest und dann eine Funktion schreibe, welche diese Daten dann in Word einfügt. Allerdings habe ich nicht wirklich eine Vorstellung wie genau das funktionieren kann, was vermutlich daran liegt, dass ich mich erst seit ein paar Wochen mit VBA beschäftige. Über jede Hilfe bin ich wirklich dankbar, auch wenn euch weitere Verbesserungsmöglichkeiten zum folgenden Code einfallen sollten.
Option Explicit
Sub WordDokumentErstellen()
Dim wdApp As Word.Application
Set wdApp = New Word.Application
With wdApp
.Visible = True
.Activate
End With
Dim wddoc
Dim TabelleDaten
Set TabelleDaten = ThisWorkbook.Worksheets("Daten")
Set wddoc = wdApp.Documents.Add("C:\Users\avid-buero_02\Documents\Benutzerdefinierte Office-Vorlagen\MAZKARTE_VORLAGE.dotm")
'Dim TC As String
'TC = wdApp.ActiveDocument.Bookmarks().Range.Text
'Kopfzeile
wdApp.ActiveDocument.Bookmarks("Titel").Range.Text = Worksheets("Daten").Range("B3")
wdApp.ActiveDocument.Bookmarks("Folge").Range.Text = Worksheets("Daten").Range("A" & p_AusgewaelteFolge) & " - " & Range("B" & p_AusgewaelteFolge)
wdApp.ActiveDocument.Bookmarks("Produktionsnummer").Range.Text = Worksheets("Daten").Range("C" & p_AusgewaelteFolge)
wdApp.ActiveDocument.Bookmarks("Kunde").Range.Text = Worksheets("Daten").Range("B2")
wdApp.ActiveDocument.Bookmarks("Datum").Range.Text = Worksheets("Daten").Range("D" & p_AusgewaelteFolge)
wdApp.ActiveDocument.Bookmarks("Bandstatus").Range.Text = Worksheets("Berechnungen").Range("K4")
wdApp.ActiveDocument.Bookmarks("Aspect_Ratio").Range.Text = Worksheets("Berechnungen").Range("M4")
wdApp.ActiveDocument.Bookmarks("Bandformat").Range.Text = Worksheets("Berechnungen").Range("N4")
wdApp.ActiveDocument.Bookmarks("Datenrate").Range.Text = "Noch Nicht Belegt!"
wdApp.ActiveDocument.Bookmarks("Framerate").Range.Text = Worksheets("Berechnungen").Range("P4")
wdApp.ActiveDocument.Bookmarks("Größe").Range.Text = Worksheets("Berechnungen").Range("Q4")
wdApp.ActiveDocument.Bookmarks("min_GB").Range.Text = Worksheets("Daten").Range("I4")
wdApp.ActiveDocument.Bookmarks("Mode").Range.Text = Worksheets("Berechnungen").Range("R4")
wdApp.ActiveDocument.Bookmarks("Seitenverhältnis").Range.Text = Worksheets("Berechnungen").Range("L4")
wdApp.ActiveDocument.Bookmarks("SystemSignal").Range.Text = Worksheets("Berechnungen").Range("S4")
wdApp.ActiveDocument.Bookmarks("TVNorm").Range.Text = Worksheets("Berechnungen").Range("O4")
wdApp.ActiveDocument.Bookmarks("VITC_1").Range.Text = Worksheets("Berechnungen").Range("T4")
wdApp.ActiveDocument.Bookmarks("VITC_2").Range.Text = Worksheets("Berechnungen").Range("U4")
'Technischer Vorspann
wdApp.ActiveDocument.Bookmarks("TechnischerVorspann01").Range.Text = Worksheets("Berechnungen").Range("S6")
wdApp.ActiveDocument.Bookmarks("TechnischerVorspann02").Range.Text = Worksheets("Berechnungen").Range("S7")
wdApp.ActiveDocument.Bookmarks("TechnischerVorspann03").Range.Text = Worksheets("Berechnungen").Range("S8")
'TC
wdApp.ActiveDocument.Bookmarks("ETC_Programm").Range.Text = Format(Worksheets("Daten").Range("E" & p_AusgewaelteFolge), "##:##:##:##")
'Audio
wdApp.ActiveDocument.Bookmarks("Audio_01").Range.Text = Worksheets("Berechnungen").Range("L6")
wdApp.ActiveDocument.Bookmarks("Audio_02").Range.Text = Worksheets("Berechnungen").Range("L7")
wdApp.ActiveDocument.Bookmarks("Audio_03").Range.Text = Worksheets("Berechnungen").Range("L8")
wdApp.ActiveDocument.Bookmarks("Audio_04").Range.Text = Worksheets("Berechnungen").Range("L9")
wdApp.ActiveDocument.Bookmarks("Audio_05").Range.Text = Worksheets("Berechnungen").Range("L10")
wdApp.ActiveDocument.Bookmarks("Audio_06").Range.Text = Worksheets("Berechnungen").Range("L11")
wdApp.ActiveDocument.Bookmarks("Audio_07").Range.Text = Worksheets("Berechnungen").Range("L12")
wdApp.ActiveDocument.Bookmarks("Audio_08").Range.Text = Worksheets("Berechnungen").Range("L13")
wdApp.ActiveDocument.Bookmarks("Audio_09").Range.Text = Worksheets("Berechnungen").Range("L14")
wdApp.ActiveDocument.Bookmarks("Audio_10").Range.Text = Worksheets("Berechnungen").Range("L15")
wdApp.ActiveDocument.Bookmarks("Audio_11").Range.Text = Worksheets("Berechnungen").Range("L16")
wdApp.ActiveDocument.Bookmarks("Audio_12").Range.Text = Worksheets("Berechnungen").Range("L17")
'Sprache
wdApp.ActiveDocument.Bookmarks("Sprache_01").Range.Text = Worksheets("Berechnungen").Range("N6")
wdApp.ActiveDocument.Bookmarks("Sprache_02").Range.Text = Worksheets("Berechnungen").Range("N7")
wdApp.ActiveDocument.Bookmarks("Sprache_03").Range.Text = Worksheets("Berechnungen").Range("N8")
wdApp.ActiveDocument.Bookmarks("Sprache_04").Range.Text = Worksheets("Berechnungen").Range("N9")
wdApp.ActiveDocument.Bookmarks("Sprache_05").Range.Text = Worksheets("Berechnungen").Range("N10")
wdApp.ActiveDocument.Bookmarks("Sprache_06").Range.Text = Worksheets("Berechnungen").Range("N11")
wdApp.ActiveDocument.Bookmarks("Sprache_07").Range.Text = Worksheets("Berechnungen").Range("N12")
wdApp.ActiveDocument.Bookmarks("Sprache_08").Range.Text = Worksheets("Berechnungen").Range("N13")
wdApp.ActiveDocument.Bookmarks("Sprache_09").Range.Text = Worksheets("Berechnungen").Range("N14")
wdApp.ActiveDocument.Bookmarks("Sprache_10").Range.Text = Worksheets("Berechnungen").Range("N15")
wdApp.ActiveDocument.Bookmarks("Sprache_11").Range.Text = Worksheets("Berechnungen").Range("N16")
wdApp.ActiveDocument.Bookmarks("Sprache_12").Range.Text = Worksheets("Berechnungen").Range("N17")
End Sub
|