title image


Smiley Re: Per VBA in Word Parameterabfrage in Access öffnen
Hallo Marie,



ist es das, was Du suchst?

Sub mailmergeFindRekord_1()

Dim sSuchtext As String

'

ActiveDocument.MailMerge.ViewMailMergeFieldCodes = False

ActiveDocument.MailMerge.DataSource.ActiveRecord = wdLastRecord

ActiveDocument.MailMerge.DataSource.ActiveRecord = wdFirstRecord

'

ActiveDocument.Paragraphs.Last.Range.Select

Feldname = "Nachname"

'

sSuchtext = InputBox("Bitte gesuchten Namen angeben:", " Suchen")

If sSuchtext = "" Then Exit Sub

'

With Dialogs(wdDialogMailMergeFindRecord)

SendKeys "{TAB}" & Feldname & "{Enter}+{TAB}" & sSuchtext

If .Show = 0 Then Exit Sub

End With

End Sub      Hubert





geschrieben von

Anhang
Bild 11229 zu Artikel 533201

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: