Recent content by Dee0612

Hi, This is code I use to search for a named session called CICSA on PC's were some people have it under different PF keys to log on: Set MyArea = MyScreen.Search("CICSA") MyScreen.Moveto MyArea.Bottom, MyArea.Left - 29 PFKey = MyScreen.GetString(MyArea.Bottom, MyArea.Left -...

I have used calculus' method in the past instead of the Sess0.Screen.WaitHostQuiet for some macros which I had similar probelms with and it worked great. I usually do use the Sess0.Screen.WaitHostQuiet method but find some applications in extra a bit tempermental and require calculus' method!

Thanks for the reply, the macro only records the change in printer name, it doesn't record the settings I want above :-(

Hi, I need a macro that changes an active documents print settings for MS Word 97 so that the following is selected: - 1 sided printing - Page 1 Tray 1 - Page 2 Tray 2 - Page 3+ Tray 4 Is this possible? thanks

thanks for the reply Gerry, sometimes some paragraphs are not relevant, for example, in the letter it is going to a customer concerning a policy they have with our company. If their policy does not have certain elements built into the policy for example life cover, the paragraph about life...

I have a small macro I have written to take data from excel to populate word and have a slight problem. Here is a sample of the way I am doing it: wrd.ChangeFileOpenDirectory _ "\\BTBEAPDAT01\DATA_BEACON_HOUSE\NCC\Tier3 RP|Damian Templates" wrd.Documents.Open FileName:="T66 TV Payment...

Here is a sample of some code I use which loops, it may help you, For polroutine = 0 To 4 PolNo = polarray(polroutine) If PolNo = "" Then GoTo polcont2 'enter policy no backoutchk = MyScreen.getstring(2, 3, 7) If backoutchk =...

thanks for this info, I get the same problem. Never used to and then it started. My company changed printers a few moths ago so that explains why!

thanks alot, I have it sorted now.

Please can someone help me, I can't seem to get a bit of my code to work. Here is what I have: For polroutine = 0 To 4 PolNo = polarray(polroutine) If PolNo = "" Then GoTo polcont2 'enter policy no backoutchk = MyScreen.getstring(2, 3, 7)...

thanks for the reply. In work we have different word templates that when we open are blank that we use for issuing letters. For wxample, we have a template called customer recieipt which we open and if you type 01 and hit F3 will ask for the name and address of the customer. para 02 and f3...

I would like to know if this is possible. I have gathered info in excel and I would like to be able to open a word template that has autotext entries eg 01 & F3 will you get inputboxes for some info to be input and then 02 & f3 ... etc. Under certain circumstances depending on the info in...

I am taking text from Attachmate and putting it onto word. If I have this: a = TextA b = TextB c = TextC inputtext = a & Chr(13) & b & Chr(13) & c wrd.ActiveDocument.Fields(1).Select With wrd.Selection .InsertAfter Text:=inputtext End With I want to have b inserted as bold, is this...

would love to know this myself, tried researching this a while back but couldn't find the answer on any VB forum.

Some of the work I do involved completing excel sheets with data. I had written a VB that took info from certain parts of a work book and populated the info required, however I can no longer do this as the these excel sheets have now been placed on our company intranet in the form of Adobe...