SmallCaps

[Quex]

Thanks to the wonderful legal system in Australia, I need to search/replace all small caps formatted text in very long court judgments and replace it with simple uppercase text (not allcaps though).
It should be easy, but I just can't quite see it.......any help you be greatly appreciated.

thanks in advance.

[Motoxpro]

what will they be in? like textbox listbox ect

[rjlohan]

Originally posted by Quex
Thanks to the wonderful legal system in Australia, I need to search/replace all small caps formatted text in very long court judgments and replace it with simple uppercase text (not allcaps though).
It should be easy, but I just can't quite see it.......any help you be greatly appreciated.

thanks in advance.

Don't start. The legal system in the whole world is a ****ing joke. Us Aussies have had it easy. It's that damnable american influence.

[Quex]

nothing as fancy as that, just plain old simple text being edited in word by a load of non-computery people, so a macro in word would work fine..........

[Motoxpro]

soa txtbox?

[Quex]

yeh.

[Motoxpro]

ok you could do like

Option Explicit
 
Private Sub Form_Load()
Dim strreplace As String
If Text1.Text = "a" Then
strreplace = Replace(Text1.Text, "a", "A")
Text1.Text = strreplace
End Sub

[Motoxpro]

dont forget the end if too...so

Option Explicit
 
Private Sub Form_Load()
Dim strreplace As String
If Text1.Text = "a" Then
strreplace = Replace(Text1.Text, "a", "A")
Text1.Text = strreplace
End If
End Sub

is that what you mean?

[rjlohan]

Originally posted by Motoxpro
ok you could do like

Option Explicit
 
Private Sub Form_Load()
Dim strreplace As String
If Text1.Text = "a" Then
strreplace = Replace(Text1.Text, "a", "A")
Text1.Text = strreplace
End Sub

I don't think you understand the nature of the problem.
I'm trying to do a macro for this, but I haven't tried Word macros before...

[DaoK]

I need to search/replace all small caps formatted text in very long court judgments and replace it with simple uppercase text (not allcaps though).

All cap or not all cap ?

[Quex]

i need to replace both small caps and all caps actually with simple uppercase, so there is no small caps or all caps in the whole document.

[DaoK]

text1.text = lcase(text1.text)

All is in low case now

[Quex]

its not the whole thing though....just the bits that are in scaps and acaps....

[DaoK]

USe MotoxPro code for the letter a and do the same for the letter s after.

[rjlohan]

This'll do the trick. Copy this as a Macro into Word.

Sub ChangeMac()
    For i = 1 To Word.ActiveDocument.Characters.Count
        'Change small caps to uppercase
        If Word.ActiveDocument.Characters(i).Font.SmallCaps Then
            Word.ActiveDocument.Characters(i).Font.SmallCaps = False
            Word.ActiveDocument.Characters(i) = UCase(Word.ActiveDocument.Characters(i))
        End If
        'Change all caps to uppercase
        If Word.ActiveDocument.Characters(i).Font.AllCaps Then
            Word.ActiveDocument.Characters(i).Font.AllCaps = False
            Word.ActiveDocument.Characters(i) = UCase(Word.ActiveDocument.Characters(i))
        End If
    Next i
End Sub

[rjlohan]

Originally posted by DaoK
USe MotoxPro code for the letter a and do the same for the letter s after.

Dude, you don't understand the problem. AllCaps and SmallCaps are a type of formatting in Word. AllCaps makes all characters appear as uppercase, although they aren't, and SmallCaps does the same, only the letters appear smaller.

[DaoK]

Maybe he do not want to have the "a" and "s" in capital when these letter are in the middle of the word . Example : AutrAliAn is not good but Australian is ok. So you will need to search the space before the word then replace the letter.

[Quex]

thanks! but try that on a 2 mb text file and takes a while......could there be a more elegant solution?

[macai]

So like you mean you gotta turn the strings "HELLO I AM SO IN
SO. hello, i am so in so" and then turn it into "Hello, I am so in so.
Hello, i am so in so."

Capitalization?

[DaoK]

But he wants that only for the letter "a" and "s".

[rjlohan]

Originally posted by DaoK
But he wants that only for the letter "a" and "s".

NO HE DOESN'T !!!!
****ing hell....





Quex: If you know that all the small caps will appear as whole-words, and not in the middle of words, change the word Characters everywhere I've got it to Words.

I don't think you'll find a better solution.

[DaoK]

Originally posted by Quex
its not the whole thing though....just the bits that are in s caps and a caps....

Well you do not have to yell at me. I have read the quote and I have see a and s...SO please be polite.

[Quex]

sorry for the confusion, the whole problem arises when people are too lazy to use upper case and take things like JudGMent and hit the allcaps button to make it JUDGMENT. I need to change this to simple uppercase. The same for small caps. For everything, not just a and s.

rjlohan's solution works great, but for huge cases that I have to edit (up to 10/11 mbs sometimes) it is not practical.


a caps = allcaps
s caps = smallcaps
soz.

[rjlohan]

Originally posted by Quex
its not the whole thing though....just the bits that are in sMALL caps and aLLcaps....

I've already explained this....

[rjlohan]

I really don't think there's an easier way. Give it a burl on a document, and see how long it takes. It may be a couple of minutes, but it shouldn't be toooo long.
It's just a simple bit-switch, and the UCase function.
Admittedly, it has to do every character, but if a whole word is Allcaps'ed, then you could make my previous switch, and speed it up.

But, like I said, that was my first Word Macro, so who knows?

[DaoK]

[QUOTEa caps = allcaps
s caps = smallcaps [/QUOTE]

OK so I apologize. well the Macro thing work, good job

[Quex]

hehe. thanx. i hope its the first of many fun-filled macro experiences for u.

[rjlohan]

I hate word, I avoid it whenever possible.
Yesterday, I had to *fix* a doc someone made with a section break every 2-3 pages, and different even/odd, and just by removing that, I halved the document size....

But seriously, that macro shouldn't be too bad, it only takes action on words/chars which are smallcap'ed or allcap'ed.
It may not actually be that bad for big docs.

Give it a burl, and let me know how it works?

[Quex]

.characters takes for ever, but I changed it to searching for .words and it runs about 20sec, which is not that quick, but should be good enough.
thnx again.