![]() |
#3
|
|||
|
|||
![]() 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 |
|
![]() |
||||
Thread | Thread Starter | Forum | Replies | Last Post |
Increase Sentence Font at cursor position | ilcaa72 | Word VBA | 8 | 02-20-2014 08:40 AM |
![]() |
savo | Excel | 1 | 02-16-2014 07:39 PM |
![]() |
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 |