Re: [de-users] Writer: QR-Codes automatisieren

Hallo Boris,
> Funktioniert das auch in Writer?
ich denke schon: In einem WRITER-Dokument;

 * Einfügen > Feldbefehl > Autor
 * Mit diesem Makro ...
   Sub DisplayFields   '*QUELLE: https://pitonyak.org/OOME_3_0.pdf:
   Listing 385*
   oEnum = ThisComponent.getTextFields().createEnumeration()
   Do While oEnum.hasMoreElements()
   oField = oEnum.nextElement()
   s = s & oField.getPresentation(True) & " = "
     'Field type
   If oField.supportsService("com.sun.star.text.TextField.Annotation") Then
   REM More cryptic, I could use If oField.getPresentation(True) =
   "Note"...
   REM A "Note" has no displayed content so calling getPresentation(False)
   REM returns an empty string. Instead, obtain the author and the content.
   s = s & oField.Author & " says " & oField.Content
   Else
   s = s & oField.getPresentation(False)
     'String content
   End If
   s = s & CHR$(13)
   Loop
   MsgBox s, 0, "Text Fields"
   End Sub
 * ... wird das angezeigt:
   Dokumentinfo:Erstellt = MeinName

> Das Makro habe ich mir mal angesehen: das könnte ich nicht einmal 
> unfallfrei abtippen.
Ich würde das (in CALC) zunächst so reduzieren, dass nur der QR-Code 
(und nicht die anderen Codes erzeugt werden.

Gruß
Michael

--
Liste abmelden mit E-Mail an: users+unsubscribe@de.libreoffice.org
Probleme? https://de.libreoffice.org/hilfe-kontakt/mailing-listen/abmeldung-liste/
Tipps zu Listenmails: https://wiki.documentfoundation.org/Netiquette/de
Listenarchiv: https://listarchives.libreoffice.org/de/users/
Datenschutzerklärung: https://www.documentfoundation.org/privacy