Ik ben zojuist overgestapt van MS Office naar OpenOffice. Het is even wennen, maar het bevalt goed. Nu gebruikte ik in MS Office (Word) altijd een kleine macro om stukjes tekst (bijvoorbeeld van een website) met een druk op een knop zonder opmaak te plakken in mijn documten. Ik had een macro (zie hieronder) en die macro had ik aan een knop in mijn werkbalk toegewezen. Hoe krijg ik deze functionaliteit ook in Writer?
--> Inmiddels heb ik een oplossing gevonden. Zie hieronder:
Macro die ik in word gebruikte:
Sub PasteSpec()
Selection.PasteSpecial Link:=False, DataType:=wdPasteText
End Sub
Macro die ik in Writer gebruik:
Sub PasteUnformatted
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "SelectedFormat"
args1(0).Value = 1
dispatcher.executeDispatch(document, ".uno:ClipboardFormatItems", "", 0, args1())
End sub
Deze macro heb ik toegevoegd aan een nieuwe werkbalk, en die werkbalk natuurlijk zichtbaar gemaakt.
--> Inmiddels heb ik een oplossing gevonden. Zie hieronder:
Macro die ik in word gebruikte:
Sub PasteSpec()
Selection.PasteSpecial Link:=False, DataType:=wdPasteText
End Sub
Macro die ik in Writer gebruik:
Sub PasteUnformatted
dim document as object
dim dispatcher as object
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
dim args1(0) as new com.sun.star.beans.PropertyValue
args1(0).Name = "SelectedFormat"
args1(0).Value = 1
dispatcher.executeDispatch(document, ".uno:ClipboardFormatItems", "", 0, args1())
End sub
Deze macro heb ik toegevoegd aan een nieuwe werkbalk, en die werkbalk natuurlijk zichtbaar gemaakt.
Laatst bewerkt: