Manuscript Formatting: Difference between revisions

From CCN Wiki
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 [[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).
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).