Thema Datum  Von Nutzer Rating
Antwort
25.09.2017 13:26:48 Megi
NotSolved
Blau Word Datei automatisch aus einer Excel Datei erzeugen
 01.10.2017 22:30:32 Ben
NotSolved

Ansicht des Beitrags:
Von:
Ben		 Datum:
01.10.2017 22:30:32		 Views:
509		 Rating:
     
Antwort:
  Ja
Thema:
Word Datei automatisch aus einer Excel Datei erzeugen

Hallo,

mit diesem Code wird zunächst nur ein Zelleninhalt in ein neues Word-Dokument kopiert:

Sub Test()
    Dim wdApp As New Word.Application
    Dim wdDoc As Word.Document
    Dim wdRng As Word.Range
    Dim rng As Range
    Set rng = Range("g3")
    rng.Copy
    Set wdDoc = wdApp.Documents.Add
    Set wdRng = wdDoc.Range
    wdRng.Paste
    Application.CutCopyMode = False
    With wdRng
        .Find.ClearFormatting
        .Find.Font.Bold = True
        .Find.Replacement.ClearFormatting
        .Find.Replacement.Style = wdDoc.Styles("Überschrift 1")
        With .Find
            .Text = ""
            .Replacement.Text = ""
            .Forward = True
            .Wrap = wdFindContinue
            .Format = True
            .MatchCase = False
            .MatchWholeWord = False
            .MatchWildcards = False
            .MatchSoundsLike = False
            .MatchAllWordForms = False
        End With
        .Find.Execute Replace:=wdReplaceAll
    End With
End Sub

Der Code muss in Excel Ausgeführt werden.

Damit die Word-Objekte ausgeführt werden, muss zusätzlich ein Verweis im VBA-ditor auf die Word-Library (z.B. Microsoft Word 15.0 Object Library ) erstellt werden.

Wenn dieser Code das gewünschte erreicht, kann dieser ergänzt werden, um auch weitere Inhalte der Spalte G zu kopieren.

LG, Ben

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
25.09.2017 13:26:48 Megi
NotSolved
Blau Word Datei automatisch aus einer Excel Datei erzeugen
 01.10.2017 22:30:32 Ben
NotSolved