This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Private Declare Function OpenClipboard Lib "user32" (ByVal hwnd As Long) As Long | |
Private Declare Function EmptyClipboard Lib "user32" () As Long | |
Private Declare Function CloseClipboard Lib "user32" () As Long | |
Private Declare Function GetTempPath Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, ByVal lpBuffer As String) As Long | |
Private Declare Function GetTempFileName Lib "kernel32" Alias "GetTempFileNameA" (ByVal lpszPath As String, ByVal lpPrefixString As String, ByVal wUnique As Long, ByVal lpTempFileName As String) As Long | |
Sub Clean_Word_File() | |
'Save the current view state of ShowHiddenText and disable screen updating | |
Dim sView As Boolean |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
Sub exportComments() | |
' Exports comments from a MS Word document to Excel and associates them with the heading paragraphs | |
' they are included in. Useful for outline numbered section, i.e. 3.2.1.5.... | |
' Thanks to Graham Mayor, http://answers.microsoft.com/en-us/office/forum/office_2007-customize/export-word-review-comments-in-excel/54818c46-b7d2-416c-a4e3-3131ab68809c | |
' and Wade Tai, http://msdn.microsoft.com/en-us/library/aa140225(v=office.10).aspx | |
' Need to set a VBA reference to "Microsoft Excel 14.0 Object Library" | |
' Go to the Tools Menu, and click "Reference" | |
Dim xlApp As Excel.Application | |
Dim xlWB As Excel.Workbook |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
'By: | |
'Doug Robbins - Word MVP | |
'dkr@mvps.org | |
'dougrobbinsmvp@gmail.com | |
'http://answers.microsoft.com/en-us/office/forum/office_2007-customize/export-word-review-comments-in-excel/54818c46-b7d2-416c-a4e3-3131ab68809c?page=4&rtAction=1429151921582 | |
' | |
'Creates a new document containing a table that displays the Page Number, the number of the Section in the document, the line number, the text upon which the comment is made, the text of the comment and the name of the person who made the comment. | |
'If the text upon which the comment was made, the table will include the contents of the cell that contain that text. If the text is not in a table, it will display the text of the first paragraph to which the comment applies | |
Dim source As Document, target As Document |