Fehler beim Komprimieren: Syntaxfehler :: Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office

Einloggen, um private Nachrichten zu lesen

Downloads

[Word 2007] Fehler beim Komprimieren: Syntaxfehler

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Word Hilfe

Autor

Nachricht

Lt.Hawkeye
Newbie
Newbie

Anmeldedatum: 01.10.2008
Beiträge: 1

Verfasst am: 01.10.2008, 08:37

Moin alle mit einander,
ich hätte hier ein kleines Problem mit der Makroprogrammierung und komm nich weiter. Ich nutze eine Office 2007 Version und wollte ein Makro nutzen, das mich automatisch informiert wenn ich in Word eine gewisse Zeichenmenge überschritten habe. Dafür habe im Netz auch einige gute Ansätze gefunden, doch leider bekomme ich immer eine Fehlermeldung beim ausprobieren. Dabei handelt es sich um die oben genannte. Leider bin ich nicht gerade sehr firm mit der VBA-programmierung und wäre für eure Hilfe sehr dankbar.

Mit freundlichen Grüssen

Lt.Hawkeye

Hier der entsprechende Programmcode, bei der Fehlermeldung wird gleich die erste Zeile immer gelb markiert:

Sub ZeichenZaehlen()
Dim effW, effC, C As Variant
Dim maxW, maxC, W As Variant
Dim Wtxt, Ctxt As String
maxW = 5000 'Max Anzahl Worte
maxC = 1000 'Max Anzahl Zeichen
effW = ActiveDocument.BuiltInDocumentProperties(wdPropertyWords)
effC = ActiveDocument.BuiltInDocumentProperties(wdPropertyCharsWSpaces)
If maxW < effW Or maxC < effC Then
If maxW < effW Then
W = effW & " (statt max " & maxW & ")"
Else
W = effW
End If
If maxC < effC Then
C = effC & " (statt max " & maxC & ")"
Else
C = effC
End If
MsgBox "ACHTUNG! Sie haben die maximale Anzahl Worte " & _
"bzw. Zeichen überschritten" & Chr(13) & Chr(13) & _
"Verwendete Anzahl WORTE: " & W & Chr(13) & _
"Verwendete Anzahl ZEICHEN: " & C
Else
W = maxW - effW
C = maxC - effC
MsgBox "* Maximale Anzahl WORTE: " & maxW & Chr(13) & _
"* Maximale Anzahl ZEICHEN: " & maxC & Chr(13) & Chr(13) & _
"* Verwendete Anzahl WORTE: " & effW & Chr(13) & _
"* Verwendete Anzahl ZEICHEN: " & effC & Chr(13) & Chr(13) & _
"Sie können noch " & W & " WORTE bzw. " & C & " ZEICHEN eingeben"
End If
End Sub

Office-Hilfe.com - Wir lösen Ihre Probleme mit Microsoft Office Foren-Übersicht » Microsoft Word Hilfe

Thema		Autor	Forum	Antworten	Verfasst am
Ähnliche Beiträge
	Farbe beim Feld Vernüpfen übernehmen?	HALi	Microsoft Excel Hilfe	2	19.11.2008, 10:10
	[Excel 2002] Farbliche Darstellung nu...	Screather	Microsoft Excel Hilfe	4	16.11.2008, 09:11
	Steuerelement formatieren-Fehler!!!	Excel-Amateur	Microsoft Excel Hilfe	2	06.11.2008, 23:46
	Datenbank über Programmcode Komprimieren	glurak15	Microsoft Access Hilfe	2	05.11.2008, 10:29
	Formatierung beim Öffnen komplett anders	daiwaman	Microsoft Excel Hilfe	0	05.11.2008, 10:03

Gehe zu:

Du kannst keine Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum nicht antworten.
Du kannst deine Beiträge in diesem Forum nicht bearbeiten.
Du kannst deine Beiträge in diesem Forum nicht löschen.
Du kannst an Umfragen in diesem Forum nicht mitmachen.
Du kannst Dateien in diesem Forum posten
Du kannst Dateien in diesem Forum herunterladen

Powered by phpBB © 2001, 2002 phpBB Group :: FI Theme :: Alle Zeiten sind GMT + 1 Stunde
Deutsche Übersetzung von phpBB.de