Ho le seguenti macro di Office, ma non riesco a tradurlr in OOo mi
potreste aiutare?
If WordBasic.ExistingBookmark("ImmedEsecut") Then
WordBasic.WW7_EditGoTo Destination:="ImmedEsecut"
If WordBasic.[LTrim$](WordBasic.[Selection$]()) = "" Then
If WordBasic.SelType = 2 Then WordBasic.SelType = 1
WordBasic.SelectCurSentence
WordBasic.EditClear 2
Else
WordBasic.FormatNumberDefault 1
End If
End If
Qui ho capito a grandi linee il funzionamento:
Cerca il segnalibro ImmedEsecut, se non è vuoto entra nell'if (non capisco
cosa fa), altrimenti formatta il paragrafo come elenco numerato (non ho
trovato come si faccia ad impostarlo da macro)
---------------------------------------------------------------------------
If WordBasic.ExistingBookmark("CodInterno") Then
WordBasic.EditBookmark Name:="CodInterno", SortBy:=1, GoTo:=1
WordBasic.EditCut
WordBasic.ViewHeader
WordBasic.GoToHeaderFooter
WordBasic.EditBookmark Name:="CodInternoPiePagina", GoTo:=1
WordBasic.CharRight 6, 1
WordBasic.EditPaste
WordBasic.CharLeft 6, 1
WordBasic.Italic 0
WordBasic.CloseViewHeaderFooter
End If
Qui se non ho capito male cerca il segnalibro CodInterno, se lo trova fa
un fa un sort ma non ho capito di preciso come, poi fa Cut del testo del
paragrafo, si sposta nel footer incolla il testo ed gli cambia le
impostazioni di formattazione. In questa l'unico modo che ho trovato per
fare il cut and paste è stato attraverso il registratore di macro, ma
preferirei avitarlo.
Grazie
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
