Hi. Ich habe folgendes Problem. Ich benutze Word 2010 und soll ein Makro erstellen dass eine schrifart sucht (in meinem Fall „code 128“/Barcode), das ist aber nicht alles, Dieser Makro soll nämlich auch noch das Wort/Barcode markieren. Ein Makro dass eine Schrifart Sucht hab ich bereits. Jedoch weiss ich nicht welchen Code ich brauche, dass der Cursor direkt vor den Barcode springt und ihn anschließend markiert. Das ist eigentlich mein einzigstes Problem. Ungefähr so, sieht die Rheienfolge aus:
Schriftart suchen -> Cursor vor Schriftart setzen -> Wort Markieren -> wort kopieren -> Wort vergrößern -> Wort/barcode in ein Textfeld verschieben. Kann mir irgendwer helfen oder sogar Code hilfe geben?
Sorry, mit Makros kenne ich mich zu wenig aus.
Gruß
Mike
Hi,
hier mal ein kleiner Code: es müssen noch angepasst werden: die Feinheiten, wie der Fontname, die neue Schriftgröße.
Auch weiß ich nicht genau was mit „in ein Textfeld schieben“ genau gemeint ist.
Aber wie gesagt, hier der Coder der wichtiges abdeckt:
Sub SchriftartSuchen()
Selection.Find.ClearFormatting
With Selection.Find
.Font.Name = „code 128“
.Text = „“
.Replacement.Font.Size = „40“
.Forward = True
.Wrap = wdFindContinue
.Format = True
End With
Selection.Find.Execute
Selection.Copy
Selection.Find.Execute Replace:=wdReplaceAll
Selection.Find.ClearFormatting
End Sub
Schönen Gruß
Uwe