Search results for query: *

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...

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

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...

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

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 _...

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...

I'm currently using this code on two footers. They are set up as the following on the bottom of the doc paraMark pageNumber companyName I'm trying to get the pageNumber to be at the bottom line and not sure how to get the paraMark to go above the...

I am trying to merge files from one document into one big doc and trying to insert page number footer to every page except the first wo. I have two places in my code where I see the word footer, in mergeDoc and insertPageNumFooter. The footer, page number, and a text about my company seem to...

I have this code that is selecting only one page at a time. I would like to apply this to the entire document, can someone please advice how would I change the code? thanks _______________________ Sub margin() Dim myRange As Range 'moves the selection to the end Selection.GoTo...

Can anyone tell me what the difference is between saving something as a template and saving it as a doc? Thanks!

Hi, I have this code to insert the page number/footer to my document. But this document begins with a cover page, then a TOC is inserted and then followed by files inserted one after another. Since the first page is set to have a different footer. The first page of every inserted file does...

Hi, I have this code that inserts all the files one after another in a folder. I would like to first arrange the files in the folder into an alphabetical order before proceeding with the insert. How does one check or make sure the files are alphabetically arranged? thanks! _________________...

I have a cover page to start and am trying to write a macro to insert the toc to the second page. I currently have a bookmark at the beginning of the second page and I start off my document with a blank second page which is not very pleasant. ______________________ Sub locateSecondPage()...

I'm using the code below to merge files from one folder to just one document. Each file to be merged has a text box at the top of the document, in it, there are 4 lines of text with different styles and font sizes. First two lines has Arial 12, next two Arial 10 pt. Once I merge them...

Hi all, I'm a newbie at programming and am not sure how to change the spacing within my TOC to 1.5 pt. I have this code that changes only the first 4 paragraphs Set myRange = ActiveDocument.Range( _ Start:=ActiveDocument.Paragraphs(1).Range.Start, _...

Hi, I have a document that consists of section and page breaks. I'm using this code to insert a page number footer onto every page. But on the pages where the content of the document goes to the bottom of the page, the footer(page number) is not showing up. Thanks in advance...