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...
You don't say what the target application is. If it supports formatting it seems odd to me that you cannot paste formatted text, but I haven't fully grasped all of the detail.
That said, if what you want is Word's formatting expressed as HTML, then taking what Word provides should do the trick...
I fell foul of this. I bought a retail copy of Office 2016, which only gets you a download link and a product key, over-packaged in a big box. In order to use the download link you need a Microsoft account. I created a new account (if I recall the appropriate links are all on the download site)...
Follow what others have said to invoke the macro but you will still need to pull some more bits together ...
There are all sorts of options but, when the document is protected for forms some of them won't work. I would use a "Document Variable".
In the Check area put { DOCVARIABLE...
You can put Exit macros on legacy Form Fields - they're not perfect and don't respond to mouse clicks but work well if you're tabbing through the Form.
Enjoy,
Tony
------------------------------------------------------------------------------------
We want to help you; help us to do it by...
This isn't as clever as you might think. "dir *.doc" will also return *.doctorwho and *.doctorno, for example.
Sorting (with /OE) in a command window gives all the .doc files first, but you can't do that with the VBA version so, sorry, but you just have to check the returned names one by one -...
This site uses cookies to help personalise content, tailor your experience and to keep you logged in if you register.
By continuing to use this site, you are consenting to our use of cookies.