Office: Makro Problem unter Office 2003

Hallo, ich habe folgendes Problem bei diesem Makro:
--------------------------------------------------------------------------

Code:

Sub laufnummer()
  Const NrDatei$ = "F:\GRP\EINKAUF\WINWORD\BUANZ.NRO"
  Dim LfdNr$
  Dim Bereich As Range
    
  On Error Resume Next
    
' Laufende Nummer aus Datei ermitteln
  Open NrDatei$ For Input As 1
  Line Input #1, LfdNr$
  Close 1
  
  LfdNr$ = Str$(Val(LfdNr$) + 1)
  
' neue Nummer in Datei speichern
  Open NrDatei$ For Output As 1
  Write #1, Val(LfdNr$)    <<<-- Der Debugger bleibt hier stehen -->>>
  Close 1
                                         
' Textmarken anspringen und füllen
    WordBasic.WW7_EditGoTo Destination:="LFDNR"
    WordBasic.Insert LfdNr$

End Sub

----------------------------------------------------------
Unter Office 2003 erhöht er die Laufnummer nicht und öffnet das Dokument immer mit der gleichen Laufnummer. (Unter Office 2000 lief das Makro schon einige Jahre)
-> SP2 ist installiert.
Vielen Dank schon jetzt.

Gruß

Markus

 

Hi,

um welches Officeprogramm geht es denn hier? (ich vermute mal Word!)
Wie sieht es denn mit der Datei aus? Hat der Benutzer hier Schreibrechte in dem Ordner bzw. Laufwerk? Oder ist gar die Datei ggf. schreibgeschützt?

Welcher Fehler wird genau ausgelöst?

BTW: ich mag die alten Codes aus Word 6.0 Zeiten... ;-)

PS: ich habe Deinen Code mal in Codetags gesetzt - wegen der Lesbarkeit!

 

Hallo,

es handelt sich um Word2003 und der Code funktioniert unter Word 2000 ohne Probleme. Komisch ist noch, dass es auf unseren Citrix-Rechner funktioniert aber auf unseren lokalen Rechnern halt der Laufzeitfehler '54' hochkommt wenn man 'on error resume next entfernt. Der Debugger bleibt halt wie oben angebeben stehen. Schreibrechte kann leider auch nicht das Problem sein da es ja mit Word 2000 ohne Probleme funktioniert. Danke schon im voraus !!

Gruß Markus

 

Hi,

in Citrix hast du eine eigene Wordinstallation / Session.

Ich will jetzt nicht suchen:

Was sagt der Fehler 54 genau?! Alle Fehlernummern habe ich nicht im Kopf....

 

Ja unter Citrix wurde für alle Rechner eine Word2003-Version installiert, die gleiche die auch auf den lokalen Rechnern installiert wurde.


Der genaue Fehler lautet:
---------------------------------
Visual Basic Fehler

Laufzeitfehler '54':

Falscher Dateimodus

--------------------------------

 

Hi,

das liegt an den fehlenden "#"...

Versuch mal diesen Code:

Code:

Sub laufnummer()
  'Const NrDatei = "F:\GRP\EINKAUF\WINWORD\BUANZ.NRO"
  Dim LfdNr As String
  Dim Bereich As Range
    
  On Error Resume Next
   
' Laufende Nummer aus Datei ermitteln
  Open NrDatei For Input As #1
  Line Input #1, LfdNr
  Close #1
  
  LfdNr = (Val(LfdNr) + 1)
  
' neue Nummer in Datei speichern
  Open NrDatei For Output As #1
  Write #1, Val(LfdNr)    '<<<-- Der Debugger bleibt hier stehen -->>>
  Close #1
                                          
' Textmarken anspringen und füllen
    ActiveDocument.Bookmarks("lfdnr").Range = LfdNr
    'WordBasic.WW7_EditGoTo Destination:="LFDNR"
    'WordBasic.Insert LfdNr

End Sub

So sollte es funktionieren....

 

Hallo Freaky,

leider hat es das noch nicht gebracht. Er kommt nicht über den Write-Befehl. Kann es sein, dass er nur aus der .NRO-Datei lesen kann aber nicht schreiben ?

Markus

 

Hi,

doch das kann er. Bei mir gibt es keine Probleme damit. Der Code läuft bei mir durch.

Versuch mal folgendes:

Setz mal den Verweis im VBA-Editor:
Microsoft Scripting Runtime

Vielleicht funktioniert es dann....

 

Wie kann ich das einstellen ? Sagt mir leider nix. Finde ich das unter den Optionen ?

 

Hi,

in den VBA-Editor gehen - dort unter Extras | Verweise in dem Dialog den Eintrag wie oben beschrieben suchen und einen Haken setzen. Mit ok bestätigen und alles speichern...

 

hat es leider auch nicht gebracht. Er bleibt immer beim Write-Befehl stehen.