Eingabefeld im Formular mit Rechtecken gefüllt
Moderator: Moderatoren
- komma4
- ********
- Beiträge: 5332
- Registriert: Mi, 03.05.2006 23:29
- Wohnort: Chon Buri Thailand Asia
- Kontaktdaten:
Re: Eingabefeld im Formular mit Rechtecken gefüllt
ich tippe auf einen (auf dem Zielrechner) nicht vorhandenen Font...
Cheers
Winfried
aktuell: LO 5.3.5.2 30m0(Build:2) SUSE rpm, unter Linux openSuSE Leap 42.3 x86_64/KDE5
DateTime2 Einfügen von Datum/Zeit/Zeitstempel (als OOo Extension)
Winfried
aktuell: LO 5.3.5.2 30m0(Build:2) SUSE rpm, unter Linux openSuSE Leap 42.3 x86_64/KDE5
DateTime2 Einfügen von Datum/Zeit/Zeitstempel (als OOo Extension)
Re: Eingabefeld im Formular mit Rechtecken gefüllt
Hallo,
ich habe das gleiche Problem:
Öffnen mit Word 97 unter WinXP auf dem gleichen Rechner: Eingabefelder in Ordnung
mit Writer 3.0 (und auch 2.4): Kästchen wie beschrieben.
Leider hab ich es nicht geschafft, die Kästchen irgendwie mit Suchen und Ersetzen wegzubekommen (einschließlich Makro AltSearch).
Es sind sehr viele Felder und es widerstrebt mir sehr, das Formular mit dem alten Word zu bearbeiten.
Hat vielleicht doch jemand eine Lösung dafür?
Moritz
ich habe das gleiche Problem:
Öffnen mit Word 97 unter WinXP auf dem gleichen Rechner: Eingabefelder in Ordnung
mit Writer 3.0 (und auch 2.4): Kästchen wie beschrieben.
Leider hab ich es nicht geschafft, die Kästchen irgendwie mit Suchen und Ersetzen wegzubekommen (einschließlich Makro AltSearch).
Es sind sehr viele Felder und es widerstrebt mir sehr, das Formular mit dem alten Word zu bearbeiten.
Hat vielleicht doch jemand eine Lösung dafür?
Moritz
Re: Eingabefeld im Formular mit Rechtecken gefüllt
Hallo, das Problem scheint zu entstehen, wenn geschützte Winword- Formulare geöffnet werden.
Damit kannst Du die Kästchen beseitigen:
Sub unerwuenschten_Feldinhalt_loeschen
Dim oDocument As Object
oDocument = ThisComponent
Dim TextFieldEnum As Object
Dim TextField As Object
TextFieldEnum = oDocument.getTextFields.createEnumeration
While TextFieldEnum.hasMoreElements()
TextField = TextFieldEnum.nextElement()
If TextField.supportsService("com.sun.star.text.TextField.Input") Then
if TextField.Content =" " then TextField.Content=" "
end if
Wend
End Sub
Bei if TextField.Content =" " mußt du die 5 Kästchen reinkopieren.
Moritz
Damit kannst Du die Kästchen beseitigen:
Sub unerwuenschten_Feldinhalt_loeschen
Dim oDocument As Object
oDocument = ThisComponent
Dim TextFieldEnum As Object
Dim TextField As Object
TextFieldEnum = oDocument.getTextFields.createEnumeration
While TextFieldEnum.hasMoreElements()
TextField = TextFieldEnum.nextElement()
If TextField.supportsService("com.sun.star.text.TextField.Input") Then
if TextField.Content =" " then TextField.Content=" "
end if
Wend
End Sub
Bei if TextField.Content =" " mußt du die 5 Kästchen reinkopieren.
Moritz