ich habe damit begonnen, ein umfangreiches Makro nebst zu erstellen. Über den Dialog soll abhängig von den Eingaben ein Text gebaut werden, der auch ein Textfeld enthält. Genau hier liegt mein Problem:
Wenn ich die sub Z_Test aufrufe, dann wird das Textfeld erstellt. Wenn ich Z_Test aus der sub Abfrage heraus aufrufe, kommt nichts mehr. Wo liegt mein Fehler?
Code: Alles auswählen
Dim MyDlg As Object
Dim O_Ber_G As Object
Dim O_Ber_S As Object
Dim O_Tip_G As Object
Dim O_Tip_S As Object
Dim O_Aus_G As Object
Dim O_Aus_S As Object
Dim O_Aus_M As Object
Dim O_Aus_A As Object
Dim O_Sch_G As Object
Dim O_Sch_S As Object
Dim O_Ein_G As Object
Dim O_Ein_S As Object
Dim O_Ers_G As Object
Dim O_Ers_S As Object
Dim O_Ve1_G As Object
Dim O_Ve1_S As Object
Dim O_Zwe_G As Object
Dim O_Zwe_S As Object
Dim O_Ve2_G As Object
Dim O_Ve2_S As Object
Dim O_Los As Object
Dim O_Alles As Object
Dim O_All_S As Object
Sub A_Init_Dlg
rem --- Zeiger auf den Dialog setzen ---
Dialoglibraries.Loadlibrary("RVG")
MyDlg = CreateUnoDialog(Dialoglibraries.RVG.Zivilrecht)
rem --- Objecte initialisieren ---------
O_Ber_G = MyDlg.GetControl("Ber_G")
O_Ber_S = MyDlg.GetControl("Ber_S")
O_Tip_G = MyDlg.GetControl("Tip_G")
O_Tip_S = MyDlg.GetControl("Tip_S")
O_Aus_G = MyDlg.GetControl("Aus_G")
O_Aus_S = MyDlg.GetControl("Aus_S")
O_Aus_M = MyDlg.GetControl("Aus_M")
O_Aus_A = MyDlg.GetControl("Aus_A")
O_Sch_G = MyDlg.GetControl("Sch_G")
O_Sch_S = MyDlg.GetControl("Sch_S")
O_Ein_G = MyDlg.GetControl("Ein_G")
O_Ein_S = MyDlg.GetControl("Ein_S")
O_Ers_G = MyDlg.GetControl("Ers_G")
O_Ers_S = MyDlg.GetControl("Ers_S")
O_Ve1_G = MyDlg.GetControl("Ve1_G")
O_Ve1_S = MyDlg.GetControl("Ve1_S")
O_Zwe_G = MyDlg.GetControl("Zwe_G")
O_Zwe_S = MyDlg.GetControl("Zwe_S")
O_Ve2_G = MyDlg.GetControl("Ve2_G")
O_Ve2_S = MyDlg.GetControl("Ve2_S")
O_Los = MyDlg.GetControl("Los")
O_Alles = MyDlg.GetControl("Alles")
O_All_S = MyDlg.GetControl("All_S")
End Sub
sub Z_Test
rem ----------------------------------------------------------------------
rem define variables
dim document as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
rem ----------------------------------------------------------------------
dim args1(5) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Type"
args1(0).Value = 38
args1(1).Name = "SubType"
args1(1).Value = 0
args1(2).Name = "Name"
args1(2).Value = "Das ist ein Test"
args1(3).Name = "Content"
args1(3).Value = ""
args1(4).Name = "Format"
args1(4).Value = 0
args1(5).Name = "Separator"
args1(5).Value = " "
dispatcher.executeDispatch(document, ".uno:InsertField", "", 0, args1())
end sub
Sub Auswertung
Z_Test
MsgBox("Was ist denn los?")
End Sub
Sub Abfrage
A_Init_Dlg
MyDlg.Execute()
End Sub
Gruß, Alex
