Thema Datum  Von Nutzer Rating
Antwort
Rot Mit VBA Word durchsuchen und Seitenzahl vom Match ausgeben
 21.02.2014 16:09:44 Sophie
NotSolved
22.02.2014 15:38:29 Holger
*****
Solved
23.02.2014 12:51:13 Sophie
NotSolved

Ansicht des Beitrags:
Von:
Sophie		 Datum:
21.02.2014 16:09:44		 Views:
1355		 Rating:
     
Antwort:
  Ja
Thema:
Mit VBA Word durchsuchen und Seitenzahl vom Match ausgeben

Hallo,

 

ich habe folgendes Problem: Ich möchte ein Word Dokument nach verschiedenen Wörtern durchsuchen und von jedem Match die Seitenzahl zurückgegeben bekommen. Öffnen des Dokuments und suchen klappt auch, allerdings wird mir immer die Gesamtseitenzahl zurück gegeben.

 

Hat jemand eine Idee woran das liegt?

Hier der Codeausschnitt:

 

Dim xDoc As String
Dim appWord As Object
On Error GoTo Worddatei_Error
Dim Zielwert As String

xDoc = "C:\Users\Desktop\Testdokument.docx"
    
    If Dir(xDoc) <> "" Then
    Set appWord = CreateObject("Word.Application")
    appWord.Visible = True
    appWord.Documents.Open xDoc
    Set appWord = Nothing
    
    Set appWord = ActiveDocument.Content
    appWord.Find.Forward = True
 
    appWord.Find.Text = "Suchwort "
    Zielwert = appWord.Information(wdActiveEndAdjustedPageNumber)   ' --> Hier tritt das Problem auf. Anstatt der Seitenzahl des Matches bekomme ich die Gesamtseitenzahl ausgegeben
    Range("B" & 2) = Zielwert   'In Tabelle schreiben 
    End With
   

 

Vielen Dank für eure Hilfe.

Sophie

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 Mit VBA Word durchsuchen und Seitenzahl vom Match ausgeben
 21.02.2014 16:09:44 Sophie
NotSolved
22.02.2014 15:38:29 Holger
*****
Solved
23.02.2014 12:51:13 Sophie
NotSolved