使用字典和书签将数据从Excel传输到Word

Question

我正在寻找一种方法将数据从电子表格（通过使用字典添加）传输到Word文档中的设置书签。

最终产品需要将每一行数据迭代倒在电子表格中的数据转换为字当前书签-then-删除-then-继续循环之前的书签-then-填写...

但是，如果任何人都可以帮助我将数据从excel传递到单词中的书签，我真的很感激它，因为我可以轻松地从那里运行它。

这里是我到目前为止（我在代码底部卡住吧！）：

Dim columnLocations As New Dictionary 
Dim bookmarkOrder As New Dictionary 
Dim solutionWorkbook As Workbook 

Sub Main() 
    Set solutionWorkbook = ActiveWorkbook 

    columnLocations.RemoveAll 
    bookmarkOrder.RemoveAll 

    Call PopulateColumnLocations 
    Call PopulateBookmarkMappings 
    Call DictionaryData 
End Sub 

Sub PopulateColumnLocations() 
    'Loop through row1 to populate dictionary. key = header name, value = column number 
    Sheets("Data").Select 
    For Each cell In solutionWorkbook.Worksheets("Data").Range("A10", Range("A10").End(xlToRight)).Cells 
    columnLocations.Add Trim(cell.Value), cell.Column 
    Next 
End Sub 

Sub PopulateBookmarkMappings() 
    'Loop through row1 to populate dictionary. key = header name, value = collumn number 
    Sheets("Mappings").Select 
    Dim Var As Object 
    Dim Key As Object 

    For Each cell In solutionWorkbook.Worksheets("Mappings").Range("A2", Range("A2").End(xlDown)).Cells 
    Debug.Print Cells(cell.Row, 2).Value 
    Debug.Print cell.Value 
    bookmarkOrder.Add Trim(cell.Value), Cells(cell.Row, 2).Value 'the 2 is the column which has the bookmark name in 
    Next 
End Sub 

Sub DictionaryData() 
    Sheets("Data").Select 
    Dim count As Integer 
    count = 1 
    'Loop through all rows in input data sheet 
    For Each cell In solutionWorkbook.Worksheets("Data").Range("A11", Range("A11").End(xlDown)).Cells 
    Dim TweetSummary As String 
    TweetSummary = solutionWorkbook.Sheets("Data").Cells(cell.Row, columnLocations.Item("Summary")).Value 

    Dim TweetDate As String 
    TweetDate = solutionWorkbook.Sheets("Data").Cells(cell.Row, columnLocations.Item("Date")).Value 

    Dim TweetURL As String 
    TweetURL = solutionWorkbook.Sheets("Data").Cells(cell.Row, columnLocations.Item("URL")).Value 

    Dim TweetFollowers As String 
    TweetFollowers = solutionWorkbook.Sheets("Data").Cells(cell.Row, columnLocations.Item("Twitter Followers")).Value 

    Dim TweetFollowing As String 
    TweetFollowing = solutionWorkbook.Sheets("Data").Cells(cell.Row, columnLocations.Item("Twitter Following")).Value 

    Dim TweetTweets As String 
    TweetTweets = solutionWorkbook.Sheets("Data").Cells(cell.Row, columnLocations.Item("Twitter Tweets")).Value 

    Next 
End Sub 

Sub Worddoc() 
    Dim LaunchWord As Object 
    Dim tweetWord As Object 
    Dim Path As String 
    Dim tBookmark As Bookmark 
    Path = solutionWorkbook.Path & "\B_watch_social_twitter_template.dot" 

    Set LaunchWord = CreateObject("Word.Application") 
    Set tweetWord = LaunchWord.Documents.Add(Path) 

    tweetWord.Select 

''IM STUCK HERE!!! 
End Sub 

Answer 1

http://www.dailydoseofexcel.com/archives/2004/08/13/automating-word/

我认为这就是你所需要的。