Hi,
habe den Coden wie folgt modifiziert:
Das Programm liest auch Adressen aus, nur leider immer die selbe... Was muss ich machen um alle nacheinander auszulesen???
Hier der 2.Code, bei dem ich k.A. hab wofür der ist:
Hier noch ein Screenshot der Hilfedatei:
habe den Coden wie folgt modifiziert:
VB.NET-Quellcode
- Sub DDE1()
- Dim a$
- Dim Kanal
- Dim Result$
- Dim Command_$
- Do
- a$ = WordBasic.[GetPrivateProfileString$]("Main", "PrgPath", "vrn2007.ini") + "\vrn2007.EXE"
- If WordBasic.AppIsRunning("Anwalt- und Notarverzeichnis 2007 - 8. Edition") = 0 Then
- WordBasic.Shell a$
- WordBasic.AppActivate "Microsoft Word", 1
- End If
- Kanal = WordBasic.DDEInitiate("vrn2007", "vrn")
- WordBasic.DDEExecute Kanal, "GetData"
- Result$ = WordBasic.[DDERequest$](Kanal, "DDEResult")
- If (Result$ <> "") Then
- WordBasic.MsgBox Result$, "Anwalt- und Notarverzeichnis 2007 - 8. Edition", 32
- Else
- WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEName1")
- WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEName2")
- WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEName3")
- WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDETitel")
- WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEAkad")
- WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEAdel")
- WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEAdresse")
- WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEKommunikation")
- End If
- WordBasic.DDETerminateAll
- Loop Until Result$ <> ""
- WordBasic.DDETerminateAll
- End Sub
Das Programm liest auch Adressen aus, nur leider immer die selbe... Was muss ich machen um alle nacheinander auszulesen???
Hier der 2.Code, bei dem ich k.A. hab wofür der ist:
VB.NET-Quellcode
- Public Sub MAIN()
- Dim a$
- Dim Kanal
- Dim Result$
- Dim Command_$
- a$ = WordBasic.[GetPrivateProfileString$]("Main", "PrgPath", "vrn2007.ini") + "\vrn2007.EXE"
- If WordBasic.AppIsRunning("Anwalt- und Notarverzeichnis 2007 - 8. Edition") = 0 Then
- WordBasic.Shell a$
- WordBasic.AppActivate "Microsoft Word", 1
- End If
- Kanal = WordBasic.DDEInitiate("vrn2007", "vrn")
- Command_$ = ""
- Command_$ = Command_$ + "Search" + Chr(13)
- Command_$ = Command_$ + "ObjektName=Abel" + Chr(13)
- Command_$ = Command_$ + "ObjektVorname=Susanne" + Chr(13)
- Command_$ = Command_$ + "ObjektPLZOrt=52072" + Chr(13)
- Command_$ = Command_$ + "ObjektAG=Aachen" + Chr(13)
- Command_$ = Command_$ + "ObjektLKZ=D" + Chr(13)
- Command_$ = Command_$ + "ObjektTyp=Rechtsanwalt/Rechtsanwältin" + Chr(13)
- WordBasic.DDEExecute Kanal, Command_$
- Result$ = WordBasic.[DDERequest$](Kanal, "DDEResult")
- If (Result$ <> "") Then
- WordBasic.MsgBox Result$, "Anwalt- und Notarverzeichnis 2007 - 8. Edition", 32
- Else
- WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEName1")
- WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEName2")
- WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEName3")
- WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDETitel")
- WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEAkad")
- WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEAdel")
- WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEAdresse")
- WordBasic.Insert WordBasic.[DDERequest$](Kanal, "DDEKommunikation")
- End If
- WordBasic.DDEExecute Kanal, "Close"
- WordBasic.DDETerminateAll
- End Sub
Hier noch ein Screenshot der Hilfedatei:
Dieser Beitrag wurde bereits 1 mal editiert, zuletzt von „dani333444“ ()