Sukūrus paprastą makrokomandą, tai padaryti yra lengviausužinokite paskutinę redaguotą eilutę „Microsoft Word“. Dabar galite pradėti nuo tos pačios eilutės, kurioje nutraukėte rašymą, vėl atidarę uždarą dokumentą. „Microsoft Word 2010“ leidžia vartotojams rašyti makrokomandas, kad būtų galima integruoti savo funkcijas, kurios bus pritaikytos dokumente.
Norėdami pradėti rašyti tokią funkciją, paleiskite „Microsoft Word 2010“ ir atidarykite dokumentą.

Dabar eikite į Programuotojas skirtukas. (Jei nerandate Programuotojas skirtuką, eikite į Byla meniu spustelėkite Parinktys ir kairiojoje srityje spustelėkite Tinkinkite juostelę, iš dešinės srities įgalinti Programuotojas žymimasis langelis. Spustelėkite Gerai, kad matyti Programuotojas skirtukas ant juostelės).

Dabar spustelėkite Visual Basic.

Visual Basic atsidarys langas, kairėje esančioje srityje spustelėkite „ThisDocument“, „Visual Basic“ pasirodys redaktorius. Nukopijuokite šias kodo eilutes ir įklijuokite į VB redaktorių.
Automatinis atidarymas ()
'
„GoToMyBookmarkText“
'
'
On Error Tęsti toliau
Selection.Find.ClearFormatting
Su Selection.Find
.Text = „**************“
.Replacement.Text = “”
.Pagal = tiesa
.Wrap = wdFindContinue
.Format = Netiesa
.MatchCase = klaidinga
.MatchWholeWord = Netiesa
.MatchWildcards = Netiesa
.MatchSoundsLike = Netiesa
.MatchAllWordForms = Netiesa
Pabaiga su
Selection.Find.Execute
„ActiveWindow.SmallScroll Up“: = 15
Pabaigos poskyris
Automatinis uždarymas ()
'
„Sukurti„ MyBookmark “
'
'
„Selection.TypeText“ tekstas: = „**************“
Pabaigos poskyris

Įklijavę išeikite iš VB redaktoriaus. ir išsaugokite dokumentą kaip Makro įgalinta dokumentas(eiti į Byla meniu ir paspauskite Išsaugoti kaip).

Iš Išsaugoti kaip tipą parinktys, spustelėkite „Word Macro-Enabled Document“ (* .docm), ir spustelėkite Sutaupyti.

Dabar cprarasti „Word“ dokumentą. Atidarius tą patį dokumentą, jūs automatiškai pateksite į paskutinę redaguotą eilutę ir bus rodoma žvaigždutė (*) (tai iš tikrųjų rodo, kad jūs redagavote šią eilutę anksčiau).

[per „TheFreeWindows“]
Komentarai