#1
|
|||
|
|||
Macro to transfer data from Word to another Word document with bookmark
Hi guys , i have a word document with a list of data, and i want transfer all the data into another word document that i bookmark to replace it.
What should i put under the Selection.TypeText? Application.Documents.Open ("C:\Users\jovany\Desktop\NEW WOSPC 9.2.1_RMIR - Rollout.doc") Selection.GoTo What:=wdGoToBookmark, Name:="Bookmark" ThisDocument.Activate Selection.TypeText Text:="" |
#2
|
||||
|
||||
Something seems to have been lost in the explanation. However you seem to have a document with a macro (ThisDocument) and another document with a Bookmarked text and you want to copy that bookmarked text to the document with the macro? That being the case
Code:
Dim oDoc As Document Dim oTarget As Document Dim oBM As Range Dim oRng As Range Set oTarget = ThisDocument Set oRng = oTarget.Range oRng.Collapse 0 Set oDoc = Documents.Open("C:\Users\jovany\Desktop\NEW WOSPC 9.2.1_RMIR - Rollout.doc") Set oBM = oDoc.Bookmarks("bookmark").Range oRng.FormattedText = oBM.FormattedText oRng.Bookmarks.Add "bookmark2" oTarget.Activate Set oDoc = Nothing Set oTarget = Nothing Set oRng = Nothing Set oBM = Nothing
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
#3
|
|||
|
|||
Sorry for my bad english,
I want to transfer my non bookmarked data from 1 word document to the bookmarked word document |
#4
|
||||
|
||||
It is just a matter of swapping the documents and their ranges around so that you copy one range to the other e.g.
Code:
Dim oDoc As Document Dim oTarget As Document Dim oBM As Range Dim oRng As Range Set oTarget = ThisDocument Set oBM = oTarget.Bookmarks("bookmark").Range Set oDoc = Documents.Open("C:\Users\jovany\Desktop\NEW WOSPC 9.2.1_RMIR - Rollout.doc") Set oRng = oDoc.Range oBM.FormattedText = oRng.FormattedText oBM.Bookmarks.Add "bookmark" oTarget.Activate oDoc.Close 0 Set oDoc = Nothing Set oTarget = Nothing Set oRng = Nothing Set oBM = Nothing
__________________
Graham Mayor - MS MVP (Word) (2002-2019) Visit my web site for more programming tips and ready made processes www.gmayor.com |
Tags |
vba macro |
Thread Tools | |
Display Modes | |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
split word document based on bookmarks with each new document title of the bookmark | megatronixs | Word VBA | 9 | 09-05-2020 02:29 PM |
Transfer data from list with multiple headings from word to excel | psohms | Word | 1 | 06-11-2015 04:39 PM |
Transfer word doc bookmarks to excel using macro | Bedsy | Word VBA | 4 | 03-15-2015 10:58 PM |
Transfer Data between Excel and Word | s_samira_21 | Excel | 0 | 01-19-2015 05:21 AM |
Data transfer from Word tables to Excel | shoro | Word | 4 | 10-01-2013 05:08 AM |