Thema Datum  Von Nutzer Rating
Antwort
Rot Aus Word kopieren
 17.02.2021 00:15:13 Ronja
NotSolved
17.02.2021 13:13:43 Ronja
NotSolved
17.02.2021 14:23:16 Mase
NotSolved
17.02.2021 14:51:33 Ronja
NotSolved
17.02.2021 15:09:52 Gast90099
NotSolved
17.02.2021 21:07:51 Gast74350
NotSolved
17.02.2021 21:56:28 Mase
NotSolved
17.02.2021 22:23:24 Ronja
NotSolved
18.02.2021 08:09:35 Mase
NotSolved

Ansicht des Beitrags:
Von:
Ronja		 Datum:
17.02.2021 00:15:13		 Views:
767		 Rating:
     
Antwort:
  Ja
Thema:
Aus Word kopieren

Nabend,

ich will mit Hilfe eines Makros eine Word Dokument öffnen, die Inhalte (am besten die erste Tabelle, falls man die anwählen kann) kopieren, in Excel in mein Datenblatt einfügen, Word schließen, und im Datenblatt den Übersetzer aktivieren mit der Tastenkombi "Alt+Umschalt+F7" und dann immer in Zeile 5, Spalte A gehen. Ich hab es geschafft das Word Dokument zu öffnen, aber die Inhalte (am besten die erste Tabelle) zu kopieren und einzufügen. Kann mir jemand weiterhelfen?

Pfad = "C\TestTabelle.docx"
  Dim WdApp As Object
  Dim wdDok As Object
  Dim wbZiel As Workbook
  
  Set wbZiel = ThisWorkbook
  Set WdApp = CreateObject("Word.Application")
  Set wdDok = WdApp.documents.Open(Filename:=Pfad, ReadOnly:=True)
  
  WdApp.Visible = True
  WdApp.Activate
  
  Selection.WholeStory
  Selection.Copy
  
  
  
  Set wdDok = Nothing
  Set WdApp = Nothing

 

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 Aus Word kopieren
 17.02.2021 00:15:13 Ronja
NotSolved
17.02.2021 13:13:43 Ronja
NotSolved
17.02.2021 14:23:16 Mase
NotSolved
17.02.2021 14:51:33 Ronja
NotSolved
17.02.2021 15:09:52 Gast90099
NotSolved
17.02.2021 21:07:51 Gast74350
NotSolved
17.02.2021 21:56:28 Mase
NotSolved
17.02.2021 22:23:24 Ronja
NotSolved
18.02.2021 08:09:35 Mase
NotSolved