Comments on: Importing “My Clippings”

By: Scott

Scott — Mon, 08 Jun 2009 16:42:08 +0000

I am working with a team to create a notes tool that will do the sort of parsing mentioned in this post, provide robust searching capability and support save, delete and import of new notes. If interested, mail me.

-Scott

By: Suzanne

Suzanne — Sun, 12 Apr 2009 04:24:43 +0000

Thank you so much for this. I took some notes which spaned a page, I now know to close my highlight before the page ends and start on new one on the next page.

Thanks again.

By: Shana

Shana — Fri, 19 Dec 2008 21:19:57 +0000

Thanks for this, Steve. I’d be quite grateful if you’d help put together a description of how to use this VBA code – i’m not that familiar with it.

By: Steve

Steve — Sun, 07 Dec 2008 00:23:38 +0000

Greetings. I just wanted you to know, I created the macro, and have a couple little tricks that cleared up the problems mentioned above (and a few others, as well.)

Feel free to come and grab the VBA code. I would love it though if you would leave a comment and tell me what you think.

(I will be cleaning up the code, once the semester is over. Right now it is simply “recorder” code, but I can clean it up a bit.)

Steve

By: Importing Kindle myclippings.txt into a useful Table

Importing Kindle myclippings.txt into a useful Table — Sun, 30 Nov 2008 22:01:42 +0000

[...] a “sort-able” document. In so doing, I found a blog where the author went through the steps necessary to import the file to a Word table. So far, so good. Unfortunately, there was room for [...]

By: Steve

Steve — Sun, 30 Nov 2008 21:47:41 +0000

I developed a work-around using an old scripting routine I used 15 years ago, substituting &&& for ^p, and then re-inserting as required.

I also changed the bit with the | to search for “| Added” since the washington post clippings included the “|” character.

I am including the VBA macro code here for any that are interested.
====

Sub my_Clippings()
‘
‘ my_Clippings Macro
‘
‘
Selection.Find.ClearFormatting
With Selection.Find
.Text = “^p^p”
.Replacement.Text = “”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Application.WindowState = wdWindowStateMinimize
Selection.Find.ClearFormatting
With Selection.Find
.Text = “^p^p”
.Replacement.Text = “”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Application.WindowState = wdWindowStateNormal
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = “^p^p”
.Replacement.Text = “&&&”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “^p===”
.Replacement.Text = “&&&===”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “^p-”
.Replacement.Text = “&&&-”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “===^p”
.Replacement.Text = “===&&&”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “^p”
.Replacement.Text = ” ”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “Loc.”
.Replacement.Text = ” &&&Loc.”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “| Added ”
.Replacement.Text = ” &&& Added ”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = “&&&”
.Replacement.Text = “^p”
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
Selection.WholeStory
WordBasic.TextToTable ConvertFrom:=0, NumColumns:=6, NumRows:=475, _
InitialColWidth:=wdAutoPosition, Format:=0, Apply:=1184, AutoFit:=0, _
SetDefault:=0, Word8:=0, Style:=”Table Grid”
Application.WindowState = wdWindowStateMinimize
Selection.Find.ClearFormatting
With Selection.Find
.Text = “&&&”
.Replacement.Text = “^p”
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Application.WindowState = wdWindowStateNormal
Selection.Find.ClearFormatting
Selection.Find.Replacement.ClearFormatting
With Selection.Find
.Text = “Added on”
.Replacement.Text = “”
.Forward = True
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
End Sub

By: Shana

Shana — Fri, 22 Aug 2008 15:30:38 +0000

I’ve had the same problem — it happens when you’ve got a carriage return (^p) inside the comment itself.
i usually page down the whole table as soon as i create it, note if and where it happened, hit Undo (Ctrl-Z), delete that carriage return, and then remake the table.

Sorry — I can’t seem to make the macro work right yet!

I really wish they’d come up with a better way of doing this…

By: David Magellan Horth

David Magellan Horth — Mon, 18 Aug 2008 20:51:42 +0000

I must be doing something wrong or missing a vital step. When I get to the part of where you delete the column with =============== in it, there is more than one column and further more the ========== appears with other text in text in some columns…

Any ideas?

Has your word macro come out yet?

best regards,

By: John Leathers

John Leathers — Thu, 14 Aug 2008 12:16:35 +0000

Good job tackling a useful task. When you get the Word 2003 macro done I’d appreciate a copy. Thanks in advance.
John

By: Blog Kindle · Sunday Night Links: 3 August 2008

Blog Kindle · Sunday Night Links: 3 August 2008 — Sun, 03 Aug 2008 11:15:35 +0000

[...] Importing “My Clippings” – Kindle Tips [...]