Thema Datum  Von Nutzer Rating
Antwort
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
Rot Aus Word kopieren
 18.02.2021 08:09:35 Mase
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
18.02.2021 08:09:35		 Views:
462		 Rating:
     
Antwort:
  Ja
Thema:
Aus Word kopieren

Moin Ronja,

merkwürdiger Tabellenaufbau wenn Spaltenanzahl zeilenweise variiren kann.

Aber schau mal hier rein.

Option Explicit
 
Sub main()
    
    With CreateObject(class:="Word.Application")
        setTable2Worksheet .Documents.Open("C:\Test\Word\Microsoft Word Document (neu).docx")
        .Quit
    End With
         
End Sub

Sub setTable2Worksheet(ByRef wdDoc As Object)
    
    Dim lngCell                      As Long
    Dim lngRow                       As Long
    
    With wdDoc.Tables(1)
        For lngRow = 1 To .Rows.Count
            For lngCell = 1 To .Rows(lngRow).Cells.Count
                ThisWorkbook.Worksheets(1).Cells(lngRow, lngCell).Value = .Rows(lngRow).Cells(lngCell).Range.Text
            Next
        Next
    End With
     
End Sub

 

Den Rest überlasse Ich Dir oder jemand springt jetzt ein :)

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
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
Rot Aus Word kopieren
 18.02.2021 08:09:35 Mase
NotSolved