Top-Themen

Aktuelle Themen (A bis Z)

Administrator.de FeedbackApache ServerAppleAssemblerAudioAusbildungAuslandBackupBasicBatch & ShellBenchmarksBibliotheken & ToolkitsBlogsCloud-DiensteClusterCMSCPU, RAM, MainboardsCSSC und C++DatenbankenDatenschutzDebianDigitiales FernsehenDNSDrucker und ScannerDSL, VDSLE-BooksE-BusinessE-MailEntwicklungErkennung und -AbwehrExchange ServerFestplatten, SSD, RaidFirewallFlatratesGoogle AndroidGrafikGrafikkarten & MonitoreGroupwareHardwareHosting & HousingHTMLHumor (lol)Hyper-VIconsIDE & EditorenInformationsdiensteInstallationInstant MessagingInternetInternet DomäneniOSISDN & AnaloganschlüsseiTunesJavaJavaScriptKiXtartKVMLAN, WAN, WirelessLinuxLinux DesktopLinux NetzwerkLinux ToolsLinux UserverwaltungLizenzierungMac OS XMicrosoftMicrosoft OfficeMikroTik RouterOSMonitoringMultimediaMultimedia & ZubehörNetzwerkeNetzwerkgrundlagenNetzwerkmanagementNetzwerkprotokolleNotebook & ZubehörNovell NetwareOff TopicOpenOffice, LibreOfficeOutlook & MailPapierkorbPascal und DelphiPeripheriegerätePerlPHPPythonRechtliche FragenRedHat, CentOS, FedoraRouter & RoutingSambaSAN, NAS, DASSchriftartenSchulung & TrainingSEOServerServer-HardwareSicherheitSicherheits-ToolsSicherheitsgrundlagenSolarisSonstige SystemeSoziale NetzwerkeSpeicherkartenStudentenjobs & PraktikumSuche ProjektpartnerSuseSwitche und HubsTipps & TricksTK-Netze & GeräteUbuntuUMTS, EDGE & GPRSUtilitiesVB for ApplicationsVerschlüsselung & ZertifikateVideo & StreamingViren und TrojanerVirtualisierungVisual StudioVmwareVoice over IPWebbrowserWebentwicklungWeiterbildungWindows 7Windows 8Windows 10Windows InstallationWindows MobileWindows NetzwerkWindows ServerWindows SystemdateienWindows ToolsWindows UpdateWindows UserverwaltungWindows VistaWindows XPXenserverXMLZusammenarbeit

gelöst Vb.net: Word-Doc seitenweise durchsuchen nach Textmarke

Mitglied: ahstax

ahstax (Level 2) - Jetzt verbinden

14.03.2017, aktualisiert 09:00 Uhr, 1129 Aufrufe, 7 Kommentare, 3 Danke

Hallo,

ich möchte ein Word-Dokument nach einer Textmarke durchsuchen, um die Seitennummer derjenigen Seite zu erfahren, auf dem die Textmarke ist. Google brachte mich zu der (hoffenltich richtigen Erkenntnis, dass Word in Kombination mit vb keinen direkten Rückschluss von einer Textmarke auf deren Position auf Seite X (X ist gefragt) zulässt.

Daher möchte ich jetzt ein Word-Dokument mit Hilfe einer Schleife und eines Zählers seitenweise auf die Existenz der Textmarke durchsuchen.

Zwei Fragen habe ich:
1. Wo finde ich eine vernünftige Anleitung zum Arbeiten mit vb.net und Word?

2. Was muss ich wie an dem folgenden Codeschnipsel ändern, um mein Ziel zu erreichen?
(ich weiß, dass ich "Microsoft.Office.Interop.Word" usw. durch "Import Microsoft.Office.Interop.Word" ersetzen kann. Aktuell hilft mir das beim Verständnisversuch...)

01.
Dim wordApplication As New Microsoft.Office.Interop.Word.Application
02.
Dim wordDocument As Microsoft.Office.Interop.Word.Document = Nothing
03.
Dim strFileName as String = "C:\blabla\document.doc"       'oder "C:\blabla\document.docx"
04.
Dim intAnzahlSeiten As Integer
05.
Dim intCounter As Integer
06.

07.
wordDocument = wordApplication.Documents.Open(filename)
08.
intAnzahlSeiten = wordDocument.ComputeStatistics(Microsoft.Office.Interop.Word.WdStatistic.wdStatisticPages)
09.

10.
For intCounter = 1 To intAnzahlSeiten
11.

12.
...gehe zu Seite intCounter
13.
...prüfe, ob auf Seite intCounter Textmarke "Kind02" existiert:
14.
   If wordDocument.Bookmarks.Exists("Kind02") Then
15.
      Dim TextMarkenInhalt As String = wordDocument.Bookmarks().Item("Kind02").Range.Text
16.
      Exit For
17.
   End If
18.

19.
Next
Neugierige Grüße,
Andreas
Mitglied: 132692
LÖSUNG 14.03.2017, aktualisiert um 09:43 Uhr
01.
With wordDocument.Bookmarks
02.
    If .Exists("Kind02") Then
03.
         msgbox("Position: " & .Item("Kind02").Range.Information(3))
04.
    else
05.
        msgbox("Marke wurde nicht gefunden!")
06.
    End if
07.
End with
P.
Bitte warten ..
Mitglied: ahstax
14.03.2017, aktualisiert um 09:55 Uhr
So einfach...?
So einfach.

Danke vielmals!!


PS: Das Seitenweise durchsuchen würde mich der Vollständigkeit halber trotzdem interessieren...
Bitte warten ..
Mitglied: 132692
LÖSUNG 14.03.2017, aktualisiert um 10:55 Uhr
01.
Imports Microsoft.Office.Interop.Word
02.
'.....
03.
'..
04.
Dim rngPage As Range
05.
With wordDocument
06.
 For i = 1 To .ComputeStatistics(wdStatisticPages)
07.
   rngPage = .Selection.GoTo(wdGotoItem.wdGoToPage, wdGotoDirection.wdGoToAbsolute, i)
08.
   rngPage.End = .Selection.Bookmarks("\Page").Range.End
09.
   If rngPage.Bookmarks.Exists("Demo") Then
10.
       MsgBox "Bookmark befindet sich auf Seite: " & i
11.
   End If
12.
 Next
13.
End with
Einfach erst in VBA entwickeln dann 1:1 in VB.Net umsetzen
Bitte warten ..
Mitglied: ahstax
14.03.2017 um 10:51 Uhr
bei
01.
rngPage = .Selection.GoTo(wdGoToPage, wdGoToAbsolute, i)
behauptet VBExpress, dass wdGoToPage und wdGoToAbsolute nicht deklariert seien. Hab ich vergessen, etwas zu importieren?
Bitte warten ..
Mitglied: 132692
LÖSUNG 14.03.2017, aktualisiert um 10:54 Uhr
Das sind Word-Konstanten, die musst du nur aus dem interop-Assembly referenzieren ... WdGoToItem.wdGoToPage und
Bitte warten ..
Mitglied: ahstax
14.03.2017 um 10:53 Uhr
ich nehm dieses:
01.
rngPage = .Selection.GoTo(Microsoft.Office.Interop.Word.WdGoToItem.wdGoToPage, Microsoft.Office.Interop.Word.WdGoToDirection.wdGoToAbsolute, i)
Bitte warten ..
Mitglied: 132692
14.03.2017, aktualisiert um 10:54 Uhr
Eben, ist ja logisch wenn man nur mal kurz in die Doku schaut. ..
Bitte warten ..
Ähnliche Inhalte
Visual Studio

VB.Net - Word Dokument wird nicht abgespeichert

gelöst Frage von Pat.batVisual Studio4 Kommentare

Hallo zusammen, folgende Methode öffnet zwar das Template und fügt den String in die Textmarke, aber das Dokument wird ...

Basic

Mit vb.net PDF in Word-Dok einfügen

gelöst Frage von ahstaxBasic10 Kommentare

Hallo, Ich suche Hinweise und Beispiele, wie man mit einem vb.net-Programm alle Seiten eines PDF-Doks in ein Word-Dok einfügen ...

Visual Studio

Vb.net Datenfelder aus Word 2003 Dokument auslesen

Frage von Herbrich19Visual Studio3 Kommentare

Hallo, Ich habe Netzwerkfreigabe mit Word Dokumenten (2003 / DOC), diese beinhalten Datenfelder. Diese würde ich gerne mit einen ...

Microsoft Office

Im Outlook wird aus einer Word .docx eine .doc(Unterstrich)

gelöst Frage von JensDNDMicrosoft Office7 Kommentare

Hallo zusammen, ich hab das Problem, wenn eine Word-Datei mit der Endung .docx per Outlook verschickt wird, bekommt der ...

Neue Wissensbeiträge
Sicherheits-Tools

TrendMicro Worry-Free Business Security 10.0 SP1 - Jetzt in Deutsch verfügbar! (Windows 10 1903 Support)

Tipp von TrinXx vor 12 StundenSicherheits-Tools1 Kommentar

Moin! Nach wochenlangem Warten wird Trend Micro das SP1 für WFBS 10 voraussichtlich am 26.08.19 veröffentlichen. Ich habe das ...

Hyper-V
Setup VM W2016 startet nicht in Hyper-V 2016
Erfahrungsbericht von keine-ahnung vor 1 TagHyper-V4 Kommentare

Moin, sitze gerade über meinem neuen Server und versuche, die VM auf den Host zu prügeln. Jetzt wollte ich ...

Server-Hardware

HPE Proliant ML350P Gen8 Probleme mit Zugriff auf Raid-Volumes

Erfahrungsbericht von goscho vor 2 TagenServer-Hardware1 Kommentar

Hallo Leute, das Problemgerät: HPE ML350P G8 Windows Server 2012R2 HyperV-Host 8 x 300 GB 10K SAS HDD (1 ...

Humor (lol)

"Linux und 5 Gründe Warum man kein Windows verwenden sollte sondern Ubuntu Linux"

Information von Snowbird vor 3 TagenHumor (lol)9 Kommentare

Gerade gefunden. Ja, ist etwas älter, aber irgendwie lustig?

Heiß diskutierte Inhalte
Hyper-V
Keine Netzwerkverbindung W2016 VM
gelöst Frage von keine-ahnungHyper-V19 Kommentare

Moin, ich verliere gleich meine contenance ;-). Ich versuche gerade, auf einem Hyper-V 2016 GUI eine W2016-VM (Generation 2 ...

Batch & Shell
Powershell - Webseite auslesen und Abspeichern ein paar Probleme
gelöst Frage von kime203Batch & Shell18 Kommentare

Hallo alle miteinander, ich hab die Aufgabe eine Webseite auszulesen um Einsatzdaten der Feuerwehr daraus zu gewinnen. Das habe ...

Windows 7
Systemwiederherstellung mittel Console und Schattenkopie?
Frage von Kerbel3rdWindows 717 Kommentare

Moin, leider hat mir das Update auf Framework 4.8 meinen Rechner bzw mein Framework zerschossen. Nach tagelangen Reparaturversuchen mittels ...

Audio
SIP Gegensprechstelle Funk
Frage von d4vidh4ll3rAudio11 Kommentare

Hallo! Ich benötige eine alternative zur doorLine TM4 ), sprich eine SIP Gegenstelle die ich unter eine Aluminium-Platte schrauben ...