Raijin QuickfootI'm your Huckleberry YOU'RE NO DAISYRegistered User, ClubPAregular
edited July 2007
How happy is the blameless Vestal's lot! The world forgetting, by the world forgot. Eternal sunshine of the spotless mind! Each pray'r accepted, and each wish resign'd.
I don't know why I have that copied. It must be from at least 2 days ago.
Public FileArray()
Public intNofiles
Sub findandreplace()
On Error GoTo Error
insertfilenames
counter = 0
Do While counter <> intNofiles
strfile = FileArray(0, counter)
Documents.Open FileName:=strfile
replace
ActiveDocument.Save
ActiveDocument.Close
counter = counter + 1
Loop
Error: MsgBox strfile
End Sub
Sub insertfilenames()
counter = -1
FileNumber = FreeFile
Open "C:\DOCS\dirlist.txt" For Input Access Read As FileNumber
Do While Not EOF(FileNumber)
counter = counter + 1
ReDim Preserve FileArray(0, counter)
Input #1, FileArray(0, counter)
Loop
intNofiles = counter
Close FileNumber
End Sub
Sub replace()
ActiveDocument.Select
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = "Regulated by the Law Society"
.Replacement.Text = _
"Regulated by the Solicitors Regulation Authority"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchByte = False
.CorrectHangulEndings = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = False
.MatchFuzzy = False
End With
Selection.Find.Execute replace:=wdReplaceAll
End Sub
VivixenneRemember your training, and we'll get through this just fine.Registered Userregular
edited July 2007
it's a (really high number I'm not sure about)-proof alcohol that tastes like sodomy. It a violation of your eyes, nose, mouth, throat, liver, and pretty much every major organ in your body. In other words, it makes you want to die. Chinese people drink it in shots, and they tend to gang up on unsuspecting colleagues and force the unlucky bastard into drinking a shot of baijiu with each one of them in turn. Please remember that after a half dozen shots of baijiu, your liver is shot and your brain has pretty much flatlined.
The one about the fucking space hairdresser and the cowboy. He's got a tinfoil pal and a pedal bin
0
SmasherStarting to get dizzyRegistered Userregular
edited July 2007
robots.txt is a file you can place on a website that tells (well-behaved) bots such as search engine spiders and the like what they're allowed to examine. That file is why the forums don't get indexed by google, for example.
Smasher on
0
Tossrocktoo weird to livetoo rare to dieRegistered Userregular
Posts
I don't know why I have that copied. It must be from at least 2 days ago.
https://www.amazon.com/gp/registry/wishlist/1JI9WWSRW1YJI
Edit: Oh, man, it's the url for the australian robots chief of police, awesome.
Apparently this is me on guitar.
Public FileArray() Public intNofiles Sub findandreplace() On Error GoTo Error insertfilenames counter = 0 Do While counter <> intNofiles strfile = FileArray(0, counter) Documents.Open FileName:=strfile replace ActiveDocument.Save ActiveDocument.Close counter = counter + 1 Loop Error: MsgBox strfile End Sub Sub insertfilenames() counter = -1 FileNumber = FreeFile Open "C:\DOCS\dirlist.txt" For Input Access Read As FileNumber Do While Not EOF(FileNumber) counter = counter + 1 ReDim Preserve FileArray(0, counter) Input #1, FileArray(0, counter) Loop intNofiles = counter Close FileNumber End Sub Sub replace() ActiveDocument.Select Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "Regulated by the Law Society" .Replacement.Text = _ "Regulated by the Solicitors Regulation Authority" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .CorrectHangulEndings = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = False .MatchFuzzy = False End With Selection.Find.Execute replace:=wdReplaceAll End SubMy VBA is so sloppy
Whooops.
me too ^5.
actually, no, wash your hand first.
Need some stuff designed or printed? I can help with that.
Haha, why did I copy this?
>:3
her old stuff when she had braces or her more current stuff when she's just another asian porn star?
A line from the first page of Finnegan's Wake. I forget why I copied it.
PARKER, YOU'RE FIRED! <-- My comic book podcast! Satan look here!
The Norva huh, I go there about once a year for metal shows, I went there for Slayer last year.
AT
ALL
Stupid sexy Flanders.
EDIT: Reversed. As it turns out he wasn't being a jerk, I was just doing a bad job of reading his grammer. I apologize.
hey satan...: thinkgeek amazon My post |
I needed Bink for some video haaxng.
huh. from the 7 Wonders thread, I think.
Ahahah was that a Wilhelm when they hit that tower