VBA, cursor position in word

cursor position in word

Author	Message
frank scherldema #1 / 6	cursor position in word Hello, First i need to save the cursor in word I do this by: xp = Selection.Information(wdFirstCharacterColumnNumber) yp = Selection.Information(wdFirstCharacterLineNumber) Then i process the word text, losing it's position, but afterwards i have to set the position back to xp and yp. Anyone knows how to do that? Thanks, Frank Scheldeman
Sun, 27 Jun 2004 19:03:51 GMT

Bo Hansso #2 / 6	cursor position in word Hi Frank Another way to do this is to insert a bookmark where you are positioned and then return to bookmark (preferably also deleting it after return). /BosseH Quote: > Hello, > First i need to save the cursor in word > I do this by: > xp = Selection.Information(wdFirstCharacterColumnNumber) > yp = Selection.Information(wdFirstCharacterLineNumber) > Then i process the word text, losing it's position, > but afterwards i have to set the position back to xp and yp. > Anyone knows how to do that? > Thanks, > Frank Scheldeman
Sun, 27 Jun 2004 19:41:18 GMT

frank scherldema #3 / 6	cursor position in word Do you have an example of how to do this?? Thanks in advance.... Frank. Quote: >Hi Frank >Another way to do this is to insert a bookmark where you are positioned and >then return to bookmark (preferably also deleting it after return). >/BosseH >> Hello, >> First i need to save the cursor in word >> I do this by: >> xp = Selection.Information(wdFirstCharacterColumnNumber) >> yp = Selection.Information(wdFirstCharacterLineNumber) >> Then i process the word text, losing it's position, >> but afterwards i have to set the position back to xp and yp. >> Anyone knows how to do that? >> Thanks, >> Frank Scheldeman
Sun, 27 Jun 2004 20:23:46 GMT

Bo Hansso #4 / 6	cursor position in word Mark the place where you are: Selection.Bookmarks.Add Name:="MyPos" Do whatever you want.... Return to your original place: For Each BM In ActiveDocument.Bookmarks If BM.Name = "MyPos" Then Selection.GoTo What:=wdGoToBookmark, Name:=BM.Name BM.Delete End If Next BM /BosseH Quote: > Do you have an example of > how to do this?? > Thanks in advance.... > Frank. > >Hi Frank > >Another way to do this is to insert a bookmark where you are positioned and > >then return to bookmark (preferably also deleting it after return). > >/BosseH > >> Hello, > >> First i need to save the cursor in word > >> I do this by: > >> xp = Selection.Information(wdFirstCharacterColumnNumber) > >> yp = Selection.Information(wdFirstCharacterLineNumber) > >> Then i process the word text, losing it's position, > >> but afterwards i have to set the position back to xp and yp. > >> Anyone knows how to do that? > >> Thanks, > >> Frank Scheldeman
Sun, 27 Jun 2004 23:38:42 GMT

Perr #5 / 6	cursor position in word Hi Bo, Quote: > For Each BM In ActiveDocument.Bookmarks > If BM.Name = "MyPos" Then > Selection.GoTo What:=wdGoToBookmark, Name:=BM.Name > BM.Delete > End If > Next BM This will do exactly the same: With ActiveDocument.Bookmarks("MyPos") .Select .Delete End With Kind regards, Perry Quote: > Mark the place where you are: > Selection.Bookmarks.Add Name:="MyPos" > Do whatever you want.... > Return to your original place: > For Each BM In ActiveDocument.Bookmarks > If BM.Name = "MyPos" Then > Selection.GoTo What:=wdGoToBookmark, Name:=BM.Name > BM.Delete > End If > Next BM > /BosseH > > Do you have an example of > > how to do this?? > > Thanks in advance.... > > Frank. > > >Hi Frank > > >Another way to do this is to insert a bookmark where you are positioned > and > > >then return to bookmark (preferably also deleting it after return). > > >/BosseH > > >> Hello, > > >> First i need to save the cursor in word > > >> I do this by: > > >> xp = Selection.Information(wdFirstCharacterColumnNumber) > > >> yp = Selection.Information(wdFirstCharacterLineNumber) > > >> Then i process the word text, losing it's position, > > >> but afterwards i have to set the position back to xp and yp. > > >> Anyone knows how to do that? > > >> Thanks, > > >> Frank Scheldeman
Mon, 28 Jun 2004 00:08:23 GMT

Bo Hansso #6 / 6	cursor position in word Hi Perry Sure, a more elegant way of doing it ! /BosseH Quote: > Hi Bo, > > For Each BM In ActiveDocument.Bookmarks > > If BM.Name = "MyPos" Then > > Selection.GoTo What:=wdGoToBookmark, Name:=BM.Name > > BM.Delete > > End If > > Next BM > This will do exactly the same: > With ActiveDocument.Bookmarks("MyPos") > .Select > .Delete > End With > Kind regards, > Perry > > Mark the place where you are: > > Selection.Bookmarks.Add Name:="MyPos" > > Do whatever you want.... > > Return to your original place: > > For Each BM In ActiveDocument.Bookmarks > > If BM.Name = "MyPos" Then > > Selection.GoTo What:=wdGoToBookmark, Name:=BM.Name > > BM.Delete > > End If > > Next BM > > /BosseH > > > Do you have an example of > > > how to do this?? > > > Thanks in advance.... > > > Frank. > > > >Hi Frank > > > >Another way to do this is to insert a bookmark where you are positioned > > and > > > >then return to bookmark (preferably also deleting it after return). > > > >/BosseH meddelandet > > > >> Hello, > > > >> First i need to save the cursor in word > > > >> I do this by: > > > >> xp = Selection.Information(wdFirstCharacterColumnNumber) > > > >> yp = Selection.Information(wdFirstCharacterLineNumber) > > > >> Then i process the word text, losing it's position, > > > >> but afterwards i have to set the position back to xp and yp. > > > >> Anyone knows how to do that? > > > >> Thanks, > > > >> Frank Scheldeman
Mon, 28 Jun 2004 14:47:07 GMT

Page 1 of 1

[ 6 post ]