Si të rritet teksti në Word 2016

Kur jeni duke shkruar në Word 2016, veçanërisht nëse jeni duke punuar në një punim akademik apo edhe një vepër të madhe artistike, mund të dëshironi të nxirrni pjesë të mëdha teksti në vend që t'i fshini ato. Për të ngjitur tekstin, ju e zgjidhni atë dhe më pas e zhvendosni poshtë në fund të dokumentit. Kur të "mbaroni" me shkrimin, rishikoni pikat tuaja për të parë nëse diçka ia vlen të kurseni.

Më poshtë është kodi për një makro spike_text që automatizon procesin:

Nën spike_text()

'

' spike_text Macro

' Zhvendos tekstin e zgjedhur në fund të dokumentit

'

If Selection.Type = wdSelectionNormal Pastaj

Selection.Cut

Selection.EndKey Unit:=wdStory

Selection.TypeParagraph

Selection.Paste

Application.GoBack

Application.GoBack

Else

MsgBox "Nothing to spike"

Fund If

End Sub

Kjo makro përmban një strukturë if-else . Testi if përcakton nëse teksti është zgjedhur. Nëse po, teksti pritet dhe ngjitet në fund të dokumentit. Kur teksti nuk zgjidhet, pjesa tjetër e ekuacionit shfaq një kuti mesazhi me tekstin "Asgjë për të shënuar".

Kjo makro u regjistrua fillimisht dhe përdori këto goditje:

Ctrl+X

Ctrl + Fund

Ctrl+V

Shift+F5, Shift+F5
Shkurtorja e tastierës Shift+F5 ju kthen në vendndodhjen e mëparshme të redaktimit në dokument.

Pas regjistrimit të goditjeve të tasteve, struktura if-else u shtua për të siguruar që makroja të mos shfaqte një mesazh të shëmtuar gabimi kur teksti nuk zgjidhet. Ky proces është pjesë e programimit mbrojtës, ku parashikoni që jo çdo makro të fillojë në kushte ideale. Në këtë rast, një kusht jo ideal është kur teksti nuk zgjidhet.