Recent content by TonyJollans

Skip, Sad to see you go. You were here (a couple of years) before me and are still here, still helping people, long after I have dropped out of regularly checking in. To most people you have been, and still are, a star and, although I understand where you're coming from, I think the only person...

Let's look at what your code actually does .. It gets your root folder ("C:\Data"). It loops through all the subfolders in C:\Data. There is just one of these: "Folder1" It loops through each file within subfolder "Folder1". There is just one of these: "Folder1.xlsm". No more files in the...

Your problem is that the Section Break is considered an empty paragraph by your code. It's not the most straightforward thing to catch but one way would be to add an extra condition before deleting ... If Len(p.Range.Text) <= 1 _ p.Range.End <> p.Range.Sections(1).Range.End Then Enjoy, Tony...

Is your workbook protected? Enjoy, Tony ------------------------------------------------------------------------------------ We want to help you; help us to do it by reading this: Before you ask a question. I'm working (slowly) on my own website

> You can still get Office as a non-subscription purchase. That's Office 2016, not Office 365. Yes, you can, and you get stand-alone software that is installed, and runs, locally. However, the software is not in the box: you must create (if you don't have one) a Microsoft account to be able to...

I'd be interested to understand what problems it causes. It isn't really an 'extra' character any more than anything else that might be used to separate individual cell data. There are all sorts of ways to change the layout, perhaps the simplest being using the Paste Options (default under...

When Excel ranges are copied into Word, they are pasted as table cells by default, and that symbol indicates the end of a table cell (for most purposes equivalent to a return). You see it because you have set formatting marks to be visible, which you can unset by pressing Ctrl+* (or via File >...

Without seeing a sample document, I'm not entirely sure what your code is trying to do, or doing, but it seems likely that the problem is what happens when you delete a section or, more specifically, a section break. The links between headers across sections are complex and deleting sections...

This is not as straightforward as it ought to be, but a good starting point is Microsoft Excel MVP, Ron de Bruin's web page: https://www.rondebruin.nl/win/s2/win001.htm Enjoy, Tony ------------------------------------------------------------------------------------ We want to help you...

Outlook is not my best strength but as no-one has replied to this, I'll try. I don't have current access to an Exchange server and some of the required code might be slightly different but this works on a stand-alone Outlook system .. Sub Archive() Dim oNameSpace As...

You can use simple functions in Access queries just as you would in VBA, so if all your values begin with [comma], or [space, comma], then ... SPNote:Mid([SameOrd_tbl].[SPNote],InStr([SameOrd_tbl].[SPNote],',')+1) Enjoy, Tony...

The problem is, indeed, byte alignment. Somewhere along the way you (correctly) changed bmBits from Long to LongPtr. On 32-bit systems this becomes a Long - a 4-byte value aligned on a 4-byte boundary. On 62-bit systems this becomes a LongLong - an 8-byte value aligned on an 8-byte boundary...

I don't believe you have the libraries you need to do it unless you have the full version of Acrobat installed. Enjoy, Tony ------------------------------------------------------------------------------------ We want to help you; help us to do it by reading this: Before you ask a question...

To get the currently selected e-mail, all you need to do is ... Dim oOutlook As Outlook.Application Dim email As Outlook.MailItem Set oOutlook = New Outlook.Application Set email = oOutlook.ActiveExplorer.Selection(1) Enjoy, Tony...

Hi Bob, I only visit occasionally now but recognise your name from way back. What you want is the default folder for an account rather than the default for the namespace, which you should be able to get via the account, if you know the name of the account .. Dim oOutlook As...