![]() ![]() Record a macro whilst you edit the Header style so that it has the correct formatting.Open one of the documents that you need to apply the changes to.:( so thanks for helping or just trying!īefore you write code for this you need to break the task down into steps. ![]() Thanks in advance for everybody reading and/or helping me with this question, because if I can not work it out, I need to add for around 1000 word docs headers and footers manually. Footers(wdHeaderFooterPrimary).Range.Text = "Footer goes here" Headers(wdHeaderFooterPrimary).Range.Text = "Header goes here" Set Doc = Documents.Open(FileName:=docToOpen.SelectedItems(i)) Set docToOpen = Application.FileDialog(msoFileDialogFilePicker)įor i = 1 To The found working code which i found in stackoverflow: Sub openAllfilesInALocation() I found a very helpful VBA script which is work but I tried but can not style and format to my needs, which is shown in the attached pictures I have around 1000 word documents in one folder which the header and footer needs to be added/changed (header need to added/changed just for the first page). ![]()
0 Comments
Leave a Reply. |
AuthorWrite something about yourself. No need to be fancy, just an overview. ArchivesCategories |