John,

See below my macro for opening a word document, read and save it.

You see the code 'ActiveDocument.Fields.Unlink' for unlinking the excel
cells. Now I have to this also for my excelcharts in word who have a link to
excel. The code you proposed did not work.

Do you have another idea?
Thanks,
Jan


Sub OpenAndReadWordDoc(i As String)
Dim wrdApp As Word.Application
Dim wrdDoc As Word.Document
Dim tString As String, tRange As Word.Range
Dim p As Long, r As Long
Set wrdApp = CreateObject("Word.Application")
wrdApp.Visible = True
Set wrdDoc = wrdApp.Documents.Open("D:\Survey04\Chapter 6 with links.doc")
ActiveDocument.Fields.Unlink

With wrdDoc
.SaveAs ("D:\Survey04\Chapter 6 \" & i & ".doc")
.Close ' close the document
End With

wrdApp.Quit ' close the Word application
Set wrdDoc = Nothing
Set wrdApp = Nothing
ActiveWorkbook.Saved = True
End Sub


"John Mansfield" wrote:

If you want to break the links before loading the chart
into word, you can use a macro similar to the following:

Sub BreakChartLinks()
For Each X In ActiveChart.SeriesCollection
X.Values = X.Values
X.XValues = X.XValues
X.Name = X.Name
Next X
End Sub

Another option is to save an embedded chart as a picture
and then bring the picture into Word. In Excel, hit the
Shift - Edit keys (both at the same time) and then go to
Copy Picture. You can paste it into the Word Document.

Or, a better solution to export the chart as a graphic
would be to use John Walkenbach's J-Walk Chart Tools add-
in. The add-in can be found at http://www.j-walk.com/ss.