Macro: plakken zonder opmaak

Status
Niet open voor verdere reacties.

alcor007

Nieuwe gebruiker
Lid geworden
16 dec 2008
Berichten
1
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.
 
Laatst bewerkt:
Toppie :thumb:

Ik zie dat je gebruik hebt gemaakt van de macrorecorder. Dat levert inderdaad iets meer code op, maar werkt prima.

:thumb:
 
Status
Niet open voor verdere reacties.
Terug
Bovenaan Onderaan