Makale numarası: 209205 - Son Gözden Geçirme: 23 Ocak 2007 Salı - Gözden geçirme: 4.3

Makrolar, Word'de kullanılabilen yazı tiplerinin bir listesini oluşturmak için

İngilizce ve Türkçe'yi yan yana görüntülemeBuraya tıklayarak İngilizce ve Türkçe'yi yan yana görüntüleyebilirsiniz.
Otomatik TercümeOtomatik tercüme makalelerin ne olduğunu açıklayan yazıyı okumak için buraya tıklayın
Bu makalenin geçerli olduğu ürünleri görün.
Sistem İpucuBu makale, kullandığınızdan farklı bir işletim sistemine yöneliktir. Sizinle ilgili olmayabilecek makale içeriği devre dışı bırakıldı.
Hepsini aç | Hepsini kapa

Özet

Bu makalede, Microsoft Word için kullanılabilir yazı tiplerinin bir listesini oluşturmak Applications makrolarını Visual Basic içerir ve her yazı tipinin bir örneğini görüntüler.

Bu makroları tarafından oluşturulan yazı tipi listesi Yazdır</a1> iletişim kutusunda seçili yazıcıya bağlıdır.
Üste

Daha fazla bilgi

Microsoft, programlama örneklerini yalnızca gösterim amacıyla sağlar; örtülü veya açık garanti vermez. Buna satılabilirlik veya belirli bir amaca uygunluk zımni garantileri de dahildir, ancak bunlarla sınırlı değildir. Bu makale, gösterilen programlama dilini ve yordamları oluşturmak ve hata ayıklamak amacıyla kullanılan araçları kullanmayı bildiğinizi varsayar. Microsoft destek mühendisleri, belirli bir yordamın işlevselliğinin açıklanmasına yardımcı olabilir, ancak gereksinimlerinizi karşılamaya yönelik olarak ek işlevsellik sağlamak veya yordamlar geliştirmek amacıyla bu örnekleri değiştirmezler.
Applications makrosunu, yeni bir boş belge oluşturur ve kullanılabilir olan her yazı tipinin bir örneğini ekler, Visual Basic aşağıdaki örnek: 
Sub ListFonts()

   Dim varFont As Variant
   ' Speeds macro processing and suppresses display.
   Application.ScreenUpdating = False
   ' Create new document.
   Documents.Add Template:="normal"

   ' Loop through each available font.
   For Each varFont In FontNames
      With Selection
         ' Format for name of font.
         .Font.Name = "times new roman"
         .Font.Bold = True
         .Font.Underline = True
         ' Insert Font name.
         .TypeText varFont
         ' Insert a new paragraph after the Font Name.
         .InsertParagraphAfter
         ' Move to the new paragraph.
         .MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
         ' Format for the font example.
         .Font.Bold = False
         .Font.Underline = False
         .Font.Name = varFont
         ' Enter example text(Alphabetic characters.)
         .TypeText "abcdefghijklmnopqrstuvwxyz"
         ' Insert a new paragraph.
         .InsertParagraphAfter
         ' Move to the new paragraph.
         .MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
         ' Insert example text(Numeric characters.)
         .TypeText "0123456789?$%&()[]*_-=+/<>"
         ' Insert two new paragraphs and move down.
         .InsertParagraphAfter
         .InsertParagraphAfter
         .MoveDown unit:=wdParagraph, Count:=1, Extend:=wdMove
      End With

   Next varFont
   Application.ScreenUpdating = True

End Sub

Aşağıdaki makro, yeni bir boş belge oluşturur, bir tablo oluşturur ve ardından kullanılabilir olan her yazı tipinin bir örneğini ekler: 
Sub ListAllFonts()

Dim J As Integer
Dim FontTable As Table
'Start off with a new document
Set NewDoc = Documents.Add
'Add a table and set the table header
Set FontTable = NewDoc.Tables.Add(Selection.Range, FontNames.Count + 1, 2)
With FontTable
    .Borders.Enable = False
    .Cell(1, 1).Range.Font.Name = "Arial"
    .Cell(1, 1).Range.Font.Bold = 1
    .Cell(1, 1).Range.InsertAfter "Font Name"
    .Cell(1, 2).Range.Font.Name = "Arial"
    .Cell(1, 2).Range.Font.Bold = 1
    .Cell(1, 2).Range.InsertAfter "Font Example"
End With
'Go through all the fonts and add them to the table
For J = 1 To FontNames.Count
    With FontTable
        .Cell(J + 1, 1).Range.Font.Name = "Arial"
        .Cell(J + 1, 1).Range.Font.Size = 10
        .Cell(J + 1, 1).Range.InsertAfter FontNames(J)
        .Cell(J + 1, 2).Range.Font.Name = FontNames(J)
        .Cell(J + 1, 2).Range.Font.Size = 10
        .Cell(J + 1, 2).Range.InsertAfter "ABCDEFG abcdefg 1234567890"
    End With
Next J
FontTable.Sort SortOrder:=wdSortOrderAscending
End Sub
Bu makaledeki örnek kodu kullanma hakkında daha fazla bilgi için, Microsoft Bilgi Bankası'ndaki makaleyi görüntülemek üzere aşağıdaki makale numarasını tıklatın:
212536  (http://support.microsoft.com/kb/212536/ ) Knowledge Base makalelerinde, Office 2000 ile gelen örnek kodu çalıştırma
Üste

Referanslar

Visual Basic for Applications Yardım alma hakkında daha fazla bilgi için Microsoft Knowledge Base'deki makaleleri görüntülemek üzere aşağıdaki makale numaralarını tıklatın:
212623  (http://support.microsoft.com/kb/212623/ ) Makro programlama kaynakları
226118  (http://support.microsoft.com/kb/226118/ ) Visual Basic for Applications programlama bilgi edinmenize yardımcı olmak kullanılabilen bir kaynak listesi
Üste
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Office Word 2003
  • Microsoft Word 2002 Standard Edition
  • Microsoft Word 2000 Standard Edition
Üste
Anahtar Kelimeler: 
kbmt kbdtacode kbfont kbhowto kbmacroexample kbprogramming KB209205 KbMttr
Üste
Otomatik TercümeOtomatik Tercüme
ÖNEMLİ: Bu makale, bir kişi tarafından çevrilmek yerine, Microsoft makine-çevirisi yazılımı ile çevrilmiştir. Microsoft size hem kişiler tarafından çevrilmiş, hem de makine-çevrisi ile çevrilmiş makaleler sunar. Böylelikle, bilgi bankamızdaki tüm makalelere, kendi dilinizde ulaşmış olursunuz. Bununla birlikte, makine tarafından çevrilmiş makaleler mükemmel değildir. Bir yabancının sizin dilinizde konuşurken yapabileceği hatalar gibi, makale; kelime dağarcığı, söz dizim kuralları veya dil bilgisi açısından yanlışlar içerebilir. Microsoft, içeriğin yanlış çevrimi veya onun müşteri tarafından kullanımından doğan; kusur, hata veya zarardan sorumlu değildir. Microsoft ayrıca makine çevirisi yazılımını sıkça güncellemektedir.
Makalenin İngilizcesi aşağıdaki gibidir:209205  (http://support.microsoft.com/kb/209205/en-us/ )
Üste