Manuscript Formatting: Difference between revisions
Jump to navigation
Jump to search
(Created page with "=Word Counts= Many journals have strict word count limits, and some of them even have guidelines for manuscript sections. For example, ''jneurosci'' allows an introduction of...") |
No edit summary |
||
Line 23: | Line 23: | ||
End Sub | End Sub | ||
Instructions for creating a new macro in MS Word can be found | Instructions for creating a new macro in MS Word can be found [https://support.office.com/en-us/article/create-or-run-a-macro-c6b99036-905c-49a6-818a-dfb98b7c3c9c?ocmsassetID=HA010099769&CorrelationId=57a0d673-f4a0-434b-9526-156e8f69f260&ui=en-US&rs=en-US&ad=US here] (go to the section on Writing a macro from scratch in Visual Basic). |
Revision as of 20:26, 8 November 2018
Word Counts
Many journals have strict word count limits, and some of them even have guidelines for manuscript sections. For example, jneurosci allows an introduction of only 1000 words. To track this, an awkward solution is to copy/paste sections of the paper into a new document to get Microsoft Word to report the word count for the pasted text. Kludgy. A more elegant solution is to make use of MS Word's section break feature to break up the paper into sections, and then using the macro code below to report the word count of each section:
Sub SectionWordCount() ' ' SectionWordCount Macro ' ' Dim NumSec As Integer Dim S As Integer Dim Summary As String NumSec = ActiveDocument.Sections.Count Summary = "Word Count" & vbCrLf For S = 1 To NumSec Summary = Summary & "Section " & S & ": " _ & ActiveDocument.Sections(S).Range.ComputeStatistics(wdStatisticWords) _ & vbCrLf Next Summary = Summary & "Document: " & _ ActiveDocument.Range.ComputeStatistics(wdStatisticWords) MsgBox Summary End Sub
Instructions for creating a new macro in MS Word can be found here (go to the section on Writing a macro from scratch in Visual Basic).