Cara Membuat Daftar Isi dengan References di Ms.Word

Seperti buat laporan , makalah, dan sebagainya tanpa harus repot memberi titik dan no halaman pada daftar isi:

1.Langkah pertama adalah membukak microsoft office word new document membuat isi documen dengan pertama-tama “create a style pada menubar menubar “home” seperti gambar di bawah ini:

Gambar 1.1 tampilan style

2.Langkah kedua adalah tulis judul style kemudia modify style sesuai materi seperti gambar di bawah ini:

Gambar 1.2 tampilan modify style

3.Langkah ketia adalah menyetel style seperti menyetel font, menyetel paragraph, numering seperti gambar di bawah ini:

Gambar 1.3 tampilan setelan style

4.Langkah keempat adalah klik style kemudian tulis judul materi dan judul lainnya seperti gambar di bawah ini:

Gambar 1.4 tampilan document

5.Langkah kelima adalah buat no halaman document dengan mengklik 2 kali pada unjung bawah atau atas document kemudian klik “ page number” lalu “format page number” dan akan muncul gambar seperti gambar di bawah ini:

Gambar 1.5 tampilan page number

6.Langkah keenam adalah format number atau menyesuaikan number pada halaman document dengan setel number format kemudian klik “start at” lalu klik “ok” seperti gambar di bawah ini:

Gambar 1.6 tampilan format page number

7.Langkah ketujuh adalah mengisi number pada halaman dengan mengklik “page number” kemudian “bottom of page “ lalu klik page number seperti gambar di bawah ini:

Gambar 1.7 tampilan page number

8.Langkah kedelapan adalah sama dengan langkah kelima, keenam dan ketujuh bedanya hanya dengan melakukan “next page” kemudia klik 2 kali pada ujung document dan mencentang different first page dan memnganti number format, lalu klik “continue from previous saction” dan klik “ok” seperti gambar di bawah ini:

Gambar 1.8 tampilan different first page

Gamabr 1.9 tampilan continue from previous section

9.Langkah kesembilan adalah dengan klik “References” pada menubar kemudian klik “table of contents” dan pilih “custom table of contents” seperti gambar di bawah ini:

Gambar 1.10 tampilan references

10.Langkah kesepuluh adalah klik “Options” dengan menyetel daftar isi seperti gambar di bawah ini:

Gamabar 1.11 tampilan option

11.Langkah kesebelas adalah mendesain dengan menaruh no bab atau sub bab sesuai urutan dengan level tempat daftar isi . level 2, atau level 2 seperti gambar di bawah ini:

Gambar 1.12 tampilan level daftar isi

12.Langkah keduabelas adalah akan muncul seperti gambar di bawah ini:

Continue reading →

Membuat Maillings Pada Ms.word

Mail Merge adalah suatu tools yang terdapat pada menu bar “Mailings” pada Microsoft Word. Dimana dapat kita manfaatkan untuk membuat database dokumen. Misalkan kita membuat undangan untuk 100 orang. Bukan berarti kita harus menulis surat sejumlah 100 buah untuk 100 undangan. Kita cukup membuat satu buah surat, dan untuk mengisikan nama dan alamat yang berbeda untuk tiap para undangan. belajar membuat mail merge. Langkah 1

Ketikan Surat, sebagai contoh singkat seperti di bawah :
Kepada :
Alamat :
Di harapkan kehadiran pada :
Pkl  : 16.00 WITA
DI Gor Lila Bhuana
Atas perhatinnya, kami ucapkan terimakasih.

Hormat kami

Panitia

(———–)

Langkah 2

(membuat mail merge)
–  Klik menu bar Mailling
–  Klik Start Mail Merge

- Pilih letters

–  Kemudian kita Klik Select Recipients

– Pilih Type New List

– Kemudian akan muncul Windows seperti dibawah : 

– Kemudian kita klik tombol “Customize Columns…”, karena kita hanya membutuhkan 2 field, yaitu Nama dan Alamat

–  Setelah kita klik tombol “Customize Columns…”, akan muncul kotak dialog seperti di bawah, 

– Tugas kita disini ilaha menghapus semua field yang ada, dengan cara klik tombol “Delete”, dan akan muncul dialog pertanyaan seperti gamabr dibawah:

-klik “yes” Dan kita bisa lihat bahwa field “Title” telah hilang, dan lakukan hal tersebut hingga field 

kosong, seperti gambar di atas

– Kemudian untuk mengisikan field “Nama” dan “Alamat”, kita klik tombol “Add”. Lihat gambar di bawah ini

– Dan seterusnya hingga field “Alamat”, dan klik OK

–  Maka akan muncul dialog seperti diatas

– Di dialog ini, kita akan mengisikan data atau nama dan alamt orang yang akan kita undang, pilih “New  Entry” (sebanyak kebutuhan kita), lalu klik OK 

– Kemudian kita harus simpan data yang sudah kita inputkan, untuk nama terserah anda.

– Setelah selesai kita membuat data, maka kita menginjak langkah selanjutnya. Langkah 3

– Menjalankan mail merge kita, lihat gambar di bawah, 

– Posisikan kursor kita di isian Kepada, dan kita klik tombol “Insert Merge Field”, pilih “Nama”, dan pilih “Alamat” untuk isian alamat, maka akan muncul otomatis seperti terlihat gambar dibawah, 

– Kemudian untuk menampilkan data, kita Klik tombol “Preview Result”, seperti gambar di bawah,

– Maksud angka satu adalah, merupakan data ke-1, dan untuk melihat berikutnya, klik tombok Next, Lihat dibawah ini

Dan undangan siap di print tanpa harus merubah atau mengulangi penulisan surat.

Continue reading →

Cara Membuat Soal Kuis dengan scor di Ms.PPT

Berikut ini langkah-langkahnya:

1. Pastikan anda sudah memiliki Arsip soal, sehingga Anda cukup meng-copy paste saja soal tersebut ke dalam slide.

2. Bukalah Ms Powerpoint dan buatlah Slide baru.

• Bukalah Jendela Macro dengan menekan tombol Alt + F11 secara bersamaan.

• Pilih menu Insert, Module dan Copy-paste lah script VB berikut:

Dim NAMA, NIM As String
Dim NILAI, N1, N2, N3, N4, N5, N6, N7, N8, N9, N10 As Double
Dim KON, PRED As String

Sub MULAI()
N1 = 0
N2 = 0
N3 = 0
N4 = 0
N5 = 0
N6 = 0
N7 = 0
N8 = 0
N9 = 0
N10 = 0
NAMA = InputBox("MASUKKAN TERLEBIH DAHULU NAMA ANDA", "INPUT NAMA")
NIM = InputBox("MASUKKAN TERLEBIH DAHULU NIM ANDA", "INPUT NIM")
ActivePresentation.SlideShowWindow.View.Next
End Sub

Sub N1B()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N1 = 10
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N1S()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N1 = 0
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N2B()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N2 = 10
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N2S()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N2 = 0
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N3B()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N3 = 10
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N3S()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N3 = 0
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N4B()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N4 = 10
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N4S()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N4 = 0
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N5B()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N5 = 10
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N5S()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N5 = 0
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N6B()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N6 = 10
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N6S()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N6 = 0
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N7B()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N7 = 10
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N7S()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N7 = 0
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N8B()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N8 = 10
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N8S()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N8 = 0
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N9B()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N9 = 10
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N9S()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N9 = 0
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N10B()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N10 = 10
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub N10S()
KON = MsgBox("Apakah " & NAMA & " Yakin dengan jawabannya?", vbYesNo, "Konfirmasi Jawaban")
If KON = vbYes Then
N10 = 0
ActivePresentation.SlideShowWindow.View.Next
End If
End Sub

Sub KELUAR()
KON = MsgBox("MOHON DICEK LAGI JAWABAN " & NAMA & " SELAGI MASIH ADA WAKTU", vbYesNo, "KONFIRMASI KELUAR")
If KON = vbNo Then
ActivePresentation.SlideShowWindow.View.Exit
End If
End Sub

Sub TAMPIL()
NILAI = N1 + N2 + N3 + N4 + N5 + N6 + N7 + N8 + N9 + N10
ActivePresentation.SlideShowWindow.View.GotoSlide (12)
With ActivePresentation.Slides(12)
If NILAI >= 75 Then
.Shapes(4).TextFrame.TextRange.Text = "Selamat " & NAMA & " Anda LULUS!"
Else
.Shapes(4).TextFrame.TextRange.Text = "Mohon maaf  " & NAMA & " Anda TIDAK LULUS"
End If
.Shapes(1).TextFrame.TextRange.Text = "NAMA = " & NAMA
.Shapes(2).TextFrame.TextRange.Text = "NIM = " & NIM
.Shapes(3).TextFrame.TextRange.Text = "NILAI = " & NILAI
End With
With ActivePresentation.Slides(12)
.Shapes(1).TextFrame.TextRange.Text = "NAMA = " & NAMA
.Shapes(2).TextFrame.TextRange.Text = "NIM = " & NIM
.Shapes(3).TextFrame.TextRange.Text = "NILAI = " & NILAI
If NILAI >= 75 Then
.Shapes(4).TextFrame.TextRange.Text = "Selamat " & NAMA & " LULUS!"
Else
.Shapes(4).TextFrame.TextRange.Text = "Mohon maaf  " & NAMA & " TIDAK LULUS"
End If
End With
End Sub

Sub TestMe()
    SimpanSlide (13), "d:" & NAMA & ".pptx"
    ActivePresentation.SlideShowWindow.View.GotoSlide (13)
End Sub

Sub SimpanSlide(noSlide As Long, namaFile As String)

    Dim y As Presentation
    Dim x As Long

    ActivePresentation.SaveCopyAs namaFile
    Set y = Presentations.Open(namaFile, , , False)

    For x = 1 To noSlide - 1
        y.Slides(1).Delete
    Next

    For x = y.Slides.Count To 2 Step -1
        y.Slides(x).Delete
    Next

    y.Save
    y.Close

End Sub

• Sesuaikan Score soal, dengan mengganti angka 1, pada Nilai=nilai+1.

• Jika sudah, kembali-lah ke halaman Ms Powerpoint anda.
  

3. Pada Slide ke-1 (digunakan untuk menampilkan Informasi tentang kuis), Ketikkan Judul Kuis / Semua Informasi tentang Kuis. Dan pada bagian bawah slide, buatlah Autoshape(tombol) dengan teks di dalamnya “Start Quiz” dengan cara :

• Pilih menu Insert, Shape, Pilih Action Button, Custom. Buatlah bentuk Kotak.

• Selanjutnya akan muncul kotak dialog Action Setting, Pilih  Run Macro, dan pilih “mulai” dan Klik OK.

Non-aktifkan Transisi, dengan menghilangkan tanda Checklist pada pilihan Transition, On mouse click. Hal ini supaya user hanya bisa menjalankan slide dengan menekan tombol “Start Quiz“.

4. Pada Slide ke-2, berisi soal kuis.

• Setiap slide berisi 1 soal kuis.
• Ketikkan Soal kuis yang ke-1 beserta Option-nya.
• Masing- masing Option menempati Autoshape /TextBox yang berbeda. Jadi jika pada 1 soal terdapat 5 Option, maka harus ada Textbox / Autoshape dengan Jawaban didalamnya, sebanyak 5 buah.

Untuk membuat Option, lakukan seperti anda membuat Tombol “START QUIZ” .

• Ketika tampil Kotak dialog Action Setting, pilih :
  • Pilihan Benar, untuk Option Jawaban yang  BENAR
  • Pilihan Salah, untuk Option Jawaban yang SALAH
  

• 1 Soal, hanya berisi 1 jawaban benar selebihnya harus diberi action makro salah.
• Jika sudah, Klik OK.
• Ulangi untuk Option yang lain dengan pilihan Macro yang sesuai (BENAR/SALAH).

5. Ulangi langkah 4 untuk soal kuis yang lain, pada slide berikutnya.

6. Dan Pada Slide terakhir, digunakan sebagai Review kuis atau anda juga bisa memberi tombol “Cek Nilai” untuk melihat hasil nilai kuis (ikuti langkah 3).

• Pada pilihan Run Macro, pilih “Jawab“
• Klik OK.

7. Terakhir simpan file anda. Untuk PowerPoint (2007 dan 2010) simpan dengan format PPTM (PowerPoint Macro – Enabled Presentation)
8. Selesai! Jalankan Kuis dengan menekan Tombol F5.

download file (PDF)
download file (PPT)

Continue reading →

cara membuat hyperlink

1.Cara pertama membuat hyperlink pada powerpoint adalah dengan membuka microsoft office powerpoint kemudian klik “new slide”

2.Cara kedua membuat hyperlink pada PowerPoint adalah mendisain presentasi sesuai keingiinan , dengan klik “DESIGN” pada menu bar kemudian klik “format background” seperti gambar di bawah ini.

3.Cara ketiga membuat hyperlink pada PowerPoint adalah Klik “INSERT” pada menu bar kemudia klik “SHAPES” lalu pilihlah bentuk-bentuk shapes yang anda inginkan. Seperti gambar dibawah ini.

4.Cara keempat membuat hyperlink pada PowerPoint adalah Buat lah bentuk bentuk “kotak” pada halaman presentasi lalu klik kanan “EDIT TEX” lalu isi kotak tersebut dengan tulisan misalnya bab 1.

5. Cara kelima membuat hyperlink pada PowerPoint adalah blok tulisan bab 1 tersebut lalu klik kanan pilih “HYPERLINK” seperti gambar dibawah ini

 6.Cara keenam membuat hyperlink pada PowerPoint adalah akan muncul gambar seperti di bawah ini klik “Place in this document” pilih slide tempat bab 1 berada, seperti gambar ini bab 1 ada di slide 3 klik slide 3 kemudian klik “ok”.

Continue reading →

pengenalan ms.office

PENGERTIAN MICROSOFT OFFICE, MICROSOFT WORD, MICROSOFT EXCEL, MICROSOFT POWERPOINT, MICROSOFT ACCESS.

a. Pengertian Microsoft Office Word.

Gambar 1.5 tampilan ms.office word 2013

Microsoft Word merupakan program aplikasi dari microsoft office yang biasa sering di gunakan untuk pengelolahan teks, pengelolahan dokumen, laporan dan lain sebagainya. sekarang hampir semua lapisan masyarakat menggunakan komputer terutama microsoft office word untuk aktifitasnya, seperti halnya siswa, guru, pekerja, pengusaha, dan hampir semuanya menggunakan office word untuk menunjang aktifitasnya.

Dalam perkembangannya microsoft office (termasuk di dalamnya microsoft word) selalu keluar masing-masing versi untuk pengembangan software office tentunya, yang di antaranya ; Ms office 1998, office 2003, office 2007, office 2010, dan office 2013.

b. Pengertian Microsoft Office Excel.

Gambar 1.6 tampilam ms. Office excel 2013

Microsoft Excel atau Microsoft Office Excel adalah sebuah program aplikasi lembar kerja spreadsheet yang dibuat dan didistribusikan olehMicrosoft Corporation untuk sistem operasi Microsoft Windows dan Mac OS. Aplikasi ini memiliki fitur kalkulasi dan pembuatan grafik yang, dengan menggunakan strategi marketing Microsoft yang agresif, menjadikan Microsoft Excel sebagai salah satu program komputer yang populer digunakan di dalam komputer mikro hingga saat ini. Bahkan, saat ini program ini merupakan program spreadsheet paling banyak digunakan oleh banyak pihak, baik di platform PC berbasis Windows maupun platform Macintosh berbasis Mac OS, semenjak versi 5.0 diterbitkan pada tahun 1993. Aplikasi ini merupakan bagian dari Microsoft Office System, dan versi terakhir adalah versi Microsoft Office Excel 2007 yang diintegrasikan di dalam paketMicrosoft Office System 2007.

C. Pengertian Mirosoft Office PowerPoint.

Gambar 1.7 tampilan ms. Office powerpoint 2013

Microsoft Office PowerPoint adalah sebuah program komputer untukpresentasi yang dikembangkan oleh Microsoft di dalam paket aplikasi kantoran mereka, Microsoft Office, selainMicrosoft Word, Excel, Access dan beberapa program lainnya. PowerPoint berjalan di atas komputer PC berbasissistem operasi Microsoft Windows dan juga Apple Macintosh yang menggunakan sistem operasi Apple Mac OS, meskipun pada awalnya aplikasi ini berjalan di atas sistem operasi Xenix. Aplikasi ini sangat banyak digunakan, apalagi oleh kalangan perkantoran dan pebisnis, para pendidik, siswa, dan trainer. Dimulai pada versi Microsoft Office System 2003, Microsoft mengganti nama dari sebelumnya Microsoft PowerPoint saja menjadi Microsoft Office PowerPoint. Lalu, pada Office 2013, namanya cukup disingkat PowerPoint. Versi terbaru dari PowerPoint adalah versi 15 (Microsoft Office PowerPoint 2013), yang tergabung ke dalam paket Microsoft Office 2013

D. Pengertian Microsoft Office Access.

 Gambar 1.8 tampilam ms. Office access

Microsoft Access adalah suatu program aplikasi basis data komputer relasional yang digunakan untuk merancang, membuat dan mengolah berbagai jenis data dengan kapasitas yang besar.Aplikasi ini menggunakan mesin basis dataMicrosoft Jet Database Engine, dan juga menggunakan tampilan grafis yang intuitif sehingga memudahkan pengguna. Versi terakhir adalah Microsoft Office Access 2007 yang termasuk ke dalam Microsoft Office System 2007.

Microsoft Access dapat menggunakan data yang disimpan di dalam format Microsoft Access, Microsoft Jet Database Engine, Microsoft SQL Server, Oracle Database, atau semua kontainer basis data yang mendukung standar ODBC. Para pengguna/programmer yang mahir dapat menggunakannya untuk mengembangkan perangkat lunak aplikasi yang kompleks, sementara para programmer yang kurang mahir dapat menggunakannya untuk mengembangkan perangkat lunak aplikasi yang sederhana. Access juga mendukung teknik-teknik pemrograman berorientasi objek, tetapi tidak dapat digolongkan ke dalam perangkat bantu pemrograman berorientasi objek.

download di sini

Continue reading →