changing cursor position

[anand]

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]

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.

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

[gmaxey]

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