use Perl

• Re: Saving Unicode Characters as Screenshots (Score:1)

  by jmcnamara (659)

  Here is some code to do the screen capture part:

  #!/usr/bin/perl -w
  
  use strict;
  use Win32::Clipboard;
  use Win32::GuiTest qw(FindWindowLike SetForegroundWindow SendKeys);
  
  # Find an open Word document
  my @windows = FindWindowLike(0, qr/Microsoft Word/);
  
  # Bring Word to the foreground (with focus)
  for (@windows) {
      SetForegroundWindow($_);
      SendKeys('%{PRTSCR}'); # Alt Print Screen
  }
  
  # Get the image from the clipboard.
  my $screen = Win32::Clipboard::GetBitmap()
         
• Could you get the characters elsewhere? (Score:1)

  by atcroft (5054)

  If you needed screenshots of them, could you not get the characters you needed from the PDF Unicode Charts [unicode.org] at unicode.org [unicode.org]? Just a thought.
  • Re:Could you get the characters elsewhere? (Score:1)

    by chromatic (983)

    Yes, that would work. However, with a couple of hundred characters, the amount of time and energy necessary for that would have been as much as the first option (entering them manually as screenshots).

    Fortunately, Andrew wrote a macro and Jessamyn figured out a way to copy and paste through a different application. Problem solved.