WD2000: Bagaimana untuk menyisipkan blok kanan Caption sebelah persamaan

• Persamaan dan keterangan yang kanan-blok,
  
  

                                          y = mx + b ( 1 )
  						

  -atau-
• Persamaan berpusat dan keterangan kanan-blok,
  
  

                        y = mx + b                   ( 1 )
  						

  -atau-
• Persamaan selaras kiri dan keterangan selaras kanan.
  
  

   y = mx + b                                        ( 1 )
  						

Kembali ke atas

Kembali ke atas

Langkah 1: Menyiapkan keterangan

1. Di Microsoft Word, pada Masukkan menu, klik Keterangan.
2. Klik Label baru.
3. Dalam Label Ketik jenis pembukaan kurung.
4. Klik Oke.
5. Dalam Keterangan kotak, di sebelah kanan nomor, jenis ruang, dan kemudian ketik penutup kurung.
6. Klik Oke.

1. Pada Masukkan menu, klik Keterangan.
2. Perubahan Label kotak untuk pembukaan kurung.
3. Dalam Keterangan kotak, di sebelah kanan ada keterangan, jenis ruang, dan kemudian ketik penutup kurung.
4. Klik Oke.

Kembali ke atas

Langkah 2: Menyelaraskan persamaan dan keterangan

Metode 1: Bagaimana untuk mengatur hak-blok persamaan dan Caption nomor

1. Pada Masukkan menu, klik Keterangan.
2. Dalam Label Daftar, pilih kurung terbuka. Dalam Keterangan kotak, ketik ruang, ketik penutup kurung, dan kemudian klik Oke.
3. Dalam dokumen Word, memindahkan titik penyisipan ke bagian awal baris, sebelum judul.
4. Mengatur selaras kanan tab di margin kanan. Sebagai contoh, jika margin kanan enam inci dari margin kiri, menetapkan tab kanan-blok di enam inci dengan melakukan hal berikut:
   1. Pada Format menu, klik Tab.
   2. Dalam Tab berhenti posisi kotak, jenis 6.
   3. Di bawah Kesejajaran, klik Kanan, lalu klik Oke.
5. Tekan tombol TAB untuk bergerak judul ke tepi kanan halaman.
6. Masukkan persamaan dalam dokumen.

Metode 2: Cara menetapkan selaras kiri persamaan

1. Jalur baru, kosong, masukkan persamaan.
2. Keluar dari Editor persamaan dengan mengklik di mana saja di daerah dokumen.
3. Tekan tombol TAB, dan kemudian masukkan keterangan.
4. Pilih seluruh baris yang berisi persamaan dan keterangan. PadaTabel menu, klik Mengkonversi teks ke tabel. Pemilihan dikonversi ke dua kolom tabel.
5. Menghapus perbatasan di meja dengan melakukan hal berikut:
   1. Memindahkan titik penyisipan ke setiap sel tabel. Pada Tabel menu, titik Pilih, lalu klik Tabel.
   2. Pada Format menu, klik Perbatasan dan Shading.
   3. Di bawah Pengaturan, klik Tidak Ada.
   4. Klik Oke.
6. Pilih sel tabel yang berisi judul, dan kemudian klik Rata kanan tombol pada Pemformatan Toolbar.

Metode 3: Cara menetapkan persamaan pusat-blok

1. Jalur baru, kosong, tekan TAB kunci, dan kemudian masukkan persamaan.
2. Keluar dari Editor persamaan dengan mengklik di mana saja di daerah dokumen.
3. Tekan TAB kunci, dan kemudian masukkan keterangan.
4. Pilih seluruh baris yang berisi persamaan dan keterangan. PadaTabel menu, klik Mengkonversi teks ke tabel. Pemilihan dikonversi ke tiga kolom tabel.
5. Menghapus perbatasan di meja dengan melakukan hal berikut:
   1. Memindahkan titik penyisipan ke setiap sel tabel. Pada Tabel menu, titik Pilih dan klik Tabel.
   2. Pada Format menu, klik Perbatasan dan Shading.
   3. Di bawah Pengaturan, klik Tidak Ada.
   4. Klik Oke.
6. Pilih sel tabel yang mengandung persamaan, dan klik Pusat tombol pada Pemformatan Toolbar.
7. Pilih sel tabel yang berisi keterangan, dan klik Rata kanan tombol pada Pemformatan Toolbar.

Metode 4: Cara membuat Microsoft Visual Basic untuk aplikasi makro

Sub CaptionRight()

   Dim Align As Integer
   On Error GoTo Bye

   ' If insertion point is in a table, show message and end macro.
   If Selection.Information(wdWithInTable) Then
      MsgBox "You are in a table. Please move outside of the " _
         & "table to run this macro.", vbInformation
      GoTo Bye
   End If

   ' Ask whether to center or left align equation.
   Align = MsgBox("Would you like the Equation to be " & "centered? " _
      & "(Selecting No will left-align the " & "Equation.)", vbYesNoCancel)

   If Align > 2 Then
      Selection.InsertParagraphAfter
      Selection.Collapse Direction:=wdCollapseEnd
      W = ActiveDocument.PageSetup.PageWidth
      L = ActiveDocument.PageSetup.LeftMargin
      R = ActiveDocument.PageSetup.RightMargin
      RTMarg = W - R - L
      CaptionLabels.Add Name:="("

      If Align = 6 Then
         tblT1 = Selection.Tables.Add(Selection.Range, 1, 3)
      Else
         tblT1 = Selection.Tables.Add(Selection.Range, 1, 2)
      End If

      tblT1.Select

      With Selection
         ' Do this if Center-align selected.
         If Align = 6 Then
            .Columns(1).Cells.Width = 50.4
            .Columns(3).Cells.Width = 50.4
            .Columns(2).Cells.Width = RTMarg - 100.8

            'Represents 1.5" in Points
         Else
         ' Do this if Left-align selected.
            .Columns(2).Cells.Width = 50.4
            .Columns(1).Cells.Width = RTMarg - 50.4
            'Represents .75" in Points
         End If

         .InsertCaption Label:="(", _
            Position:=wdCaptionPositionBelow, Title:=" )"
         .HomeKey unit:=wdLine, Extend:=wdExtend
         .Cut
         .MoveRight unit:=wdCharacter, Extend:=wdExtend
         .Delete
         .MoveLeft unit:=wdCharacter, Count:=2
         .Paste
         .Rows(1).Select

        ' Set the table borders to None.
         For Each x In Selection.Borders
            x.LineStyle = wdLineStyleNone
         Next x

         .Borders.Shadow = False
         .Cells(9 - Align).Select
         .ParagraphFormat.Alignment = wdAlignParagraphRight
         .Cells(1).VerticalAlignment = wdCellAlignVerticalCenter
         .Font.Bold = True
         .Rows(1).Select

         If Align = 6 Then
            .Cells(2).Select
            .ParagraphFormat.Alignment = wdAlignParagraphCenter
            .InlineShapes.AddOLEObject ClassType:="Equation.3", _
               FileName:="", LinkToFile:=True, DisplayAsIcon:=False
         Else
            .Collapse
            .InlineShapes.AddOLEObject ClassType:="Equation.3", _
               FileName:="", LinkToFile:=True, DisplayAsIcon:=False
         End If
      End With
   End If

Bye:

End Sub
				

Kembali ke atas