OpenOffice.info

Hallo Zusammen,


@Carlos
[quote="Carlos"]Eigentlich müsste man so ne Art Kaffeekasse einrichten. Dann könnte sich der ein oder andere mal erkenntlich zeigen.[/quote]
Wir helfen hier ja "ehrenamtlicht" und das gerne. Damit unterstützen wir das OO.o-Projekt indirekt.
Es gibt auch die Möglichkeit das Projekt [url=http://www.ooodev.org/spenden.html]direkt[/url] finanziell zu unterstützen.

@Matthias
[quote="manese"]Das ist eine echt feine Sache, die du da fabriziert hast.[/quote]
Ich schmücke mich nicht gerne mit fremden Lorbeeren denn das Makro habe ich aus dem verlinktem Beitrag entnommen und nur klein wenig modifiziert.

Schönes Wochenende.

Jürgen

habe schon länger Probleme Schulterprobleme.
Da ist man über jede gute Tastenkombination welche den Griff zur Maus oder dem trackpoint erspart doppelt dankbar!
Vor allem: bleibt man auf den Tasten, scrollt er dauerhaft. So kann man super durch die Dokument srollen bzw. sich arbeiten.

Nochmal herzlichen Dank! Wirklich 1. Sahne!

Hallo Jürgen,
ich muss Carlos absolut recht geben. Das ist eine echt feine Sache, die du da fabriziert hast.

Vielen Dank
matthias

Hi Jürgen,

hat geklappt, ich bin begeistert!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!

Eine wirklich große Hilfe!!!

Herzlichen Dank!!! :-D

PS: das ist hier echt ein Superforum! Ein Grund mehr OpenOffice zu benutzen! Mir ist hier immer geholfen worden und auch noch sehr schnell. Super fachlich und auch super nett. Klar man muss halt auch selber erst versuchen und mal die Hilfe benutzen. Aber das sollte ja selbstverständlich sein. In vielen Foren machen sie sich wichtig, machen sich gegenseitig an usw. Das ist hier wirklich anders!
Eigentlich müsste man so ne Art Kaffeekasse einrichten. Dann könnte sich der ein oder andere mal erkenntlich zeigen.

Sub Scroll_Up
getVerticalScrollbar().doAccessibleAction(0) 'short move up
End Sub

Hi Carlos,

tausche die obere Sub durch folgende aus:

[code]Sub Scroll_Up
getVerticalScrollbar().doAccessibleAction(0) 'short move up
End Sub[/code]

Fröhliches (sc)rollen. :roll:

Jürgen

Herzlichen Dank Jürgen!

Allerdings funktioniert nur das nach unten scrollen (FakePageDn). Habe ich auf die Tastenkombination 'Umsch + Bild nach unten' gelegt.

Bei Sroll_Up will er nicht. Habe ich auf 'Umsch - Bild nach oben' gelegt. Auch hier scrollt der Bildschirm nach unten.

Weißt du vielleicht woran es liegen könnte? Ich kann keine Makros programmieren, daher konnte ich aus der Programmierung leider nichts erkennen.

Ansonsten wäre das natürlich eine super geile Lösung, wenn ich das mal so sagen darf.
Gruß

Sub Scroll_Up

getVerticalScrollbar().doAccessibleAction(1) 'large move up
End Sub

sub FakePageDn
getVerticalScrollbar().doAccessibleAction(1) 'large move down
End Sub

function getVerticalScrollbar() as Any
oAC = ThisComponent.CurrentController.Frame.ComponentWindow.AccessibleContext
oACScrollPane = SearchOneSecForChild(oAC, "", "", com.sun.star.accessibility.AccessibleRole.SCROLL_PANE)
'xray oACScrollPane
for k=0 to oACScrollPane.AccessibleChildCount-1
  oACChild = oACScrollPane.getAccessibleChild(k)
  if oACChild.AccessibleContext.AccessibleRole = com.sun.star.accessibility.AccessibleRole.SCROLL_BAR then
    oSize = oACChild.Size
    if oSize.Height > oSize.Width then
      getVerticalScrollbar = oACChild.AccessibleContext
      exit function
    endif
  endif
next k 

end function

function SearchOneSecForChild(oAC as Object, sName as String, sDescription as String, lRole as Long) as Object
for k=1 to 50
  oRes = SearchForChild(oAC, sName, sDescription, lRole)
  if not IsNull(oRes) then
    SearchOneSecForChild = oRes
    exit function
    endif
  wait(20)
  next k
end function

function SearchForChild(oAC as Object, sName as String, sDescription as String, lRole as Long) as Object
for k=0 to oAC.AccessibleChildCount-1
  oACChild = oAC.getAccessibleChild(k)
  if not HasUnoInterfaces(oACChild, "com.sun.star.accessibility.XAccessibleContext") then
    if HasUnoInterfaces(oACChild, "com.sun.star.accessibility.XAccessible") then
      oACChild = oACChild.AccessibleContext
      else
      exit function '    unexpected situation, maybe caused by some intermediate state
      endif
    endif
  boFound = true
 
  if sName<>""        then boFound = boFound and (oACChild.AccessibleName = sName)
  if sDescription<>"" then boFound = boFound and (oACChild.AccessibleDescription = sDescription)
  if lRole > -1       then boFound = boFound and (oACChild.AccessibleRole = lRole)

  if boFound then
    SearchForChild = oACChild
    exit function
    endif
  next k
end function 

Hi Carlos,

mit einem Makro von dieser [url=http://www.oooforum.org/forum/viewtopic.phtml?t=28594]Seite[/url] geht das Scrollen via Tastatur:

[code]Sub Scroll_Up

getVerticalScrollbar().doAccessibleAction(1) 'large move up
End Sub

sub FakePageDn
getVerticalScrollbar().doAccessibleAction(1) 'large move down
End Sub

function getVerticalScrollbar() as Any
oAC = ThisComponent.CurrentController.Frame.ComponentWindow.AccessibleContext
oACScrollPane = SearchOneSecForChild(oAC, "", "", com.sun.star.accessibility.AccessibleRole.SCROLL_PANE)
'xray oACScrollPane
for k=0 to oACScrollPane.AccessibleChildCount-1
oACChild = oACScrollPane.getAccessibleChild(k)
if oACChild.AccessibleContext.AccessibleRole = com.sun.star.accessibility.AccessibleRole.SCROLL_BAR then
oSize = oACChild.Size
if oSize.Height > oSize.Width then
getVerticalScrollbar = oACChild.AccessibleContext
exit function
endif
endif
next k

end function

function SearchOneSecForChild(oAC as Object, sName as String, sDescription as String, lRole as Long) as Object
for k=1 to 50
oRes = SearchForChild(oAC, sName, sDescription, lRole)
if not IsNull(oRes) then
SearchOneSecForChild = oRes
exit function
endif
wait(20)
next k
end function

function SearchForChild(oAC as Object, sName as String, sDescription as String, lRole as Long) as Object
for k=0 to oAC.AccessibleChildCount-1
oACChild = oAC.getAccessibleChild(k)
if not HasUnoInterfaces(oACChild, "com.sun.star.accessibility.XAccessibleContext") then
if HasUnoInterfaces(oACChild, "com.sun.star.accessibility.XAccessible") then
oACChild = oACChild.AccessibleContext
else
exit function ' unexpected situation, maybe caused by some intermediate state
endif
endif
boFound = true

if sName<>"" then boFound = boFound and (oACChild.AccessibleName = sName)
if sDescription<>"" then boFound = boFound and (oACChild.AccessibleDescription = sDescription)
if lRole > -1 then boFound = boFound and (oACChild.AccessibleRole = lRole)

if boFound then
SearchForChild = oACChild
exit function
endif
next k
end function [/code]

Einfach auf eine Tastenkombi legen.

Viel Erfolg.

Jürgen

[quote="Gast"]Hallo Carlos,
du hast mich halb verstanden.

In der Hilfe - Register 'Index' kannst du eingeben: Tastatur.
Bekommst du damit nicht die Informationen, die du brauchst?

Oder hab ich dich falsch verstanden?
mfG[/quote]
ja, danke, jetzt hab ich es verstanden.
War schon eine gute Idee. Ich arbeite zwar viel mit Shortcuts, habe aber nochmal alles durchgeschaut. Auch unter der Überschrift 'Navigation und Auswahl per TAstatur' habe ich geschaut.

Leider ist aber eine andere Tastenkombination als Bild auf und Bild ab nicht vorhanden.

Eigentlich komisch, dass es z.B. kein halbes Bild auf und ab per Tastatur gibt.
Hier muss man scheinbar immer die Maus nehmen.
Ohne touchpad ist das für mich schon richtig Mist, weil ich viel mit langen Dokumenten arbeite, die ich oft überarbeiten und prüfen muss. Mit der Maus muss ich mit den Händen wieder die Tastatur verlassen und auf die sehr kleinen Pfeiltasten am rechten Bildrand zielen.

Hat jemand viellleicht noch eine andere Idee, aber ich fürchte da sieht's schlecht aus.

Bei F1 kommt die Hilfe.

Oder habe ich Dich falsch verstanden?

Hallo,

da ich auf eine externe Tastatur umgestiegen bin, fehlt mir das touchpad des Notebooks zum Scrollen sehr (durch einfaches Entlangstreichen).
Ich habe zwar die Tasten 'Bild nach oben' und 'Bild nach unten', aber ich möchte nicht so weit nach oben oder unten springen.

Kann ich Tasten des keyboards zum Scrollen belegen?

Mit Makros hat es nicht geklappt. In der Hilfe heißt es bei 'Makros aufnehmen':
[i]Die folgenden Aktionen werden nicht aufgezeichnet:
Selektionen werden nur aufgezeichnet, wenn diese mit der Tastatur erfolgt (Cursorbewegung), aber nicht, wenn die Maus benutzt wird.[/i]
Das heißt ich kann nicht ein paar Mausklicks auf z.B. die Pfeiltaste nach unten machen und diese Klicks als Makro aufzeichnen.

Gibt es irgendeine andere Möglichkeiten mit der Tastatur zu Srollen, nicht per Maus(klicks)?

Danke!