title image


Smiley Re: Liste aller verfügbarer Schriften in Word ausdrucken
Hallo,



so funktioniert es wieder.

Sub SchriftenGeneratorI()

'Set rDoc = Documents.Add

Documents.Add

System.Cursor = wdCursorWait

Application.ScreenUpdating = False



Selection.TypeText "Name" & vbTab & "Schriftprobe" & vbCrLf



For Each Schrift In Application.FontNames

With Selection

.Font.Name = "Arial"

.Font.Size = 10

.TypeText Text:=Schrift & vbTab

.Font.Name = Schrift

'hier war der Fehler

.TypeText Text:="Probetext" & vbCrLf

End With

Next



With Selection

.WholeStory

.ConvertToTable Separator:=wdSeparateByTabs, _

Format:=wdTableFormatProfessional, AutoFit:=True

.Sort ExcludeHeader:=True

.ParagraphFormat.SpaceBefore = 2

.ParagraphFormat.SpaceAfter = 2

.HomeKey Unit:=wdStory

.SplitTable

.Style = wdStyleHeading1

.TypeText Text:="Schriftproben"

.EndKey Unit:=wdStory

.Style = wdStyleNormal

.HomeKey Unit:=wdStory

End With



Application.ScreenUpdating = True

System.Cursor = wdCursorNormal



'Set oAssistant = Assistant

'If Not oAssistant Is Nothing Then

'Assistant.Animation = msoAnimationCharacterSuccessMajor

'End If

'Set oAssistant = Nothing

End Sub

      Hubert









geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: