マクロでWordのExcelテーブルのグラフ部分

Question

バックグラウンドでは、特定の部分の情報が満載された別の部門のExcelブックに、特定の部分を使用してグラフを作成します。 Exからデータを取得するマクロを作成する方法はありますか？ C22：H34、それをテンプレートの単語文書に入れて、可能であればグラフにも自動的に入力しますか？私はそれを私が他人にやりとりすることができるプロセスにしたいので、実行するほうが簡単です。ここで

は私が

Sub AutoNew() 
' 
' AutoNew Macro 
' 
' 
Dim xlapp As Object 
Dim xlbook As Object 
Dim xlsheet As Object 
Dim bstartApp As Boolean 
Dim i As Long 
On Error Resume Next 
Set xlapp = GetObject(, "Excel.Application") 
If Err Then 
    bstartApp = True 
    Set xlapp = CreateObject("Excel.Application") 
End If 
On Error GoTo 0 
Set xlbook = xlapp.Workbooks.Open("C:\Users\MattsonC\Documents\work\Copy of 
3202_2018_Renewal Rate Workbook v2 EDIT.xlsx") 
Set xlsheet = xlbook.Sheets(1) 
With xlsheet.Range("A1") 
    For i = 1 To .CurrentRegion.Rows.Count - 1 
     ActiveDocument.Variables(.Offset(i, 0)).Value = .Offset(i, 2) 
    Next i 
End With 
xlbook.Close 
If bstartApp = True Then 
    xlapp.Quit 
End If 
Set xlapp = Nothing 
Set xlbook = Nothing 
Set xlsheet = Nothing 
ActiveDocument.Range.Fields.Update 
End Sub 

私は変数は、私がデータをテンプレートに行きたいすべての場所で{DOCVARIABLE LLY}のように行われ、同じ変数名をExcelでセルの名前を変更したしたものです。

私のWord文書で何らかの出力が発生することはありませんか？

ありがとうございました！

Answer 1

それが動作するかどうか、このコード

Sub aaa() 

    'ActiveWindow.View.ShowFieldCodes = Not ActiveWindow.View.ShowFieldCodes ' toggle field code view 
    Stop 
    ActiveWindow.View.ShowFieldCodes = True 
    Stop 
    ActiveWindow.View.ShowFieldCodes = False 

    ActiveDocument.Variables("xxxx").Value = "abc123" 
    ActiveDocument.Range.Fields.Update 

    Stop 

    ActiveDocument.Variables("xxxx") = "xyz987" 
    ActiveDocument.Fields.Update 

End Sub 

を実行し、次のシーケンス（ワード2016）

insert tab … text … quick parts … field … categories: document automation … field names: docVariable … put in variable name xxxx 

を使用して、新しいWord文書の文書変数を挿入バック初めに

を行きます問題が発生しているドキュメントのコードを使用して、フィールド名が自分の考えているものかどうかを確認してください。