Live-Forum - Die aktuellen Beiträge
Datum
Titel
24.04.2024 04:37:43
Mit Word erstellte PDF als Anhang an E-Mail anhängen
24.04.2024 00:20:14
Bestimmte Spalten als xls exportieren per Makro
23.04.2024 22:08:10
Auflisten in Spalte VBA
23.04.2024 21:33:46
Nur farbige/nicht farbige Zellen markieren
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
1704to1708
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1704to1708
1704to1708
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Word Verknüpfungen

Word Verknüpfungen
02.08.2019 14:17:47
marS
Hallo zusammen,
habe lange recherchiert, aber...
Ich habe ein Worddokument mit vielen Verknüpfungen zu einer xl-Mappe.
Die Verknüpfungen habe ich so erstellt:
xl-Zelle kopiert, Cursor im word-dok gesetzt, einfügt als Verknüpfung (unformatierter Text).
Die Verknüpfung habe ich dann gesperrt.
ich würde gerne einige der Verknüpfungen im Word markieren, entsperren, aktualisieren und dann wieder sperren. Dafür suche ich das passende Makro.
Wer kann mir dabei helfen.
Danke & Gruß
marS

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Word Verknüpfungen
03.08.2019 20:23:03
fcs
Hallo MarS,
hier ein entsprechendes Word-Makro.
Damit die Ausführung des Makros schnell erfolgt sollte die Excel-Datei geöffnet sein.
In der Case-Zeile musst du dann die verlinkten Excel-Adressen der Zellen/Zellbereich der Felder anpassen/ergänzen, die aktualisiert werden sollen.
Zum Testen (Debug-Zeilen) werden im Direkt-Fenster des VBA-Editors alle verlinkten Felder ausgegeben mit den alten und neuen Werten bzw. dass ein Feld nicht aktualisiert werden soll.
LG
Franz 
'Makro erstellt unter Office 365 - Word
Sub prcWord_Feld_Excel_Links_aktualisieren()
' Aktualisiert die Daten in mit Excel verknüpften Feldern in einer Word-Datei
Dim wdApp As Object 'Word.Application
Dim wdDoc As Object 'Word.Document
Dim wdField As Object 'Word.Field
Debug.Print "Start Makro ""prcWord_Feld_Excel_Links_aktualisieren"" " & Now
Set wdApp = Application
Set wdDoc = wdApp.ActiveDocument
For Each wdField In wdDoc.Fields
If wdField.Type = 56 Then '56 = wdFieldLink
If wdField.LinkFormat.Type = wdLinkTypeOLE Then ' 0 = wdFieldTyoeOLE
'            MsgBox "Class Type: " & wdField.OLEFormat.ClassType
If Left(wdField.OLEFormat.ClassType, 11) = "Excel.Sheet" Then
MsgBox "Class Type: " & wdField.OLEFormat.ClassType & vbLf _
& "Label-Zelladresse: " & wdField.OLEFormat.Label 'nur zur Info _
- später weglassen
'Adresse der verlinkten Excel-Zelle prüfen
Select Case wdField.OLEFormat.Label
Case "Tabelle1!Z1S2", "Tabelle1!Z2S2"
Debug.Print "Fieldlabel:" & wdField.OLEFormat.Label
Debug.Print "    Inhalt-alt:" & wdField.Result.Text
wdField.Locked = False
wdField.Update
wdField.Locked = True
Debug.Print "    Inhalt-neu:" & wdField.Result.Text
Case Else
Debug.Print "Fieldlabel:" & wdField.OLEFormat.Label _
& "  -  Feld nicht aktualisieren"
End Select
End If
End If
End If
Next
End Sub

Anzeige
AW: Word Verknüpfungen
05.08.2019 09:12:46
marS
Danke, werde es nacher mal testen
Gruß
marS

Links zu Excel-Dialogen

Label

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige