A macro to divide one Word doc into smaller docs of 5 pages each Thread poster: Smith Park
| Smith Park South Korea Local time: 11:26 Member (2005) English to Korean
This macro divides the .doc into several small .docs. Each of them is consist of five pages of the original .doc.
made by [email protected]
Sub MyPages() Dim i, n, TotalPages As Integer Dim fname As String TotalPages = Selection.Information(wdNumberOfPagesInDocument) n = 1 For i = 1 To (TotalPages / 5) ... See more This macro divides the .doc into several small .docs. Each of them is consist of five pages of the original .doc.
made by [email protected]
Sub MyPages() Dim i, n, TotalPages As Integer Dim fname As String TotalPages = Selection.Information(wdNumberOfPagesInDocument) n = 1 For i = 1 To (TotalPages / 5) Selection.GoTo What:=wdGoToPage, Which:=wdGoToFirst, Count:=6, Name:=\"\" Selection.Find.ClearFormatting With Selection.Find .Text = \"\" .Replacement.Text = \"\" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchByte = False .CorrectHangulEndings = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.HomeKey Unit:=wdStory, Extend:=wdExtend Selection.Cut Documents.Add Selection.Paste fname = Str(n) + \"-\" + Str(n + 4) ActiveDocument.SaveAs filename:=fname, _ FileFormat:=wdFormatDocument, LockComments:=False, Password:=\"\", _ AddToRecentFiles:=False, WritePassword:=\"\", ReadOnlyRecommended:=False, _ EmbedTrueTypeFonts:=False, SaveNativePictureFormat:=False, SaveFormsData _ :=False, SaveAsAOCELetter:=False ActiveDocument.Close n = n + 5 Next i End Sub
[Edited at 2005-12-03 04:16] ▲ Collapse | | |
Hi,
This Macro is really helpful, certainly for large files you have to split between translators.
However, I have a newbie question... How/where do you create this macro.
I go in Word > Tools > Macro and then I am a bit lost as to what to choose. Visual Basic or Microsoft editor.
Any help to use this macro would be welcome.
Thank you | | | Smith Park South Korea Local time: 11:26 Member (2005) English to Korean TOPIC STARTER
[Edited at 2004-05-18 00:13] | | | Smith Park South Korea Local time: 11:26 Member (2005) English to Korean TOPIC STARTER
In Word, press Alt + F11, the Visual Basic Editor will open. Good luck and have fun with it! Thank you again. yhpark. | | | To report site rules violations or get help, contact a site moderator: You can also contact site staff by submitting a support request » A macro to divide one Word doc into smaller docs of 5 pages each Protemos translation business management system | Create your account in minutes, and start working! 3-month trial for agencies, and free for freelancers!
The system lets you keep client/vendor database, with contacts and rates, manage projects and assign jobs to vendors, issue invoices, track payments, store and manage project files, generate business reports on turnover profit per client/manager etc.
More info » |
| Anycount & Translation Office 3000 | Translation Office 3000
Translation Office 3000 is an advanced accounting tool for freelance translators and small agencies. TO3000 easily and seamlessly integrates with the business life of professional freelance translators.
More info » |
|
| | | | X Sign in to your ProZ.com account... | | | | | |