Thema Datum  Von Nutzer Rating
Antwort
Rot Daten von Excel nach Word kopieren
01.05.2021 10:03:42 Björn Mönkehaus
Solved
01.05.2021 11:48:40 ralf_b
NotSolved
02.05.2021 17:39:38 Gast15744
NotSolved

Ansicht des Beitrags:
Von:
Björn Mönkehaus
Datum:
01.05.2021 10:03:42
Views:
68
Rating: Antwort:
 Nein
Thema:
Daten von Excel nach Word kopieren

Hallo,

ich bin Anfänger und bräuchte Rat zu folgendem Vorhaben.

Ich habe in Word ein Vertragsmuster, in das Angaben aus Excel (umfangreichere Berechnungen und Text) eingefügt werden sollen.

In Excel füllt man alles aus und klickt am Ende des Formulars auf Daten übernehmen, so dass alles in Word an die passende Stelle in das Muster eingetragen wird. Das mache ich mit dem nachfolgenden Code und das funktioniert auch gut. Leider versagt die Methode, wenn in Exel in einer Zelle mehr als 255 Zeichen stehen. 

Kann mir jemand einen Tipp geben, wie ich das lösen kann?

 

Private wdAnw As Object
Private wdDok As Object

Sub WordMitBestehendemDokumentStarten2()

'Message-Box
  MsgBox "Achtung: Die erzeugte Word-Datei mit dem AV-Vertrag muss unter einem neuen Namen mit 'Speichern unter' abgespeichert werden!!! Klicken Sie OK, um fortzufahren."


'um die aktuelle Zeile zu ermitteln
  ' i = 12  '
  
  ' Pfad = Cells(1, 1) 'entweder in A1 den Pfad eingeben oder diese Zeile auskommentieren... '
   Pfad = ThisWorkbook.Path & "\" & "2-AV.doc"


  On Error Resume Next
  Set wdAnw = GetObject(, "Word.Application") 'Bestehende Word-Instanz suchen
  Select Case Err.Number
    Case 0 'Alles paletti
    Case 429 'Es gibt soweit keine Word-Instanz
      Err.Clear
      Set wdAnw = CreateObject("Word.Application") 'Word-Instanz erzeugen
      If Err.Number > 0 Then
        BadOrHappyEnd Err.Number, Err.Description
        Exit Sub
      End If
    Case Else 'Unerwarteter Fehler
      BadOrHappyEnd Err.Number, Err.Description
      Exit Sub
  End Select
  On Error GoTo 0
  '
  wdAnw.Visible = True 'Instanz sichtbar machen
  wdAnw.WindowState = 0
  '
  'Je nach dem, ob das Dokument bereits geöffnet ist oder nicht wird verbunden
  'bzw. geöffnet. Diese Differenzierung geschieht implizit.
  On Error Resume Next
  Set wdDok = wdAnw.Documents.Open(Filename:=Pfad)
  If Err.Number > 0 Then 'Wenn Arbeitsmappe nicht existiert oder unerwarteter Fehler
    BadOrHappyEnd Err.Number, Err.Description
    Exit Sub
  End If
  On Error GoTo 0
  
'hier kommt das eigentliche Eintragen

'Bauherr
  wdAnw.ActiveDocument.FormFields.Item("Bauherr_Name").Result = Range("Bauherr_Name")
  wdAnw.ActiveDocument.FormFields.Item("Bauherr_Vertretung").Result = Range("Bauherr_Vertretung")
  wdAnw.ActiveDocument.FormFields.Item("Bauherr_Straße").Result = Range("Bauherr_Straße")
  wdAnw.ActiveDocument.FormFields.Item("Bauherr_PLZ").Result = Range("Bauherr_PLZ")
  wdAnw.ActiveDocument.FormFields.Item("Bauherr_Ort").Result = Range("Bauherr_Ort")


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
Rot Daten von Excel nach Word kopieren
01.05.2021 10:03:42 Björn Mönkehaus
Solved
01.05.2021 11:48:40 ralf_b
NotSolved
02.05.2021 17:39:38 Gast15744
NotSolved