Mrrrr's Forum (VIEW ONLY)
Un forum care ofera solutii pentru unele probleme legate in general de PC. Pe langa solutii, aici puteti gasi si alte lucruri interesante // A forum that offers solutions to some PC related issues. Besides these, here you can find more interesting stuff.
|
Lista Forumurilor Pe Tematici
|
Mrrrr's Forum (VIEW ONLY) | Reguli | Inregistrare | Login
POZE MRRRR'S FORUM (VIEW ONLY)
Nu sunteti logat.
|
Nou pe simpatie:
Profil draghici_elena2000
 | Femeie
24 ani
Dambovita
cauta Barbat
24 - 62 ani |
|
TonyTzu
Moderator
 Inregistrat: acum 12 ani
Postari: 252
|
|
Source and more ways to do it:
link gone: http://word.herbtyson.com/?p=3
In Office Word 2013 this is done automatically or a message pops up and allows you to do that.
But in older Office Word versions there is a simple keyboard shortcut.
After you open the document it starts with page 1.
You have to press SHIFT+F5 to go to the last place you edited (and saved).
|
|
| pus acum 9 ani |
|
Mrrrr
AdMiN
 Inregistrat: acum 17 ani
Postari: 2186
|
|
This is by default an option in newer Office versions - like Word 2013+ I think, or maybe even from Word 2007.
An alternative would be to create a harmless bookmark before closing the document by clicking a QAT button.
Then after opening the document at a later time, click that button again and selecting that bookmark.
My code below also deletes the bookmark after selecting it so that you can add it in the next place you edit.
You can add it in middle of a sentence or word, no problem.
Sub Ai_ramas_la_GoTo()
Dim bkmTXT As String
bkmTXT = "AICI"
If ActiveDocument.Bookmarks.Exists(bkmTXT) = True Then
ActiveDocument.Bookmarks(bkmTXT).Select
ActiveDocument.Bookmarks(bkmTXT).Delete
Else
ActiveDocument.Bookmarks.Add Name:=bkmTXT, Range:=Selection.Range
End If
End Sub
|
_______________________________________
|
|
| pus acum 3 ani |
|
|
TRaP
Moderator
Inregistrat: acum 6 ani
Postari: 739
|
|
You can use a UserForm to either go to the previous bookmark or delete the previous bookmark and create a new one at the current cursor position:
Create a UserForm named BkmGoTo with 3 command buttons named cmdGoTo, cmdNew and cmdDelete.
Private Sub UserForm_Activate()
'Position approximately in the center of currently open Word document
Me.Top = Application.Top + (Application.UsableHeight / 2)
Me.Left = Application.Left + (Application.UsableWidth / 2)
End Sub
Private Sub cmdGoTo_Click()
Dim bkmTXT1 As String
bkmTXT1 = "AICI"
ActiveDocument.Bookmarks(bkmTXT1).Select
Unload BkmGoTo
End Sub
Private Sub cmdNew_Click()
Dim bkmTXT2 As String
bkmTXT2 = "AICI"
Dim bkm As Range
If ActiveDocument.Bookmarks.Exists(bkmTXT2) = True Then
Set bkm = Selection.Range
ActiveDocument.Bookmarks(bkmTXT2).Delete
bkm.Select
ActiveDocument.Bookmarks.Add Name:=bkmTXT2, Range:=Selection.Range
Else
ActiveDocument.Bookmarks.Add Name:=bkmTXT2, Range:=Selection.Range
End If
Unload BkmGoTo
End Sub
Private Sub cmdDelete_Click()
Dim bkmTXT3 As String
bkmTXT3 = "AICI"
ActiveDocument.Bookmarks(bkmTXT3).Delete
Unload BkmGoTo
End Sub
|
Then the following code in a module in order to add the UserForm to your QAT or ribbon:
Sub Bkmrk_Go_To()
BkmGoTo.Show (False)
End Sub
|
|
|
| pus acum 3 ani |
|