Hallo,
> Den Code dann in eine Mail kopieren und hier posten.
Hier kommt der Code:
REM ***** BASIC *****
Sub Main
End Sub
sub Feldtyp_loeschen
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 ---------------------------------------------------------------------
-
dispatcher.executeDispatch(document, ".uno:SetInputMode", "", 0, Array())
rem ---------------------------------------------------------------------
-
dim args2(0) as new com.sun.star.beans.PropertyValue
args2(0).Name = "StringName"
args2(0).Value = "NR"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args2())
rem ---------------------------------------------------------------------
-
dispatcher.executeDispatch(document, ".uno:SetInputMode", "", 0, Array())
rem ---------------------------------------------------------------------
-
dim args4(0) as new com.sun.star.beans.PropertyValue
args4(0).Name = "StringName"
args4(0).Value = "TITEL"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args4())
rem ---------------------------------------------------------------------
-
dispatcher.executeDispatch(document, ".uno:SetInputMode", "", 0, Array())
rem ---------------------------------------------------------------------
-
dim args6(0) as new com.sun.star.beans.PropertyValue
args6(0).Name = "StringName"
args6(0).Value = "VN"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args6())
rem ---------------------------------------------------------------------
-
dispatcher.executeDispatch(document, ".uno:SetInputMode", "", 0, Array())
rem ---------------------------------------------------------------------
-
dim args8(0) as new com.sun.star.beans.PropertyValue
args8(0).Name = "StringName"
args8(0).Value = "NN"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args8())
rem ---------------------------------------------------------------------
-
dispatcher.executeDispatch(document, ".uno:SetInputMode", "", 0, Array())
rem ---------------------------------------------------------------------
-
dim args10(0) as new com.sun.star.beans.PropertyValue
args10(0).Name = "StringName"
args10(0).Value = "ZUSATZ1"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args10())
rem ---------------------------------------------------------------------
-
dispatcher.executeDispatch(document, ".uno:SetInputMode", "", 0, Array())
rem ---------------------------------------------------------------------
-
dim args12(0) as new com.sun.star.beans.PropertyValue
args12(0).Name = "StringName"
args12(0).Value = "ZUSATZ2"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args12())
rem ---------------------------------------------------------------------
-
dispatcher.executeDispatch(document, ".uno:SetInputMode", "", 0, Array())
rem ---------------------------------------------------------------------
-
dim args14(0) as new com.sun.star.beans.PropertyValue
args14(0).Name = "StringName"
args14(0).Value = "STR"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args14())
rem ---------------------------------------------------------------------
-
dispatcher.executeDispatch(document, ".uno:SetInputMode", "", 0, Array())
rem ---------------------------------------------------------------------
-
dim args16(0) as new com.sun.star.beans.PropertyValue
args16(0).Name = "StringName"
args16(0).Value = "PLZ"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args16())
rem ---------------------------------------------------------------------
-
dispatcher.executeDispatch(document, ".uno:SetInputMode", "", 0, Array())
rem ---------------------------------------------------------------------
-
dim args18(0) as new com.sun.star.beans.PropertyValue
args18(0).Name = "StringName"
args18(0).Value = "ORT"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args18())
rem ---------------------------------------------------------------------
-
dispatcher.executeDispatch(document, ".uno:SetInputMode", "", 0, Array())
rem ---------------------------------------------------------------------
-
dim args20(0) as new com.sun.star.beans.PropertyValue
args20(0).Name = "StringName"
args20(0).Value = "LAND"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args20())
rem ---------------------------------------------------------------------
-
dispatcher.executeDispatch(document, ".uno:SetInputMode", "", 0, Array())
rem ---------------------------------------------------------------------
-
dim args22(0) as new com.sun.star.beans.PropertyValue
args22(0).Name = "StringName"
args22(0).Value = "LKZ"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args22())
rem ---------------------------------------------------------------------
-
dispatcher.executeDispatch(document, ".uno:SetInputMode", "", 0, Array())
rem ---------------------------------------------------------------------
-
dim args24(0) as new com.sun.star.beans.PropertyValue
args24(0).Name = "StringName"
args24(0).Value = "KNZ"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args24())
rem ---------------------------------------------------------------------
-
dispatcher.executeDispatch(document, ".uno:SetInputMode", "", 0, Array())
rem ---------------------------------------------------------------------
-
dim args26(0) as new com.sun.star.beans.PropertyValue
args26(0).Name = "StringName"
args26(0).Value = "ADRANR"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args26())
rem ---------------------------------------------------------------------
-
dispatcher.executeDispatch(document, ".uno:SetInputMode", "", 0, Array())
rem ---------------------------------------------------------------------
-
dim args28(0) as new com.sun.star.beans.PropertyValue
args28(0).Name = "StringName"
args28(0).Value = "BRIEFANR"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args28())
rem ---------------------------------------------------------------------
-
dispatcher.executeDispatch(document, ".uno:SetInputMode", "", 0, Array())
rem ---------------------------------------------------------------------
-
dim args30(0) as new com.sun.star.beans.PropertyValue
args30(0).Name = "StringName"
args30(0).Value = "EMAIL"
dispatcher.executeDispatch(document, ".uno:EnterString", "", 0, args30())
end sub
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
