Ergebnis der Suchanfrage

• Forum: Programmieren allgemein

  AW: Word VBA Zeile zum oberen Rand scrollen

   
    by Amateurprofi, 29. Jun 2023
  @HolgerX, @Ralf,
  Danke funktioniert.
  ' Aktuelle Zeile an oberen Rand scrollen
  ' Das Caret steht am Anfang der ersten Zeile unter der Seitenüberschrift
  Sub ScrollToTop()
  Dim N As Long
  N = 0
  'Do While (N < 50) And (Asc(Selection.Characters.Last) <> 12) ' N<50, falls kein vbFormFeed gefunden wird
  Do While (N < 50) And (Selection.Characters.Last <> vbFormFeed) ' N<50, falls kein...
• Forum: Programmieren allgemein

  AW: Word VBA Zeile zum oberen Rand scrollen

   
    by Amateurprofi, 29. Jun 2023
  Danke Ralf.
  Ist leider nicht das, was ich suche.
  Ich möchte nicht zum Anfang des Dokuments springen, das wäre ja mit Ctrl-Pos1 leicht zu machen.
  Was ich möchte ist, das die Zeile, in der das Eingabe Caret steht, so gescrollt wird, dass diese Zeile am oberen Rand des Fensters steht.
  
  Hintergrund:
  Ich habe z.Z. ein Dokument mit > 700 Seiten, das als Source für den Microsoft Help Workshop...
• Forum: Programmieren allgemein

  AW: Word VBA Zeile zum oberen Rand scrollen

   
    by Amateurprofi, 27. Jun 2023
  Wirklich niemand 'ne Idee?
• Forum: Programmieren allgemein

  Word VBA Zeile zum oberen Rand scrollen

   
    by Amateurprofi, 23. Jun 2023
  Ich möchte die Zeile in einem Dokument, in der das Eingabe Caret steht, an den oberen Rand des Fensters scrollen.
  Mein Ansatz
  Dim Start As Long
  Start = Selection.Start
  Do While Not (Start ist am oberen Rand)
  Selection.Move Unit:=wdLine, Count:=1
  Loop
  
  Problem:
  Wie kann ich ermitteln, ob sich Start am oberen Rand befindet?