Hi Spezialisten, zur Zeit kämpfe ich mit meiner Neuerwerbung -Office 2013.

Ich habe den Eindruck, diese Software hilft mir über die Straße, obwohl ich da garnicht hin will.

ich habe unter Word2000 ein Makro genutzt, mit dem ich alle Hyperlinks eines Dokuments auflösen konnte.

Das ging so:

' In einem Dokument alle Hyperlinks mit einem Befehl in Text umwandeln:

Public Sub AlleHyperlinkseinesDocsauflösen()
'
' AlleHyperlinksauflösen (nur im Dok-Range-Teil, nicht in Kopf-/Fußzeilen
'
    Selection.HomeKey Unit:=wdStory
    While ActiveDocument.Hyperlinks.Count > 0
ActiveDocument.Hyperlinks(1).Delete
Wend
End Sub

und das funktionierte auch einwandfrei.

Des weiteren habe ich auch ein Makro genutzt, dass alle Hyperlinks aller Dokumente im gleichen Verzeichnis auflösen konnte, und das ging so:

  Dim i As Integer
  Dim Verzeichnis As String
  Dim MeinHyper As Hyperlink
  Dim MeinTeil As Range

  With Dialogs(wdDialogCopyFile)
    .Show
    Verzeichnis = .Directory
  End With

  With Application.FileSearch
    .FileName = "*.docx"
    .LookIn = Verzeichnis
    If .Execute > 0 Then
        For i = 1 To .FoundFiles.Count
            Documents.Open .FoundFiles(i)
            'gewünschte Befehle, zum Beispiel:
                'Sub FelderAktualisieren()
                Application.ScreenUpdating = False
                ActiveDocument.Repaginate
                For Each Teil In ActiveDocument.StoryRanges
                Teil.Fields.Update
                While Not (Teil.NextStoryRange Is Nothing)
                    Set Teil = Teil.NextStoryRange
                    For Each MeinHyper In MeinTeil.Hyperlinks
                    MeinHyper.Delete
                    Teil.Fields.Update
                Wend
                Next
                Application.ScreenUpdating = True
                'End Sub
            For Each MeinTeil In ActiveDocument.StoryRanges
            For Each MeinHyper In MeinTeil.Hyperlinks
            MeinHyper.Delete
            Next
            Next
            ActiveDocument.Close SaveChanges:=wdSaveChanges
        Next i
    End If
  End With
End Sub

Beide Varianten laufen unter Word2013 nicht mehr.

Ich ( >65) , bin absolut er VBA-Laie, meine Welt war SPS / Autocoder / RPG / Assembler / Neat/3 / PL/1 /Cobol usw. also alles Antik-Großrechnerschiene seit 1966,  kann mir da nicht weiter helfen.

Wo liegt der Fehler, hat da einer einen Tipp für mich?

Danke

Fred-Feuerstein