Wordtext Zeichenweise auslesen...
22.02.2022 17:10:18
Pepi
Dies ist zwar ein Excelforum, wo ich schon viele wertvolle Tipps erhalten habe.
Für Viele von Euch wird es eine Leichtigkeit sein, mir meine Frage zu beantworten.
Mit dem nachfolgenden Makro kann ich das Zeichen, den Asci-Code auslesen, nicht aber Schriftfarbe, Schriftgrösse eines einzelnen Zeichens, falls es Unterschiede gibt.
Sub SU_Herber_Selektierter_Text_Auslesen() 'Su220110
Dim j%, iFar&, iSiz As Double, iBld%, iIta%, iAsc%, sMsg$, sSel$, sFon$, sUCd$, sCha$, sTmp$, oDat As New DataObject
'Vom Selektierten Text Schriftgrösse, Farbe, Fett, ASC-Code, etc auslesen
sMsg = "SU_Selektierter_Text_Auslesen( )" & vbLf & vbLf
sSel = Selection
sFon = Selection.Font.Name
iSiz = Selection.Font.Size
iFar = Selection.Font.Color
If Selection.Font.Bold = True Then iBld = 1 Else iBld = 0
If Selection.Font.Italic = True Then iIta = 1 Else iIta = 0
'Ascii und Unicode auslesen
sTmp = vbLf & "Char" & vbTab & "Asci" & vbTab & "UniCd" & vbLf
For j = 1 To Len(sSel)
sCha = Mid(sSel, j, 1)
sTmp = sTmp & sCha & vbTab & Format(Asc(sCha), "000") & vbTab & "U+" & Right("0000" & Hex$(AscW(sCha)), 4) & iBld & vbLf
Next j
MsgBox "sSel =" & vbTab & """" & sSel & """" & vbLf & "sFon =" & vbTab & sFon & vbCr & "iSiz =" & vbTab & iSiz & vbLf & "iFar =" & vbTab & iFar & vbLf _
& "iBld = " & vbTab & iBld & vbLf & "iIta =" & vbTab & iIta & vbLf & sTmp '& "iAsc = " & iAsc & vbLf & "sUCd = " & sUCd
End Sub
mfg Pepi
Anzeige