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

Makale çevirileri Makale çevirileri
Makale numarası: 209205 - Bu makalenin geçerli olduğu ürünleri görün.
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.

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:
212536Knowledge Base makalelerinde, Office 2000 ile gelen örnek kodu çalıştırma

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:
212623Makro programlama kaynakları
226118Visual Basic for Applications programlama bilgi edinmenize yardımcı olmak kullanılabilen bir kaynak listesi

Özellikler

Makale numarası: 209205 - Last Review: 23 Ocak 2007 Salı - Gözden geçirme: 4.3
Bu makaledeki bilginin uygulandığı durum:
  • Microsoft Office Word 2003
  • Microsoft Word 2002 Standard Edition
  • Microsoft Word 2000 Standard Edition
Anahtar Kelimeler: 
kbmt kbdtacode kbfont kbhowto kbmacroexample kbprogramming KB209205 KbMttr
Machine-translated Article
Ö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

Geri Bildirim Ver

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com