OpenOffice.info

Code: Alles auswählen

REM  *****  BASIC  *****

Sub getInfo

Dim sName as String
Dim sAddress as  String
Dim sNo as String
Dim vDescriptor, vFound

On Error GoTo Error_Handler

GetName:
sName = inputbox ("whats you name", "name")
If sName = "" Then
   sVar = MsgBox("You must enter a name",1)
   ' If Cancel was hit, stop macro
   If sVar = 2 Then
      Exit Sub
   Else
      GoTo GetName
   End If
End If
' Search for [TextField1]
  vDescriptor = ThisComponent.createSearchDescriptor()
  With vDescriptor
    .SearchString = "[TextField1]"
    .SearchWords = false
    .SearchCaseSensitive = False
    .ReplaceString = sName
  End With
  vFound = ThisComponent.replaceAll(vDescriptor)
 
  If vFound <> 1 Then
     MsgBox("Error: [TextField1] Not Found")
  End If
 
GetAddress: 
sAddress = inputbox ("whats your address", "address")
If sAddress = "" Then
   sVar = MsgBox("You must enter an address",1)
   ' If Cancel was hit, stop macro
   If sVar = 2 Then
      Exit Sub
   Else
      GoTo GetAddress
   End If
End If
' Search for [TextField2]
  vDescriptor = ThisComponent.createSearchDescriptor()
  With vDescriptor
    .SearchString = "[TextField2]"
    .SearchWords = false
    .SearchCaseSensitive = False
    .ReplaceString = sAddress
  End With
  vFound = ThisComponent.replaceAll(vDescriptor)
  If vFound <> 1 Then
     MsgBox("Error: [TextField2] Not Found")
  End If

GetNo:
sNo = inputbox ("whats your telephone number", "number")
If sNo = "" Then
   sVar = MsgBox("You must enter a telephone number",1)
   ' If Cancel was hit, stop macro
   If sVar = 2 Then
      Exit Sub
   Else
      GoTo GetNo
   End If
End If
' Search for [TextField3]
  vDescriptor = ThisComponent.createSearchDescriptor()
  With vDescriptor
    .SearchString = "[TextField3]"
    .SearchWords = false
    .SearchCaseSensitive = False
    .ReplaceString = sNo
  End With
  vFound = ThisComponent.replaceAll(vDescriptor)
  If vFound <> 1 Then
     MsgBox("Error: [TextField3] Not Found")
  End If

Exit Sub
Error_Handler:
MsgBox(Error)

End Sub 

Code: Alles auswählen

Dim MyDlg as Object
Dim String_NameV as String
Dim oDoc as Object
Dim oTextFieldMasters as Object
Dim TxtUserfield as String
Dim TxtName as String

Sub Dlg_FB
	Dialoglibraries.Loadlibrary("Standard")
	MyDlg= CreateUnoDialog(Dialoglibraries.Standard.Dlg_FB)
	Felbefehl_lesen

	Ctl_Name = MyDlg.GetControl("TextField_NameV")
		
	Ctl_Name.Model.Text = String_NameV
		
	Ctl_Name.setfocus()
	MyDlg.execute()
end Sub

Sub Felbefehl_lesen
	oDoc = thisComponent
	strUserfield_NameV = "NameV"
	On Error Resume Next
	oTextFieldMasters = oDoc.TextFieldMasters
	TxtUserfield_NameV="com.sun.star.text.FieldMaster.User." + StrUserfield_NameV
	String_NameV=oTextFieldMasters.getByName(TxtUserfield_NameV).content
	
Sub Felbefehl_schreiben
	oDoc = thisComponent

	strUserfield_NameV = "NameV"    
	Ctl_Name = MyDlg.GetControl("TextField_NameV")
	String_NameV = Ctl_Name.Model.Text	
	strContent_NameV = String_NameV
	
	On Error Resume Next
	oTextFieldMasters = oDoc.TextFieldMasters
		
	TxtUserfield_NameV="com.sun.star.text.FieldMaster.User." + StrUserfield_NameV
	oTextFieldMasters.getByName(TxtUserfield_NameV).content = StrContent_NameV
	
	oDoc.getTextFields().refresh()
	MyDlg.endexecute()
End Sub

Code: Alles auswählen

Sub Auslesen_Optionsbutton
	Opt_Button1 = MyDialog.getControl("OptionButton1")
	State_Opt1 = Opt_Button1.model.State 
	msgbox State_Opt1
End Sub

Code: Alles auswählen

Sub Checkbox_ansprechen
	oDoc = thisComponent
	oController = oDoc.getCurrentController()
	oform = odoc.drawpage.forms.getbyindex(0)
	CtrlCheckBox = oForm.getByName("CheckBox1")'Achtung: Namen anpassen
	oKView = oController.getControl(CtrlCheckBox)
	CtrlCheckBox.State= 1 'State 1 = setzen / 0 = abwählen
	Myctrl= oKView.model.State 'Status auslesen
	msgbox "Die Checkbox hat jetzt den Status: " & Myctrl
End Sub[