Import a specific range (bookmarked section) from all Word docs in a selected folder

macropod · #1 06-02-2016, 11:14 PM

For that, you could use a macro like:

Code:

Sub Import_Bookmarked_Text()
Application.ScreenUpdating = False
Dim strFolder As String, strFile As String, wdDocSrc As Document, wdDocTgt As Document
strFolder = GetFolder
If strFolder = "" Then Exit Sub
strFile = Dir(strFolder & "\*.doc", vbNormal)
Set wdDocTgt = ActiveDocument
While strFile <> ""
  If strFolder & "\" & strFile <> wdDocTgt.FullName Then
  Set wdDocSrc = Documents.Open(FileName:=strFolder & "\" & strFile, AddToRecentFiles:=False, Visible:=False)
  With wdDocSrc
    If .Bookmarks.Exists("pmo") Then
    wdDocTgt.Range.InsertAfter vbCr
    wdDocTgt.Range.Characters.Last.FormattedText = .Bookmarks("pmo").Range.FormattedText
    .Close SaveChanges:=False
  End With
  strFile = Dir()
Wend
Set wdDocSrc = Nothing: Set wdDocTgt = Nothing
Application.ScreenUpdating = True
End Sub
 
Function GetFolder() As String
Dim oFolder As Object
GetFolder = ""
Set oFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Choose a folder", 0)
If (Not oFolder Is Nothing) Then GetFolder = oFolder.Items.Item.Path
Set oFolder = Nothing
End Function

PS: When posting code, please use the code tags, indicated by the # button on the posting menu. Without them, your code loses much of whatever structure it had

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
How to Import range between two string from other document	PRA007	Word VBA	1	12-18-2015 09:23 PM
Outlook VBA to move selected email to a public folder	aaroncrt	Outlook	2	10-21-2013 05:11 PM
Print attachment when it arrive in specific folder with specific subject	visha_1984	Outlook	1	01-30-2013 10:42 AM
Returning a specific value when item is selected from a drop-down list	J Press	Excel	4	09-10-2012 06:12 AM
Printing specific section	dfinch	Word VBA	2	06-09-2011 05:10 AM