changing cursor position

anand · #1 06-18-2015, 09:50 PM

I am running a loop to check starting character of each line. while doing this i require that current cursor position also moves to starting letter of each line.
Can anyone suggest me the VBA code in Word which also changes cursor position as loop executes.

gmayor · #2 06-19-2015, 01:19 AM

What exactly are you trying to check and why?
What do you mean by a 'line'. Lines in Word are volatile entities created by text flow. Do you perhaps mean 'paragraph'?
There is no reason to 'move the cursor, to establish what the first character of a paragraph is, but if you insist, the following will work for the document body.

Code:

Dim oPara As Paragraph
For Each oPara In ActiveDocument.Paragraphs
    oPara.Range.Characters(1).Select
    MsgBox oPara.Range.Characters(1)
Next oPara

gmaxey · #3 06-19-2015, 05:18 AM

Code:

Sub ScratchMacro()
'A basic Word macro coded by Greg Maxey
Dim oRng As Word.Range
  Selection.HomeKey Unit:=wdStory
  Do
    Selection.EndKey Unit:=wdLine
    If Selection.End >= ActiveDocument.Content.End - 1 Then
      Exit Do
    End If
    Set oRng = ActiveDocument.Bookmarks("\Line").Range
    With oRng
      .Collapse wdCollapseStart
      .MoveEnd wdCharacter, 1
      .Select
      'Do something with oRng
    End With
    Selection.MoveDown Unit:=wdLine
  Loop
lbl_Exit:
  Exit Sub
End Sub

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Increase Sentence Font at cursor position	ilcaa72	Word VBA	8	02-20-2014 08:40 AM
Changing Cursor display?	savo	Excel	1	02-16-2014 07:39 PM
Add multiple rows to Excel 2010 table at cursor position	C J Squibb	Excel Programming	12	11-07-2013 07:35 AM
Displaying cursor position within cell	MiamiTom	Excel	0	11-18-2011 09:02 AM
Retrieve position of Cursor - x & y positions	SDondeti	PowerPoint	0	05-19-2011 11:39 AM