macro proprietà documento

[cavagnetto]

Ciao a tutti, avrei necessità, attraverso una macro, di ottenere il contenuto della proprietà “Keywords” e “Comments” del documento (File-Proprietà-Descrizione-Parole Chiave/Commenti).
Ho provato a scrivere questa macro ma non mi funziona (Funziona soltanto se passo alla funzione il parametro Title che poi ritornail titolo della finestra e non quello all’interno delle proprietà ):

macro.odt

Function docInfo(pChoice As String)
theDoc = ThisComponent
theProps = theDoc.DocumentProperties
Select Case pChoice
Case “Author” : docInfo = theProps.Author
Case “Title” : docInfo = theDoc.Title
Case “Keywords” : docInfo = theProps.Keywords
End Select
End Function

Sub PrintInfo ()
MsgBox(DocInfo(“Keywords”))
End Sub
Grazie a tutti.

[LordMax]

mmm
Strano

Ma hai scritto la macro tu direttamente o hai prima creato la macro in “registra macro”?

Io creando una macro ottengo questo:

sub Propriet_documento
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 ----------------------------------------------------------------------
dim args1(9) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Properties.UseUserData"
args1(0).Value = true
args1(1).Name = "Properties.DeleteUserData"
args1(1).Value = false
args1(2).Name = "Properties.Title"
args1(2).Value = "Questo è il titolo"
args1(3).Name = "Properties.Subject"
args1(3).Value = "l'oggetto"
args1(4).Name = "Properties.KeyWords"
args1(4).Value = "le parole chiave"
args1(5).Name = "Properties.Description"
args1(5).Value = "Qualche commento a casaccio"
args1(6).Name = "Properties.AutoReload"
args1(6).Value = false
args1(7).Name = "Properties.AutoReloadTime"
args1(7).Value = 0
args1(8).Name = "Properties.AutoReloadURL"
args1(8).Value = ""
args1(9).Name = "Properties.AutoReloadFrame"
args1(9).Value = ""

[cavagnetto]

Ho risolto, mi hanno aiutato con questa soluzione che risolve il mio problema: macro keywords .
Grazie comunque

[LordMax]

Ottimo
Sono contento che hai risolto