Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
18.10.2015 17:59:35 |
Fred-Feuerstein |
|
|
VBA-Makro läuft nicht unter Office2013 |
18.10.2015 19:22:56 |
BigBen |
|
|
|
18.10.2015 19:26:43 |
BigBen |
|
|
|
18.10.2015 19:39:03 |
Gast84198 |
|
|
Von:
BigBen |
Datum:
18.10.2015 19:22:56 |
Views:
1048 |
Rating:
|
Antwort:
|
Thema:
VBA-Makro läuft nicht unter Office2013 |
Hallo,
in Office 2013 sind einige Änderungen im VBA-Objektmodell vorgenommen worden: https://msdn.microsoft.com/de-de/library/office/jj229903.aspx
Versuchs mal mit diesem Code:
' 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
Sub AlleHyperlinksDokumente()
Dim i As Integer
Dim Verzeichnis As String
Dim MeinHyper As Hyperlink
Dim MeinTeil As Range
Dim Teil As Variant
Dim objFile As Scripting.File
Dim fs As New Scripting.FileSystemObject
'Dim fs As Object
'Set fs = CreateObject("Scripting.FileSystemObject")
With Dialogs(wdDialogCopyFile)
.Show
Verzeichnis = .Directory
End With
For Each objFile In fs.GetFolder(Verzeichnis).Files
Debug.Print objFile.Name
If FileExtension(objFile.Name) = ".dotx" Then
Documents.Open objFile.Name
'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
Next
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
End If
Next
End Sub
Function FileExtension(File As String) As String
Dim regEx As New RegExp
Dim mc As MatchCollection
With regEx
.Global = True
.IgnoreCase = True
.Pattern = "(\.\w+)$"
If .Test(File) Then
Set mc = regEx.Execute(File)
FileExtension = mc.Item(0).Value
End If
End With
End Function
VG, BigBen
|
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Bitte geben Sie ein aussagekräftiges Thema an.
Bitte geben Sie eine gültige Email Adresse ein!
- Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
- Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
- Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
- Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
- Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei
Antworten auf Ihren Beitrag zu benachrichtigen
Thema
|
Datum
|
Von Nutzer
|
Rating
|
Antwort
|
|
18.10.2015 17:59:35 |
Fred-Feuerstein |
|
|
VBA-Makro läuft nicht unter Office2013 |
18.10.2015 19:22:56 |
BigBen |
|
|
|
18.10.2015 19:26:43 |
BigBen |
|
|
|
18.10.2015 19:39:03 |
Gast84198 |
|
|