Variablen in bedingten Texten usw. aufspüren

[Mau]

Liebe ExpertInnen,

ich will eine Formatvorlage umarbeiten, in der etliche Variablen gesetzt sind. Dazu muss ich u.a. eine Variable entfernen und neu definieren.
Diese Variable habe ich in mehreren Bedingungen für bedingte Texte und versteckte Absätze verwendet. Diese Textteile habe ich alle entfernt.
Jetzt müsste eigentlich das vorher ausgegraute Kreuz zum Löschen der Variable rot, also aktiviert sein, um die Variable zu entfernen.
Das ist bei mir aber nicht der Fall. Irgendwo muss noch eine Stelle sein, wo sie immer noch verwendet wird. Wie finde ich die?

Gruß,
Mau

[Mau]

Sorry, liebe Leute,

ich stelle gerade fest, dass ich für die Löschung die ganze Zeit über im Feld Typ den Typ Variable anzeigen statt Variable setzen ausgewählt hatte.

Gruß,
Mau

[komma4]

Entferne sie, bspw., mit Basic

Code: Alles auswählen

Sub Snippet
  oTextFieldMasters = ThisComponent.getTextFieldMasters()
  oElementNames = oTextFieldMasters.getElementNames()
  oObj1 = oTextFieldMasters.getByName("com.sun.star.text.fieldmaster.SetExpression.MyVar")
  oObj1.dispose()
End Sub

MyVar ist der Name Deiner Variablen.

Hilft das?

[komma4]

Verstehe, es ist heiss in Deutschland, nicht wahr

[Mau]

Verstehe, es ist heiss in Deutschland, nicht wahr

So isses ...
Danke aber für den Makro; den kann ich vielleicht noch einmal gebrauchen.

Gruß,
Mau

P.S.
Dann wollen wir mal alle hoffen, dass die Temperaturen wieder runtergehen; wer weiß, wie viel Anfragen dieser Qualität sonst noch von mir kommen werden ...

[Mau]

Lieber Winfried,4

das habe ich jetzt in meine Makro-Datei hineingeschrieben:

Code: Alles auswählen

Sub Snippet
  oTextFieldMasters = ThisComponent.getTextFieldMasters()
  oElementNames = oTextFieldMasters.getElementNames()
  oObj1 = oTextFieldMasters.getByName("com.sun.star.text.fieldmaster.SetExpression.MyVar")
  oObj1.dispose()
End Sub

MyVar ist der Name Deiner Variablen.

Wäre das mit viel Aufwand verbunden, wenn du mir noch den Programmcode für eine Eingabemaske schickst, damit ich die Routine nicht für jede Variable umschreiben muss?

Gruß,
Mau

[komma4]

Wäre das mit viel Aufwand verbunden[...]für jede Variable umschreiben muss?

Jain.

Im Prinzip eine Eingabebox, und die Übernahme im Snippet

Code: Alles auswählen

Sub varname_abfragen

   varname = Inputbox("Welche Variable löschen?", "Löschen von Textfeld-Variablen")
   snippet2(varname)   
End Sub

Sub Snippet2(varname)
  oTextFieldMasters = ThisComponent.getTextFieldMasters()
  oElementNames = oTextFieldMasters.getElementNames()
  oObj1 = oTextFieldMasters.getByName("com.sun.star.text.fieldmaster.SetExpression." & varname)
  oObj1.dispose()
End Sub

Vielleicht benötigst Du aber eher einen Code, der alle gesetzten Variablen und Benutzerfelder löscht?

Code: Alles auswählen

Sub entfernen_aller_Variablen
' 20150707
' löscht alle gesetzen Variablen, auch Benutzerfelder
' LO f=5 p=36701

  oTextFieldMasters = ThisComponent.getTextFieldMasters()
  oElementNames = oTextFieldMasters.getElementNames()
  '
  OOoTextFields = _
  "com.sun.star.text.fieldmaster.SetExpression.Illustration " & _
  "com.sun.star.text.fieldmaster.SetExpression.Table " & _
  "com.sun.star.text.fieldmaster.SetExpression.Text " & _
  "com.sun.star.text.fieldmaster.SetExpression.Drawing "
      
  ' alle Textfelder durchsuchen  
  For Each elem In oElementNames
     ' wenn nicht durch OpenOffice vorgegeben...
     If Not (INSTR(OOoTextFields,elem) > 0) Then
          ' Objekt holen
          oObj1 = oTextFieldMasters.getByName(elem)
          ' Objekt verwerfen
          oObj1.dispose()
     End If 
  Next

End Sub

[Mau]

Lieber Winfried,
klasse, danke!

Vielleicht benötigst Du aber eher einen Code, der alle gesetzten Variablen und Benutzerfelder löscht?

Zunächst einmal nicht. Aber da es durchaus sein kann, dass ich auch mal alle Variablen entfernen muss, schreibe ich mir beide Codes ab.

Gruß,
Mau

[Mau]

Lieber Winfried,

noch zwei Fragen zu dem zweiten Makro-Code hätte ich:

• Was bedeuten in der dritten Programmzeile hinter "' LO " die Angaben "f=xx" und "p=xxxx"?
• Kann es sein, dass der Programmcode in dieser Form auch noch andere Dinge löscht außer Variablen?

Gruß,
Mau

[Mau]

Noch etwas:

Wenn ich aus dem Makro-Modul irgendeinen Makro zum Bearbeiten aufrufe, bekomme ich jedes Mal eine BASIC-Syntaxfehler-Meldung: "Unerwartetes Symbol: CRLF".
Ich kenne das als Kürzel für eine harte Zeilen- bzw. Absatzschaltung.

Ich habe natürlich eine Sicherungskopie vom Zustand des Moduls vorher, aber vielleicht gibt es eine wenig aufwändige Möglichkeit, die Fehlerquelle zu beseitigen?

Gruß,
Mau