Recent content by lemonhalls

I have a document with many textboxes with borders. I would like to know how to loop thru the entire document and remove all the borders off all the objects. Please advice. thanks _______________________________________________________ Sub removeBorders() ' ' removeBorders Macro ' Macro...

thanks rodie, that only gives me the date in number format, but not French, what else do I need to get it into French? Thanks, S

How does one get the system date in french? Thanks! S

thanks!! i'll try to debug it more, but that definitely helps!!!

Inside a folder, i would like to look for files with the word "summaryxxx", "reportxxxs" and "milestonexxx" then insert theses three files one after another then the rest of the files in the folder to be inserted after these. I'm not sure how to do the search for the names, but got the going...

I would really appreciate if someone could look over this sub and let me know what's wrong with particularly the for loop. I am trying to check if a file exist already, if it does not save it as ver1, if it does exist, check if ver2 exist and save it as the next available version. I'm running...

excellent, thanks!!

Hi there, I'm getting an error: User defined type not defined on this statement Dim fso As New FileSystemObject I remember there may be a reference I have to turn on in VBE under tools and referenes, is that right? If so, which one is it? Thanks! S

ahhh thanks!!

Can you spot where I went wrong? I'm getng a next without for error! Thanks!! excerpt... _____________________ For i = 1 To 10 'if there is no previous copy of _DBReport(LastMonth) saved, 'then reporting.doc will be saved as _DBReporting(LastMonth) If fIsFileDIR(newDir & "_DBReport" &...

I'm trying to extract all the files in a folder whose file name contains the word "French". I'm using the following code, but it doesn't pick up the files eg. "treeFrench". __________________________ Dim lastChar As String Dim activeDir As String activeDir = InputBox _...

Hi Gerry! I rearranged the code, and added a section break now it works!! YEA ~ thanks a million for being so patient and your help. S =)

Yes Gerry, please send me info from your vb course! I'd love to read more about it! With ActiveDocument .Range(Start:=Selection.Start, _ End:=ActiveDocument. _ Content.End) .PageSetup.LeftMargin blah blah .bkah blah End With I did see this from your code, it was the...

gerry, there's a section break after the last entry on the TOC. then the first file gets inserted there after. I recorded the macro and got With Selection.PageSetup .LeftMargin = CentimetersToPoints(0.9) .RightMargin = CentimetersToPoints(1.4) End With I put it at the...

Currently I have this code to change the margin of the entire doc. With ActiveDocument.Range(Start:=Selection.Start, End:=ActiveDocument. _ Content.End).PageSetup .LeftMargin = CentimetersToPoints(1.3) End With But I would like to change the margin on the TOC page only...