Skip to content
  • Categories
  • Recent
  • Tags
  • Popular
  • World
  • Users
  • Groups
Skins
  • Light
  • Cerulean
  • Cosmo
  • Flatly
  • Journal
  • Litera
  • Lumen
  • Lux
  • Materia
  • Minty
  • Morph
  • Pulse
  • Sandstone
  • Simplex
  • Sketchy
  • Spacelab
  • United
  • Yeti
  • Zephyr
  • Dark
  • Cyborg
  • Darkly
  • Quartz
  • Slate
  • Solar
  • Superhero
  • Vapor

  • Default (No Skin)
  • No Skin
Collapse
Code Project
  1. Home
  2. General Programming
  3. Visual Basic
  4. Greek Characters [modified]

Greek Characters [modified]

Scheduled Pinned Locked Moved Visual Basic
databasebeta-testinghelpquestionlearning
1 Posts 1 Posters 0 Views 1 Watching
  • Oldest to Newest
  • Newest to Oldest
  • Most Votes
Reply
  • Reply as topic
Log in to reply
This topic has been deleted. Only users with topic management privileges can see it.
  • H Offline
    H Offline
    Harold_Wishes
    wrote on last edited by
    #1

    Hello Can someone direct me to a resource where I can find the codes for the greek alphabet? I know from experience that the alphabet for greeks comes in more than one flavor. I only have one set of codes in a macro I have written for Word but I know that 2 more exist. The database I am working with will not accept greek characters so I must convert them to the english spelling before I import them. Currently, my macro will not catch greek characters from certain sources because I do not have an exhaustive list of greek codes. Below I have a find and replace for finding betas----ChrW(61538). That code won't find all symbols that look like the beta symbol since some sources have it encoded differently. I have searched in more references than I care to admit. Can anyone help. I just need a reference. Thanks :)

    Selection.HomeKey Unit:=wdStory
    With Selection.Find
    .Text = ChrW(61538)
    .Replacement.Text = ".beta."
    .Forward = True
    .Wrap = wdFindContinue
    .Format = True
    .MatchCase = False
    .MatchWholeWord = False
    .MatchWildcards = False
    .MatchSoundsLike = False
    .MatchAllWordForms = False
    End With
    Selection.Find.Execute Replace:=wdReplaceAll
    Selection.WholeStory
    Selection.Font.Name = "Times New Roman"

    -- modified at 16:08 Wednesday 9th August, 2006

    1 Reply Last reply
    0
    Reply
    • Reply as topic
    Log in to reply
    • Oldest to Newest
    • Newest to Oldest
    • Most Votes


    • Login

    • Don't have an account? Register

    • Login or register to search.
    • First post
      Last post
    0
    • Categories
    • Recent
    • Tags
    • Popular
    • World
    • Users
    • Groups