Jump to content
Macro Express Forums

amonaghan

Members
  • Posts

    75
  • Joined

  • Last visited

  • Days Won

    3

Posts posted by amonaghan

  1. This should work a lot smoother.

    <VARIABLE SET INTEGER Option="\x00" Destination="%Count%" Value="1"/>
    <TEXT BOX DISPLAY Title="Progress" Content="{\\rtf1\\ansi\\ansicpg1252\\deff0\\deflang1033{\\fonttbl{\\f0\\fnil\\fcharset0 Tahoma;}{\\f1\\fnil Tahoma;}}\r\n\\viewkind4\\uc1\\pard\\f0\\fs20 %Count%\\f1 \r\n\\par }\r\n" Left="Center" Top="Center" Width="278" Height="200" Monitor="0" OnTop="TRUE" Keep_Focus="TRUE" Mode="\x02" Delay="1"/>
    <REPEAT START Start="1" Step="1" Count="10" Save="FALSE"/>
    <DELAY Flags="\x02" Time="1000"/>
    <VARIABLE MODIFY INTEGER Option="\x07" Destination="%Count%"/>
    <TEXT BOX UPDATE Header="Progress" Content="{\\rtf1\\ansi\\ansicpg1252\\deff0\\deflang1033{\\fonttbl{\\f0\\fnil Tahoma;}}\r\n\\viewkind4\\uc1\\pard\\f0\\fs20 %Count%\r\n\\par }\r\n"/>
    <END REPEAT/>

     

  2. This should work, although it is a bit slow. If anyone knows of a quicker way, please let me know?

    Shamelessly stolen from here :- https://www.macros.com/faq/1.79.html

    Repeat Until %cClipboardString% Equals ""
      Text Type (Simulate Keystrokes): <ARROW DOWN>
      Clipboard Copy
      Variable Set String %cClipboardString% from the clipboard contents
      Variable Modify String %cClipboardString%: Trim
    End Repeat


     

    <VARIABLE SET STRING Option="\x00" Destination="%cClipboardString%" NoEmbeddedVars="FALSE" _ENABLED="FALSE"/>
    <REPEAT UNTIL Variable="%cClipboardString%" Condition="\x00"/>
    <TEXT TYPE Action="0" Text="<ARROW DOWN>"/>
    <CLIPBOARD COPY/>
    <VARIABLE SET STRING Option="\x02" Destination="%cClipboardString%" NoEmbeddedVars="FALSE"/>
    <VARIABLE MODIFY STRING Option="\x00" Destination="%cClipboardString%"/>
    <END REPEAT/>

    Alan

  3. That's what I'm working towards, possibly doing it all from within Excel. I'm going to use MEP to tie all bits together in the meantime until I suss more out.

    You've given me a really good start though, so thanks again Cory.

    Having to leave it until the weekend as I am currently job hunting and have an appointment tomorrow to prepare for. (Not an interview yet).

×
×
  • Create New...