Thema Datum  Von Nutzer Rating
Antwort
Rot Word-Dokument einlesen
 12.01.2018 11:05:41 Mike
NotSolved
12.01.2018 11:17:13 Gast70532
NotSolved
12.01.2018 12:46:20 Mike
NotSolved
12.01.2018 13:01:24 Gast68235
NotSolved
15.01.2018 07:59:06 Mike
Solved

Ansicht des Beitrags:
Von:
Mike		 Datum:
12.01.2018 11:05:41		 Views:
1241		 Rating:
     
Antwort:
  Ja
Thema:
Word-Dokument einlesen

Hallo,

ich habe folgendes Problem. Ich möchte ein Word-Dokument Zeile für Zeile einlesen und dann erstmal im Überwachungsfenster anzeigen lassen. Ich habe auch schon einen Code erstellt, allerdings wird im Überwachungsfenster nichts angezeigt. Hat jemand eine Idee, warum es nicht funktioniert?

?
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
Sub DokumentEinlesen()
'
' DokumentEinlesen Makro
'
'
Dim strLine As String
Dim colString As Collection
Dim intLastLine As Integer
Dim intLastPage As Integer
Dim flag As Boolean
 
    'letzte Zeilennummer
    Selection.EndKey unit:=wdStory
    intLastLine = _
    Selection.Range.Information(wdFirstCharacterLineNumber)
    intLastPage = _
    Selection.Range.Information(wdActiveEndPageNumber)
    'mit String-Sammlung beginnen
    Set colString = New Collection
    'zurück zum Anfang
    Selection.HomeKey unit:=wdStory
 
    'Schleife bis zum Ende des Dokuments
    flag = True
    While flag = True
        'Prüfe, ob das Ende des Dokuments erreicht ist
        If (Selection.Range.Information(wdFirstCharacterLineNumber) = intLastLine) And intLastPage = _
        Selection.Range.Information(wdActiveEndPageNumber) Then
            flag = False
        End If
    'Zeile auswählen
    Selection.EndKey unit:=wdLine, Extend:=wdExtend
    'Zeileninhalt
    strLine = Selection.Range.Text
    colString.Add (strLine)
    'eine Zeile nach unten rutschen
    Selection.MoveDown unit:=wdLine, Count:=1
    Selection.HomeKey unit:=wdLine
    Wend
 
End Sub
 
Ich bin noch ein ziemlicher Anfänger, wenn es um VBA geht.
Mit freundlichen Grüßen
Mike

 

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:
WYSIWYG-Editor, ctl00_Content_editor1



  • 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 Word-Dokument einlesen
 12.01.2018 11:05:41 Mike
NotSolved
12.01.2018 11:17:13 Gast70532
NotSolved
12.01.2018 12:46:20 Mike
NotSolved
12.01.2018 13:01:24 Gast68235
NotSolved
15.01.2018 07:59:06 Mike
Solved