Recent content by Capitala

I'm aurally sorry, how can I put the code into startup code?

Good day! I heavily use: dim db as dao.database dim rst as dao.recordset set db = db name set rst = Db.OpenRecordset(recordset) set rst.index = xxx ............ etc. Can I declare all these values once only and then refer to them within my code? thanks in advance

So far it's perfect. I appreciate your efforts. Now, after the amazing code above, I need to use text.typeparagraph until the cursor reaches a vertical position equals or greater than 18 cm. Why I do this? I have one sentence which I need to place on an almost the same position at the bottom...

Brilliant! thanks thanks thanks

Thaaaaaaaaaaaaaaaaaanks. working perfect. But, I can only use (from top of page). Is it possible to be (from bottom of page)? sorry for any incontinence

Hi great people! I need to get the current position of the cursor (vertically) as relevant to the start of the page but in CENTIMETER I tried this code: Selection.Information(wdVerticalPositionRelativeToPage) it gives me, as I thought, the position but in points. To make it clearer: If I'm in...

Many thanks

Hi All, If I need to search two words (non consecutive) in a paragraph, what to do whether by code of normal find. Is there any special character to use in search criteria as (^p) ...etc. Thanks heros

indeed the word or words before the column (:) should be bold, not after the column. These particulars widely change whether within the same document or other documents. The first above code which I inserted is working fine but it applies to all the document. All what I need to limit running...

Not mail merged, it's only typed

For clarification, Attached a screenshot of word document containing two blocks (First Block and Second Block) I need to select the text under first block and apply the code only to selected block. i.e. second block should not be affected. Regards,

Dim bWC As Boolean Dim oRng As Word.range Set oRng = Selection.range With oRng.Find .MatchWildcards = True .Text = ":" .Wrap = wdFindStop While .Execute oRng.Select .......... > format code

Hi, I'm using the following code to format the text after the column sign (:) as bold. The issued is that it goes through the whole document, while I need it to run on selected range only (table, paragraph(s)...etc). Thanks for your usual support

This one is working perfect. thanks cheeky

Regarding (set f = fso.GetFile(CurrentProject.Name)): variable not defined (CurrentProject.Name)