Thema Datum  Von Nutzer Rating
Antwort
23.01.2018 09:52:45 Alex
NotSolved
Blau Von Excel nach Word kopieren mit Schleife (2. Versuch)
 23.01.2018 10:06:50 Gast68069
Solved
23.01.2018 10:36:27 Gast58946
NotSolved
23.01.2018 13:18:44 Gast5473
NotSolved
23.01.2018 15:59:01 Alex
NotSolved

Ansicht des Beitrags:
Von:
Gast68069		 Datum:
23.01.2018 10:06:50		 Views:
561		 Rating:
     
Antwort:
 Nein
Thema:
Von Excel nach Word kopieren mit Schleife (2. Versuch)

Hallo,

versuch es mal so (ungetestet):

Option Explicit

Public Sub copyDataToWord()
    Dim appWord As Object
    Dim doc As Object
    Dim Dateiname As String
    Dim Pfad As String
    Dim i As Integer
    
    Set appWord = CreateObject("Word.Application")
    Pfad = "G:\Daten\"
    
    For i = 3 To 10
        Dateiname = Cells(i, 3).Value
        Set doc = appWord.Documents.Open(Pfad & Dateiname)
        
        With doc
            .Bookmarks("hiereinfügen").Range.Text = Cells(i, 2).Value
            .Save
            .Close
        End With
        
        Set doc = Nothing
    Next i
    
    appWord.Quit
    Set appWord = Nothing
    Set doc = Nothing
End Sub

Viele Grüße

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
23.01.2018 09:52:45 Alex
NotSolved
Blau Von Excel nach Word kopieren mit Schleife (2. Versuch)
 23.01.2018 10:06:50 Gast68069
Solved
23.01.2018 10:36:27 Gast58946
NotSolved
23.01.2018 13:18:44 Gast5473
NotSolved
23.01.2018 15:59:01 Alex
NotSolved