Excel Verknüpfung zu Word

Hallo zusammen,
ich bin mir nicht ganz sicher, ob ich hier richtig bin da sich mein Problem auf die Zusammenarbeit zwischen Word und Excel bezieht.
Ich habe in meiner Word-Datei ein Marko geschrieben welches grob zusammengefasst folgendes erledigt:
Durchsuche das Word Dokument nach einer definierten Formatierung.
Wenn diese gefunden wurde, kopiere den Text der Formatierung in eine neue Zeile im ausgewählten Excel Dokument. In einer weiteren Spalte wird ein zugehöriger Platzhalter reinkopiert.
Der Platzhalter wird wieder mit Word verknüpft, so dass der Zelleninhalt dann ich Word zur Verfügung steht.
Der Code mach auch eigentlich das was er soll aber die Verknüpfung wird nicht korrekt gesetzt.
In der Verknüfpfung steht zum Beispiel R4C11 anstatt Z4S11.
könnt Ihr mir sagen, wie ich das ändern kann?
Im folgenden mein Codeschnipsel:
For T = 1 To AnzahlTabellen
Set AktuelleTabelle = Doc.Tables(T) ' Aktuelle Tabelle
With AktuelleTabelle
Set AktuelleZeile = .Rows(1).Range
AnzahlZeilen = .Rows.Count
AnzahlSpalten = .Columns.Count
' For Z = AnzahlZeilen To 1 Step -1
Set AktuelleZeile = .Rows(1)
ZellenInhalt = AktuelleZeile.Cells(1).Range.Text
If AktuelleZeile.Cells(1).Range.Style = ActiveDocument.Styles("Überschrift 1") Then
hits = hits + 1
'############### Jetzt nach Excel Exportieren########################
ZellenInhalt = Left(ZellenInhalt, Len(ZellenInhalt) - 1)
sWorkbook.ActiveSheet.Rows(hits + 3).Insert
sWorkbook.ActiveSheet.Rows(hits + 3).Clear 'Komplette Zeile leeren
sWorkbook.ActiveSheet.Cells(hits + 3, 1) = ZellenInhalt
'Schreibe Platzhalter
ZellenInhalt = AktuelleZeile.Cells(2).Range.Text
ZellenInhalt = Left(ZellenInhalt, Len(ZellenInhalt) - 1)
sWorkbook.ActiveSheet.Cells(hits + 3, 11) = ZellenInhalt
'######## Erstelle Verknüpfung zu Word
sWorkbook.ActiveSheet.Cells(hits + 3, 11).Copy
AktuelleZeile.Cells(2).Select
Selection.PasteSpecial Link:=True, DataType:=wdPasteText, Placement:= _
wdInLine, DisplayAsIcon:=False
' Einfügen mit ZS Info!!!!!!!!!!!!!!!!!!!!!!!!
'############### Jetzt nach Excel Exportieren########################
End If
' Next ' Nächste Zeile
End With
Next ' Nächste Tabelle
Besten Dank für Eure Anregungen und Hinweise schon im Voraus!
Alex Richter

Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

Private Sub testlanguage_Click() Dim appExcel As Object 'ExcelObject erstellen Set appExcel = CreateObject("Excel.Application") MsgBox (Application.LanguageSettings.LanguageID(msoLanguageIDExeMode)) MsgBox (Application.LanguageSettings.LanguageID(msoLanguageIDUI)) MsgBox (appExcel.LanguageSettings.LanguageID(msoLanguageIDExeMode)) MsgBox (appExcel.LanguageSettings.LanguageID(msoLanguageIDUI)) End Sub

Guten Abend ;)
ich habe mir nun die Idee von Klaus zum nachträglichen Ändern der Verknüpfungen zur Brust genommen.
Hierzu habe ich mir nun folgenden Code zurechtgelegt:

Private Sub ChangeHyperlinks()
'Markiert alle Zeichen im Dokument:
Selection.WholeStory
'Zeigt auch formatierungen an
Selection.Fields.ToggleShowCodes
'Speichert alle markierten Zeichen in dem String "Alles"
Dim Alles As String
Alles = Selection
'i als zähler für die Position im String - count steht für die Anzahl gefundene Elemente
Dim i As Long, count As Long
count = 0
For i = 1 To Len(Alles)
If (Mid(Alles, i, 16) = "LINK Excel.Sheet") Then
count = count + 1
End If
Next i
Dim link, changedlink As String
For i = 1 To count
'Ruft die Methode searchString auf
Call searchString
link = Selection.Text
changedlink = Replace(link, "R", "Z")
link = changedlink
changedlink = Replace(link, "C", "S")
Selection.Text = changedlink
Next i
End Sub

Private Sub searchString()
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = True
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
End Sub

Wenn ich diesen Code nach dem Export zu Excel manuell anstoße funktioniert dieser auch wunderbar.
Führe ich diesen Code aber direkt nach dem Export zu Excel aus ist das Ergebnis nicht mehr ganz so schon.
Meine Vermutung ist, dass es mit der Selection zusammenhängt, verstehe aber nicht wo genau das Problem liegt.
Der Kombinierte Aufruf ist relativ Simpel:

Private Sub ExportToExcel_Click()
CreateHyperlinks
ChangeHyperlinks
Unload Me
End Sub

Kann mir diesbezüglich jemand einen Hinweis geben?
Vielen Dank!
Alex

Beliebteste Forumthreads (12 Monate)

7 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu verwandten Themen

Beliebteste Forumthreads (12 Monate)

Beliebteste Forumthreads (12 Monate)

7
Beiträge zum Forumthread

Beiträge zu diesem Forumthread