สล็อตเว็บตรง

สล็อตเว็บตรง

สล็อตเว็บตรง

สล็อตเว็บตรง

Otevření Word dokumentu na poslední editované pozici Otevření Word dokumentu na poslední editované pozici « Slasti a strasti života na moři

Otevření Word dokumentu na poslední editované pozici

Pracoval jsem posledních pár dní s větším dokumentem ve Wordu a přestalo mě bavit hledat, kde jsme skončil. Napadlo mě napsat makro, ale naštěstí tak už někdo učinil. Potíž je ale v tom, že toto makro zanechá za sebou v dokumentu několik viditelných znaků (v tomto případě 14 asterixů ), které tam samozřejmě nechceme…

Trošku jsem to makro upravil, takže nyní jsou znaky této „záložky“ schované:

Sub AutoOpen()

‚ GoToMyBookmarkText


On Error Resume Next

Selection.Find.ClearFormatting
With Selection.Find
.Text = „**************“
.Replacement.Text = „“
.Forward = True
.Wrap = wdFindContinue
.Format = True
.Font.Hidden = True
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
If Selection = „**************“ Then
Selection.Delete
End If

End Sub
Sub AutoClose()

‚ CreateMyBookmark


Selection.TypeText Text:=“**************“
Selection.MoveLeft Unit:=wdCharacter, Count:=14, Extend:=wdExtend
With Selection.Font
.Hidden = True
End With
End Sub

Pak mě ale napadlo, proč nepoužít záložky, které ve Wordu existují. Zdrojový kód makra je tak mnohem jednodušší, nemluvě o čistotě vzniklého dokumentu.

K nainstalování makra je třeba několika jednoduchých kroků (mám Word 2007, čili konkrétní kroky se mohou trochu lišit v jiných verzích. Mám pouze anglickou verzi Wordu, takže kroky dole jsou přeloženy z angličtiny, možná nepřesně):

  1. na záložce Zobrazení otevřete dialog Marka
  2. klikněte na Vytvořit. Otevře se nové okno, najeďte kursorem na konec.
  3. skopírujte a vložte kód makra dole

Sub AutoClose()
‚ Auto set last cursor position bookmark
With ActiveDocument.Bookmarks
.Add Range:=Selection.Range, Name:=“MyLastKnownPosition“
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
End Sub

Sub AutoOpen()
‚ Find last cursor position bookmark, set cursor, and delete the bookmark
If ActiveDocument.Bookmarks.Exists(„MyLastKnownPosition“) = True Then
Selection.GoTo What:=wdGoToBookmark, Name:=“MyLastKnownPosition“
ActiveDocument.Bookmarks(„MyLastKnownPosition“).Delete
With ActiveDocument.Bookmarks
.DefaultSorting = wdSortByName
.ShowHidden = False
End With
End If

End Sub

Doufám, že vám tato dvě makra ušetří trochu času a nervů!

Zůstaňte ještě chvilku, napište nám něco...