Cara Menulis Kata 2016 Macros untuk Swap Text Elements - dummies

Saat bekerja dengan dokumen di Word 2016, terutama yang lebih lama, Anda akan menginginkan kemudahan dan fungsionalitas makro yang dapat bertukar kata teks, frasa, atau elemen sekitar Untuk membuat makro, Anda mungkin memerlukan bahasa pemrograman Visual Basic for Applications (VBA), yang luas, kompleks, dan mengintimidasi. Itu berarti memiliki potensi besar, tapi bukan sesuatu yang Anda akan duduk dan belajar di sore yang santai.

Berikut adalah beberapa macro "swapping" untuk membantu Anda memulai dalam menyesuaikan pengalaman Word Anda.

Word swap in Word 2016

Berikut adalah makro praktis yang mungkin Anda gunakan setiap saat. Makro word_swap swap dua kata. Ini memotong kata pertama dan kemudian menempelkannya setelah kata kedua:

Sub word_swap ()

'

' word_swap Makro

'Tukar dua kata, kiri kanan

'

Seleksi. MoveRight Unit: = wdWord, Count: = 1, Perpanjang: = wdExtend

Seleksi. Potong

Seleksi. MoveRight Unit: = wdWord, Count: = 1

Seleksi. Tempel

End Sub

Ketukan ini dicatat untuk membuat makro ini:

Ctrl + Shift + →Kata di sebelah kanan kursor dipilih.
Ctrl + X Kata itu dipotong.
Ctrl + →

Kursor bergerak setelah kata kedua.
Ctrl + V Kata aslinya disisipkan.

Makro kata tidak dapat merekam klik mouse. Bila Anda perlu memilih teks, gunakan tombol kursor plus tombol Shift, atau gunakan tombol F8 (extended selection).

Juga, agar makro ini bekerja, pointer penyisipan harus diposisikan pada awal kata pertama.

Dan / atau kata swap di Word 2016

Makro swap kata lain yang mungkin Anda gunakan sering menggunakan makro and_or_word_swap. Tidak seperti swap kata biasa, tujuannya dengan makro ini adalah menukar kata-kata di kedua sisi konjungsi. Misalnya, mengubah ini atau itu menjadi itu atau ini.

Seperti makro word_swap, makro ini direkam dari masukan keystroke:

Sub and_or_word_swap ()

'

' dan_or_word_swap Makro

'Tukar dua kata dalam satu hubungan Seleksi

'

. MoveRight Unit: = wdWord, Count: = 1, Perpanjang: = wdExtend

Seleksi. Potong

Seleksi. MoveRight Unit: = wdWord, Count: = 1

Seleksi. Tempel

Seleksi. MoveRight Unit: = wdWord, Count: = 1, Perpanjang: = wdExtend

Seleksi. Potong

Seleksi. MoveLeft Unit: = wdWord, Hitung: = 2

Seleksi. Paste

End Sub

Berikut adalah penekanan tombol yang digunakan untuk mencatat makro ini:

Ctrl + Shift + →
Ctrl + X Kata pertama dipotong.
Ctrl + →

Penutup sisipan berhenti di atas sambungan, dan atau atau.
Ctrl + V Kata disisipkan setelah konjungsi.
Ctrl + Shift + →
Ctrl + X Kata setelah konjungsi (sekarang setelah kata pertama yang Anda tempel pada Langkah 4) dipilih dan dipotong.
Ctrl + ← , Ctrl + ←Kursor kembali ke sebelum konjungsi.
Ctrl + V Kata kedua disisipkan.

Efek bersih dari pintasan keyboard ini adalah untuk memotong sebuah kata di satu sisi dan atau atau dan kemudian menempelkan kata di sisi lain. Kemudian kata kedua dipotong dan disisipkan di depan dan atau atau.

Agar makro ini efektif, pointer penyisipan harus berkedip pada awal kata pertama.

Tolak kalimat di Word 2016

Sama seperti Anda bisa menukar dua kata berturut-turut, Anda juga bisa menukar dua kalimat. Makro swap_sentences tidak melakukan hal itu. Dan, seperti pada macro manipulasi teks lainnya, gunakan keyboard - bukan mouse - untuk memilih teks.

Dalam kode berikut, Seleksi. Perluas perintah mewakili menekan tombol F8 pada keyboard. Bila Anda menekan tombol itu tiga kali, sebuah kalimat dipilih.

Sub swap_sentences ()

'

' swap_sentences Macro

'Tukar dua kalimat

'

Seleksi. Perluas

Seleksi. Potong

Seleksi. Perluas

Seleksi. EscapeKey

Seleksi. MoveRight Unit: = wdCharacter, Count: = 1

Seleksi. Paste

End Sub

Berikut adalah penekanan tombol yang direkam untuk membuat swap_sentences makro:

F8, F8, F8 Kalimat saat ini dipilih.
Ctrl + X
F8, F8, F8 Kalimat berikutnya dipilih.
Esc, →

Pemilihan dibatalkan, dan pointer penyisipan ditempatkan pada awal kalimat berikutnya.
Ctrl + V Kalimat pertama disisipkan setelah kalimat kedua.

Saat menjalankan makro ini, pastikan penanda sisipan disetel di suatu tempat dalam kalimat pertama.

Teks header dan footer swap di Word 2016

Teks makro swap_header_footer menukar teks header dan footer dokumen. Anda bisa menyelesaikan proses ini secara manual, namun masalahnya adalah bahwa makro tidak mencatat secara akurat semua tindakan. Jadi, walaupun Anda dapat merekam ketikan dasar, Anda harus kembali ke Editor Visual Basic untuk menyelesaikan makro:

Sub swap_header_footer ()

'

' swap_header_footer Makro

'Teks header / footer Exchange < '

Jika ActiveWindow. Melihat. SplitSpecial wdPaneNone Then

ActiveWindow. Panes (2). Tutup

Akhir Jika

Jika ActiveWindow. ActivePane Melihat. Tipe = wdNormalView atau ActiveWindow. _

ActivePane. Melihat. Ketik = wdOutlineView Then

ActiveWindow. ActivePane Melihat. Type = wdPrintView

End If

ActiveWindow. ActivePane Melihat. SeekView = wdSeekCurrentPageHeader

Seleksi. Pilihan WholeStory

. Potong

ActiveWindow. ActivePane Melihat. SeekView = wdSeekCurrentPageFooter

Seleksi.HomeKey Unit: = wdLine

Seleksi. Tempel

Seleksi. Unit EndKey: = wdLine, Perluas: = wdExtend

Seleksi. Potong

ActiveWindow. ActivePane Melihat. SeekView = wdSeekCurrentPageHeader

Seleksi. Tempel

ActiveWindow. ActivePane Melihat. SeekView = wdSeekMainDocument

End Sub

Efek keseluruhan dari makro ini adalah mengedit header dokumen, memilih dan memotong semua teks itu, lalu beralih ke footer. Begitu berada di footer, teks tajuk disisipkan, lalu teks footer dipilih dan dipotong. Makro beralih kembali ke header dan menempelkan teks footer. Kemudian makro menutup header.