Kæde mellem word & Excel skal angives som relativ sti

Her er lidt inspiration:
Sub testLink()
Dim afield As Field
    For Each afield In ActiveDocument.Fields
        kilde = afield.Parent
        kode = afield.Code
       
        If InStr(kode, " LINK Excel.Sheet.8") = 1 Then
            LinkMod = Left(kode, 20) + kilde
        End If
    Next afield
End Sub

Hej Supertekst,

Jeg har prøvet at lege lidt med koden - men kan ikke rigtig få den til at virke. Jeg skal jo køre den fra Excel - og den del der omhandler opdateringer af kæder ser sådan ud:

Set Word = CreateObject("word.application")
Set doc = Word.documents.Open(ThisWorkbook.Path & "\Leadership Equity Assessment.doc")

doc.Activate
With doc.Activate
For Each afield In doc.Fields
  kilde = afield.Parent
  kode = afield.Code
       
  If InStr(kode, " LINK Excel.Sheet.8") = 1 Then
      LinkMod = Left(kode, 20) + kilde
  End If
 
  If afield.LinkFormat.AutoUpdate = False _
      Then afield.LinkFormat.Update
      afield.LinkFormat.BreakLink
  End If
Next afield

Jeg ved ikke rigtig hvad det er jeg gør galt i denne sammenhæng - og ville virkelig sætte pris på at få lidt hjælp...

Jeg skal se på det...

Her er der så lidt nyt:

Dim wrd As Object, aField As Field
Const kædeId = " LINK Excel.Sheet.8 "
Const nySti = "D:\"                                'ny sti
Const kildeXls = "Master.xls"                      'fil, der linkes til
Sub testKæder()
On Error GoTo afslut
    Set wrd = CreateObject("word.application")
    With wrd
        .Documents.Open Filename:=(ThisWorkbook.Path & "\Leadership Equity Assessment.doc")
       
        For x = 1 To .ActiveDocument.Fields.Count
            kode = .ActiveDocument.Fields(x).Code
       
            If InStr(kode, kædeId) = 1 Then
                .ActiveDocument.Fields(x).LinkFormat.SourceFullName = nySti + kildeXls
            End If
        Next x
    End With

afslut:
    wrd.ActiveDocument.Save
    wrd.Application.Quit
    Set wrd = Nothing
End Sub

Yes,

Med et par enkelte rettelser fik jeg den til at virke helt perfekt...

Takker - smider du et svar!

Fint - selv tak - en fornøjelse...

Du skulle tilfældigvis ikke også have styr på om man kan bruge en .code i forbindelse med et diagram?

Jeg har forsøgt at omskrive funktionen til også at kunne ændre diagrammer dog uden held.

Det ville være super fedt hvis du lige kunne sige om man kan bruge .code på andet end fields?

Bare sig' til hvis du skal have nogle point.

Kan du ikke prøve at beskrive det du vil og/eller sende en kopi af filen til: pb@supertekst-it.dk

Nu sidder jeg lig ved en computer hvor filen ikke ligger på... Så det må vente.

Det jeg skal er, at jeg fra en Excelfil skal autogenerere nogle rapporter i word - og måske senere power point.

Måden hvorpå jeg ønsker at gøre det er via nogle kæder mellem word og Excel, hvor der er en "skabelon", hvor kæder opdateres, fjernes og derefter gemmes i et nyt navn. Det virker også ganske fint, det eneste problem er dog, at jeg filen skal kunne køre uafhængigt af hvor de ligger. Derfor vil jeg gerne, at jeg ligesom med kæder bestående af tekst kunne ændre den sti diagrammerne benytter.

Det handler altså om, at jeg har diagram mv. som er kæder - og derved ønsker at tilpasse stien den henviser til afhængigt af filernes placering.

Håber du igen kan hjælpe mig... På forhånd tak.