Top-Themen

AppleEntwicklungHardwareInternetLinuxMicrosoftMultimediaNetzwerkeOff TopicSicherheitSonstige SystemeVirtualisierungWeiterbildungZusammenarbeit

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

VB6: Range-Objekt Word nach Style suchen, Fehler, wenn Style nicht vorhanden!

Frage Entwicklung VB for Applications

Mitglied: stoperror

stoperror (Level 1) - Jetzt verbinden

09.11.2005, aktualisiert 17.10.2012, 8897 Aufrufe, 1 Kommentar

Wir verwenden in einem VB6 Projekt das Range-Objekt für Word um nach einem Style zu suchen.
Und die Find-Methode. Ist das Format im Dokument jedoch gar nicht vorhanden, bekomme ich einen VB - Laufzeitfehler!

Folgender Fehler wird in VB ausgegeben (beim Debuggen):
Laufzeitfehler '5834'
Ein Element mit dem angegebenen Namen ist nicht vorhanden.

Funktion:
Public Sub parseStyle()

Dim p As Paragraph 'Der zu analysierende Paragraph
Set p = m_para

Dim r As Range 'Das zu durchsuchende Range-Object

Dim iter As Boolean 'Loop-Variable

Dim fm As Variant 'Name des Formates nach dem gesucht wird

'Fuer jedes Format suche das Format solange, bis das Ende des
'Range-Objektes erreicht ist, oder es nicht mehr gefunden wird
For Each fm In m_formats
Set r = p.Range
iter = True
While iter And r.Start < p.Range.End
iter = False
With r.Find

.Style = fm <--- HIER Tritt der Fehler auf!!!
If .Execute(FindText:="", Forward:=True, Format:=True) = True Then
parseStyleAddChunk fm, r
If r.End + 1 < p.Range.End Then
Set r = ActiveDocument.Range(r.End + 1, p.Range.End)
iter = True
End If
End If
End With
Wend
Next fm
End Sub



Wie vermeide ich nun diesen Laufzeitfehler? Das Programm soll einfach weiterlaufen, wenn es den Style nicht findet und er auch nicht im Worddokument enthalten ist.
Mitglied: Biber
12.11.2005, aktualisiert 17.10.2012
Moin stoperror,
Du kannst diesen Fehler abfangen oder auch ignorieren.
Schau mal in der Hilfe unter "On Error goto.." bzw. "On Error Resume Next".

Ich hab auch so ein Beispiel verwandt in <a href=http://www.administrator.de/wissen/outlook-automatisierte-mailverarbeit ... target="blank">Outlook: Automatisierte Mailverarbeitung mit VBA </a>

Sonst poste noch mal bitte.
HTH
Frank / der Biber aus Bremen
Bitte warten ..
Ähnliche Inhalte
VB for Applications
gelöst Suche in Word (2)

Frage von MarcoBorn zum Thema VB for Applications ...

PHP
Schnellste Auswahl in Objekten (1)

Frage von it4baer zum Thema PHP ...

Microsoft Office
gelöst Fehler Office 365 Word (8)

Frage von killtec zum Thema Microsoft Office ...

Microsoft Office
Saubere HTML aus Word-Dokument (19)

Frage von peterpa zum Thema Microsoft Office ...

Neue Wissensbeiträge
Sicherheit

Millionen Euro in den Sand gesetzt?

(3)

Information von transocean zum Thema Sicherheit ...

Sicherheit

How I hacked hundreds of companies through their helpdesk

Information von SeaStorm zum Thema Sicherheit ...

Heiß diskutierte Inhalte
Netzwerke
Mobile Einwahl IPSec VPN von iPhone iPad T-Mobile zur Pfsense (14)

Frage von Spitzbube zum Thema Netzwerke ...

LAN, WAN, Wireless
Eine Netzwerkdose im Wechsel für zwei unterschiedliche Netze (12)

Frage von kartoffelesser zum Thema LAN, WAN, Wireless ...

Voice over IP
SNOM D765 an LancomR883VAW (10)

Frage von MS6800 zum Thema Voice over IP ...

Windows Netzwerk
Ordner-Freigabe außerhalb der Domäne (9)

Frage von Remsboys zum Thema Windows Netzwerk ...