![]() ![]() ![]() Richard McClintock, a Latin professor at Hampden-Sydney College in Virginia, looked up one of the more obscure Latin words, consectetur, from a Lorem Ipsum passage, and going through the cites of the word in classical literature, discovered the undoubtable source. It has roots in a piece of classical Latin literature from 45 BC, making it over 2000 years old. Now, you can select cells or rows using mouse or keyboard, cut them using Alt+ C, move to the target cell, and paste them using Alt+ V or Alt+ R.Contrary to popular belief, Lorem Ipsum is not simply random text. ' Paste contents with "Move Right" optionĪfter copying the code to your user library, just assign CopyAndCut to, e.g., Alt+ C, InsertWithMoveDown to, e.g., Alt+ V, and InsertWithMoveRight to, e.g., Alt+ R (all these shortcuts are empty by default). If 1024 = () Thenĭispatcher.executeDispatch(document, ".uno:DeleteRows", "", 0, Array())ĭim args1(5) as New .PropertyValueĭispatcher.executeDispatch(document, ".uno:InsertContents", "", 0, args1()) ' the complete row was selected and should get deleted ' Check the width of the selection - if 1024 columns, we assume OSelections = ThisComponent.getCurrentSelection()ĭispatcher = createUnoService(".DispatchHelper")ĭispatcher.executeDispatch(document, ".uno:Copy", "", 0, Array())ĭispatcher.executeDispatch(document, ".uno:Cut", "", 0, Array()) ' get access to the document and selections (if any)ĭocument = Here's a very simple code to "move" selected cells: Option Explicit Since cut&paste operations are sometimes quite annoying, you may create a simple macro for cutting cells and another one to paste them, moving existing content down.
0 Comments
Leave a Reply. |
Details
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |