Office Forum
www.Office-Loesung.de
Access :: Excel :: Outlook :: PowerPoint :: Word :: Office :: Wieder Online ---> provisorisches Office Forum <-
Makro funktioniert mit Word 2000 aber nicht mit 2003. Warum?
zurück: Word-Makro zum Füllen von Textformularfeldern weiter: Firmenlogo in Wordvorlage anzeigen - aber nicht mitdrucken Unbeantwortete Beiträge anzeigen
Neues Thema eröffnen   Neue Antwort erstellen     Status: Antwort Facebook-Likes Diese Seite Freunden empfehlen
Zu Browser-Favoriten hinzufügen
Autor Nachricht
TRost
Im Profil kannst Du frei den Rang ändern


Verfasst am:
27. Dez 2009, 18:51
Rufname:

Makro funktioniert mit Word 2000 aber nicht mit 2003. Warum? - Makro funktioniert mit Word 2000 aber nicht mit 2003. Warum?

Nach oben
       Version: Office 2003

Hallo,

ich habe ein Makro, dass mit Word 2003 nicht mehr funktioniert wie gewünscht. Es handelt sich um eine Word Vorlage mit Textfeldern. Mit dem Makro sollen aus einer ACCESS Datenbank die entsprechenden Textbausteine herausgelesen und eingefügt werden. Das Makro fragt nach einer Bearbeitungsnummer und sucht anhand dieser Nummer den Datensatz. Meiner Meinung nach funktioniert folgender Befehl nicht (den Rest lasse ich ersteinmal weg):

Code:
If ActiveDocument.MailMerge.DataSource.FindRecord(FindText:=sBearbnr, _
            Field:="Bearbeitungsnummer") = True Then
         ...


Kann mir jemand helfen? Hat sich da etwas verändert von Word 2000 auf 2003?

TRost
Hubert_R
Gast


Verfasst am:
27. Dez 2009, 19:47
Rufname:


AW: Makro funktioniert mit Word 2000 aber nicht mit 2003. Wa - AW: Makro funktioniert mit Word 2000 aber nicht mit 2003. Wa

Nach oben
       Version: Office 2003

Hallo,
aus der Wordhilfe von 2003

Grüsse Hubert

FindRecord (Methode)
Durchsucht den Inhalt einer bestimmten Seriendruckdatenquelle nach Text in einem bestimmten Feld. Gibt True zurück, wenn der Suchtext gefunden wird. Boolean.
Anmerkung Entspricht der Schaltfläche Datensatz suchen auf der Seriendruck-Symbolleiste.

Ausdruck.FindRecord(FindText, Field)
Ausdruck Erforderlich. Ein Ausdruck, der ein MailMergeDataSource-Objekt zurückgibt.

FindText Erforderlicher String-Wert. Der zu suchende Text.

Field Erforderlicher Variant-Wert. Der Name des zu suchenden Feldes.

Hinweise
Mit der FindRecord-Methode wird nur vorwärts gesucht. Wenn es sich bei dem aktiven Datensatz nicht um den ersten Datensatz in der Datenquelle handelt und der gesuchte Datensatz vor dem aktiven Datensatz angeordnet ist, gibt die FindRecord-Methode keine Ergebnisse zurück. Um sicherzustellen, dass die gesamte Datenquelle durchsucht wird, legen Sie die ActiveRecord-Eigenschaft auf wdFirstRecord fest.

Beispiel
In diesem Beispiel wird ein Seriendruckdokument für den ersten Datensatz angezeigt, in dem das Feld "FirstName" mit "Joe" belegt ist. Wenn ein Datensatz gefunden wird, wird die Nummer des Datensatzes in der numRecord-Variablen gespeichert.
Code:
Dim dsMain As MailMergeDataSource
Dim numRecord As Integer

ActiveDocument.MailMerge.ViewMailMergeFieldCodes = False
Set dsMain = ActiveDocument.MailMerge.DataSource
If dsMain.FindRecord(FindText:="Joe", _
        Field:="FirstName") = True Then
    numRecord = dsMain.ActiveRecord
End If
TRost
Im Profil kannst Du frei den Rang ändern


Verfasst am:
27. Dez 2009, 20:12
Rufname:

AW: Makro funktioniert mit Word 2000 aber nicht mit 2003. Wa - AW: Makro funktioniert mit Word 2000 aber nicht mit 2003. Wa

Nach oben
       Version: Office 2003

Hallo Hubert,

daran, dass das nicht vom ersten Datensatz an gesucht wird, kann es eigentlich nicht liegen. Am unteren Bildrand wird der Durchlauf von 1 bis 265 angezeigt.

Das Problem muss wahrscheinlich woanders liegen, denn mit Word 2000 gings ja noch. Ich habe auch schon die Datenbank verändert (auf 2003), ohne besseres Ergebnis.

TRost
TRost
Im Profil kannst Du frei den Rang ändern


Verfasst am:
30. Dez 2009, 21:00
Rufname:

AW: Makro funktioniert mit Word 2000 aber nicht mit 2003. Wa - AW: Makro funktioniert mit Word 2000 aber nicht mit 2003. Wa

Nach oben
       Version: Office 2003

Nochmal Bitte an alle, die helfen können.

Ich muss das Problem immer noch lösen. Hat noch jemand einen Vorschlag, an welcher Schraube ich eventuell drehen muss, damit mein Makro, das mit Word 2000 funktioniert, auch in Word 2003 läuft?

Danke
TRost
Office-Freak
Man tut was man kann!


Verfasst am:
31. Dez 2009, 12:28
Rufname:
Wohnort: Legendäre Officeland


AW: Makro funktioniert mit Word 2000 aber nicht mit 2003. Wa - AW: Makro funktioniert mit Word 2000 aber nicht mit 2003. Wa

Nach oben
       Version: Office 2003

Hi,

also bei mir hat es auch nicht funktioniert .. aber da würde ich jetzt nicht so lange rumtesten.

Ich habs mal nachgebaut - das sollte immer funktionieren:

Code:
Sub Suche_aufrufen()

   Dim Nr As Long
   
   Nr = FindDS("Satz2", "SpalteA", ActiveDocument)

   If Nr < 0 Then MsgBox "Kein Seriendruckdokument!": Exit Sub

   If Nr > 0 Then
      MsgBox "Gefunden ...!" & Chr(13) & Chr(13) & "Datensatz-Nr.: " & Nr
   End If

End Sub

Function FindDS(ByVal Suchwert As String, ByVal Feldname As String, ByVal Dok As Document) As Long
   
   Dim Index As Long
   
   If Dok.MailMerge.MainDocumentType = wdNotAMergeDocument Then Index = -1: GoTo Ende
   
   With Dok.MailMerge.DataSource
   .ActiveRecord = wdFirstRecord
   Do While .ActiveRecord <> .RecordCount + 1
      If .DataFields(Feldname).Value = Suchwert Then
         Index = .ActiveRecord
         Exit Do
      End If
      .ActiveRecord = wdNextRecord
   Loop
   .ActiveRecord = wdFirstRecord
   End With
   
Ende:
   FindDS = Index
   Set Dok = Nothing
   
End Function


Die Funktion ist universell einsetzbar... Die Suche wird abgebrochen, sobald ein Satz gefunden wurde. Es wird hier die Nummer des Datensatzes zurückgegeben.
Wenn es kein Seriendruckdokument ist wird "-1" zurückgegeben.

Vielleicht hilft Dir das ja schon mal weiter....

_________________
Gruß
Office-Freak
Neues Thema eröffnen   Neue Antwort erstellen Alle Zeiten sind
GMT + 1 Stunde

Diese Seite Freunden empfehlen

Seite 1 von 1
Gehe zu:  
Du kannst Beiträge in dieses Forum schreiben.
Du kannst auf Beiträge in diesem Forum 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 nicht posten
Du kannst Dateien in diesem Forum herunterladen

Verwandte Themen
Forum / Themen   Antworten   Autor   Aufrufe   Letzter Beitrag 
Keine neuen Beiträge Word Serienbriefe: Von Word2000 auf 2003: Filter werden nicht mehr gespeichert 0 Arbeitstier78 2005 07. Jul 2008, 14:51
Arbeitstier78 Von Word2000 auf 2003: Filter werden nicht mehr gespeichert
Keine neuen Beiträge Word Serienbriefe: Seriendruck in Word 2003 2 tapsi58 1299 28. Feb 2008, 15:34
tapsi58 Seriendruck in Word 2003
Keine neuen Beiträge Word Serienbriefe: Serienbrief - Daten in Excel - Filterung funktioniert nicht 1 Gerbera1980 2000 12. Okt 2007, 11:52
Hübi Serienbrief - Daten in Excel - Filterung funktioniert nicht
Keine neuen Beiträge Word Serienbriefe: Erstellen eines Makros für Seriendruck (Word 2003) 1 Nadine_1 2415 27. Sep 2007, 15:04
Nadine_1 Erstellen eines Makros für Seriendruck (Word 2003)
Keine neuen Beiträge Word Serienbriefe: Word/Excel 2003 Serienbrief Formatierungsfehler bei Betrags 1 tasmanien 6363 29. Aug 2006, 20:30
Betty2004 Word/Excel 2003 Serienbrief Formatierungsfehler bei Betrags
Keine neuen Beiträge Word Serienbriefe: Serienbriefe mit Word 2003 1 officefarella 4531 06. Aug 2006, 00:30
iso Serienbriefe mit Word 2003
Keine neuen Beiträge Word Serienbriefe: Seriendruck mir Word und Excel 2000 0 lofodan 2022 19. Jun 2006, 17:08
lofodan Seriendruck mir Word und Excel 2000
Keine neuen Beiträge Word Serienbriefe: Datensätze Überspringen funktioniert bei mir nicht 0 Qwertzuiop 1613 08. Jun 2006, 14:42
Qwertzuiop Datensätze Überspringen funktioniert bei mir nicht
Keine neuen Beiträge Word Serienbriefe: Word 2003; Beim Seriendruck werden Felder gelöscht ???? 4 boris2307 2092 30. Apr 2006, 22:19
boris2307 Word 2003; Beim Seriendruck werden Felder gelöscht ????
Keine neuen Beiträge Word Serienbriefe: Serienbrief (Word 2000) mit Öffentl. Ordner aus Outlook 2003 3 phasenalex 3715 31. Dez 2005, 11:47
Ina Serienbrief (Word 2000) mit Öffentl. Ordner aus Outlook 2003
Keine neuen Beiträge Word Serienbriefe: Word 2003 Serienbrief für Bewerbungen 1 Bluecrow 2913 04. Dez 2005, 11:31
ae Word 2003 Serienbrief für Bewerbungen
Keine neuen Beiträge Word Serienbriefe: Serienbrief mit Excel bei Office 2003 1 BalloS 1313 18. Jun 2005, 12:35
ae Serienbrief mit Excel bei Office 2003
 

----> Diese Seite Freunden empfehlen <------ Impressum - Besuchen Sie auch: Expression Web Forum