Mrrrr's Forum (VIEW ONLY)
Un forum care ofera solutii pentru unele probleme legate in general de PC. Pe langa solutii, aici puteti gasi si alte lucruri interesante // A forum that offers solutions to some PC related issues. Besides these, here you can find more interesting stuff.
|
Lista Forumurilor Pe Tematici
|
Mrrrr's Forum (VIEW ONLY) | Reguli | Inregistrare | Login
POZE MRRRR'S FORUM (VIEW ONLY)
Nu sunteti logat.
|
Nou pe simpatie:
Lolalola la Simpatie.ro
 | Femeie
22 ani
Cluj
cauta Barbat
26 - 80 ani |
|
Mrrrr
AdMiN
 Inregistrat: acum 17 ani
Postari: 2186
|
|
When searching for a symbol from the extended character set using its unicode decimal number i.e. ^unnnn you first need to identify that number.
First select the first example of the character (e.g. the Cyrillic character ю in the document), then activate the Insert > Symbol dialog - then More Symbols.
The symbol should be selected in the dialog that appears.
On the bottom right side of the dialog there are two fields that are important: Character code: followed by from:
Under from: make sure you select Unicode (hex) and note the value in the Character code: field.
Eg. for the Cyrillic character ю, the Unicode (hex) of the character is 044E.
Open the Windows calculator and change its view to the Programmer's calculator, ensure that the Hex radio button is checked and enter the number into the calculator.
Click the Dec radio button and note the changed number.
You can then use the four digit number in conjunction with the ^unnn (^u1102) to find the characters in the document.
Macro to identify the four digit number indicated above
The following macro will identify and copy the value of the character at the cursor to the clipboard, for ease of pasting into the find and replace tool's 'Find what' dialog.
Note that the following macro requires a reference to the Microsoft Forms 2 Object Library to be checked in the VBA Editor > Tools > References.
Sub GetExtendedCharDecVal()
Dim SelFont As Variant
Dim SelCharNum As Long
Dim myData As DataObject
Dim sCode As String
Set myData = New DataObject
Select Case Len(Selection.Range)
Case Is = 0
MsgBox "Nothing selected!"
Exit Sub
Case Is = 1
With Selection
With Dialogs(wdDialogInsertSymbol)
SelFont = .Font
SelCharNum = .CharNum
End With
End With
If SelCharNum < 128 Then
sCode = "^" & SelCharNum
myData.SetText sCode
myData.PutInClipboard
MsgBox "To find this character, use """ & sCode & """ in the 'find what' field." & vbCr & vbCr & _
"This has been copied to the clipboard. Use Ctrl+v to paste into the 'find what' field."
End If
If SelCharNum > 127 Then
sCode = "^u" & SelCharNum
myData.SetText sCode
myData.PutInClipboard
MsgBox "To find this character, use """ & sCode & """ in the 'find what' field." & vbCr & vbCr & _
"This has been copied to the clipboard. Use Ctrl+v to paste into the 'find what' field."
End If
Case Else
MsgBox "Select only the character to evaluate, and run the macro again"
Exit Sub
End Select
End Sub
|
Source with images:
_______________________________________
|
|
| pus acum 2 ani |
|