Lines Matching full:args

141 Sub InsertTag (Element As String, Content As String)
142     dim document   as object
143     dim dispatcher as object
145     document   = ThisComponent.CurrentController.Frame
146     dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
148     dim args(5) as new com.sun.star.beans.PropertyValue
149     args(0).Name = "Type"
151     args(1).Name = "SubType"
156     args(3).Value = Content
173 '=======================================================
174 Sub InsertTagCR (Element As String, Content As String, Style As String)
176     dim dispatcher as object
178     document   = ThisComponent.CurrentController.Frame
179     dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
181     dim args(5) as new com.sun.star.beans.PropertyValue
182     args(0).Name = "Type"
188     args(3).Name = "Content"
207 ' Inserts a field in the document at the
208 ' current cursor position.
209 '=======================================================
210 Sub InsertField(Field as String, Content as String)
211     dim document   as object
212     dim dispatcher as object
214     document   = ThisComponent.CurrentController.Frame
215     dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
219     args(0).Value = 8
234 '=======================================================
236 '-------------------------------------------------------
237 ' Simulates the CursorUp key
238 '=======================================================
239 Sub goUp(Count As Integer, Optional bSelect As Boolean)
243     document   = ThisComponent.CurrentController.Frame
259 '=======================================================
261 '-------------------------------------------------------
263 '=======================================================
266     dim dispatcher as object
281     dispatcher.executeDispatch(document, ".uno:GoDown", "", 0, args())
285 '=======================================================
286 ' GoRight
287 '-------------------------------------------------------
288 ' Simulates the CursorRight key
290 Sub goRight(Count As Integer, Optional bSelect As Boolean)
307     dispatcher.executeDispatch(document, ".uno:GoRight", "", 0, args())
309 
310 '=======================================================
312 '-------------------------------------------------------
314 '=======================================================
383     document   = ThisComponent.CurrentController.Frame
384     dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
386     dispatcher.executeDispatch(document, ".uno:InsertLinebreak", "", 0, Array())
389 '=======================================================
402     args(0).Name = "Template"
403     args(0).Value = StyleName
404     args(1).Name = "Family"
405     args(1).Value = 2
407     dispatcher.executeDispatch(document, ".uno:StyleApply", "", 0, args())
410 '=======================================================
499     oRuntimeDialog = CreateUnoDialog(oLibDialog)
500     LoadDialog() = oRuntimeDialog
503 '=======================================================
504 ' Surprise
505 '-------------------------------------------------------
507 '=======================================================
509 …msgbox "This function is unsupported."+chr(13)+"If you know how to implement this -…
577             Case "con"
578                 IsInBookmark = 3
579             Case Else
580                 IsInBookmark = 0
581         End Select
583         IsInBookmark = 0
584     End If
585 End Function
587 '=======================================================
588 ' IsInTable
589 '-------------------------------------------------------
590 ' Evaluates if the cursor is in a table
593     oSel = thiscomponent.getcurrentcontroller.getselection
594     oCur = oSel(0).getText.createTextCursorByRange(oSel(0))
599 '=======================================================