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

Ö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
Bu makale arşivlenmiştir. "Olduğu gibi" sunulmaktadır ve bundan sonra güncelleştirilmeyecektir.
Ö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 = TrueEnd 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 IntegerDim FontTable As Table'Start off with a new documentSet NewDoc = Documents.Add'Add a table and set the table headerSet 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 tableFor 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 WithNext JFontTable.Sort SortOrder:=wdSortOrderAscendingEnd 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
vb vba vbe üreticisi önizleme fontsamplegenerator WD2000 WD2002 WD2003

Uyarı: Bu makalenin çevirisi otomatik olarak yapılmıştır

Özellikler

Makale No: 209205 - Son İnceleme: 12/05/2015 11:05:38 - Düzeltme: 4.3

Microsoft Office Word 2003, Microsoft Word 2002 Standard Edition, Microsoft Word 2000 Standard Edition

  • kbnosurvey kbarchive kbmt kbdtacode kbfont kbhowto kbmacroexample kbprogramming KB209205 KbMttr
Geri bildirim