Coding Text Using Microsoft Word

[haiybo]

I want to thank you Harold. I used your technique recently to code around 40 long transcripts for a project in Afghanistan. It worked without a hitch and saved me a lot of money and time learning a new software. Simple and efficient. I would highly recommend. Cheers

[charliehill]

This is super helpful and works really well. For anyone wondering why your word document does not have 'extract command' in macros you need to modify your document by downloading the free add-in suggested in the authors description box. Thank you for the instruction it really has helped.

[graenapelanginagara]

Dear Dr. Peach, thank you very much for your video. It helps me to save time and internet data to code data without spend times for learn and spend too much internet data for new analysis software. From hundred videos about coding data on youtube, I fastly understand yours. Thank you!

[MattiasMorrison]

Dr. Peach, THANK YOU! I have OS X Word 2011. The initial install didn't work, however I was able to cut/paste the macro from the website, then tweak it for my table column headings. Watching your workflow was been very helpful to me and a few of my classmates.

[otavioluispivadacunhafurta]

Fantastic! It still works (MSOffice 2016). Thanks a lot!

[joeelliott]

How did you edit your macro so that the line number is displayed with the page number, in the table?

[jamil.Bedill]

It was a very informative video. Thank you.

[dr.maanpascua]

Very informative Dr. Harold. I am looking for a video like this that is easy to understand.

[eddiemawer]

Literally saved my dissertation. Thank you

[thomassnowjink]

Dr Harold. Thank you so much for this video. It actually helped me tremendously in conducting my research thesis.

[karenmattes]

Thank you so much! Although I was worried about downloading your Word Macro, it all worked! I followed your video exactly. I have office 365 and this helped me code and sort and do all that I needed for my dissertation!

[kirubelmanyazewalmussie]

This video is super!!! It solved the problem with the too many codes I have! Thanks a lot!

[witneyh]

Thank you!! This is very useful and will be helping us with our Bachelors project

[alejandroayos]

Thanks, mate. U save time, pain, and is just beautiful, Harold

[nicolene]

Thank you for the tutorial and the provided link. I found your explanation and instructions very useful.

[ayses]

So if you want to make an excel sheet with page number, line number, author, time comment was made, comment and reference text you can use this :

Sub ExportComments()
' Note: A reference to the Microsoft Excel # Object Library is required, set via Tools|References in the Word VBE.
Dim StrCmt As String, StrTmp As String, i As Long, j As Long, xlApp As Object, xlWkBk As Object
StrCmt = "Page, Line, Author, Date & Time, Comment, Reference Text"
StrCmt = Replace(StrCmt, ", ", vbTab)
With ActiveDocument
' Process the Comments
For i = 1 To .Comments.Count
With .Comments(i)
StrCmt = StrCmt & vbCr & & vbTab
StrCmt = StrCmt & & vbTab & .Author & vbTab
StrCmt = StrCmt & .Date & vbTab & Replace(Replace(.Range.Text, vbTab, "<TAB>"), vbCr, "<P>")
StrCmt = StrCmt & vbTab & Replace(Replace(.Reference.Text, vbTab, "<TAB>"), vbCr, "<P>")
End With
Next
End With
' Test whether Excel is already running.
On Error Resume Next
Set xlApp = GetObject(, "Excel.Application")
'Start Excel if it isn't running
If xlApp Is Nothing Then
Set xlApp =
If xlApp Is Nothing Then
MsgBox "Can't start Excel.", vbExclamation
Exit Sub
End If
End If
On Error GoTo 0
With xlApp
Set xlWkBk = .Workbooks.Add
' Update the workbook.
With xlWkBk.Worksheets(1)
For i = 0 To UBound(Split(StrCmt, vbCr))
StrTmp = Split(StrCmt, vbCr)(i)
For j = 0 To UBound(Split(StrTmp, vbTab))
.Cells(i + 1, j + 1).Value = Split(StrTmp, vbTab)(j)
Next
Next
.Columns("A:D").AutoFit
End With
' Tell the user we're done.
MsgBox "Workbook updates finished.", vbOKOnly
' Switch to the Excel workbook
.Visible = True
End With
' Release object memory
Set xlWkBk = Nothing: Set xlApp = Nothing
End Sub

[doraduan]

Hi, Harold, My Word couldn't run the macro. I create the name for the macro as 'ExtractCommentsToNewDoc', and then I click 'Run', but no new doc. was created. Could you help me?

[haroldpeach]

I have not personally tested this, but I believe it works in Word 2010 for the Mac, but not in earlier versions.

[SCAScienceLab]

the version on the doctools.com does not have the code for line number.  Is there a way to add it easily?

[respectfaraimugodhi]

Thank you so much for this. Helped me in my hour of need