microsoft word και υπερ-συνδέσεις

[theka_2003]

Λοιπόν, έχω ένα κείμενο word το οποίο είναι γεμάτο υπέρ-συνδέσεις. Υπάρχει κάποιος τρόπος να τις αφαιρέσω μαζικά και όχι μια-μια;

 

Ευχαριστώ... :)

[zxr]

Μακροεντολές φίλε μου.

 

Πηγαίνεις Tools->Macro->Macros. Στο πάνω μέρος του πλαισίου που εμφανίζεται γράφεις το όνομα της μακρονετολής (ας πούμε Macro1) και κατόπιν πατάς Create.

 

Μεταξύ των λέξεων "Sub Macro1" και "End Sub" που θα σου εμφανιστούν γράφεις τον παρακάτω κώδικα:

 

Dim oDoc As Document

Dim oStory As Range

Dim oHlink As Hyperlink

 

For Each oStory In ActiveDocument.StoryRanges

For Each oHlink In oStory.Hyperlinks

oHlink.Delete

Next

Next

 

Ελπίζω να σε βοηθήσει. :)

[theka_2003]

Μεταξύ του Sub Macro1 και End Sub γράφει και κάποια άλλα πράγματα, αυτά τα σβήνω; Ποιος από τους παρακάτω τρόπους είναι ο σωστός;

 

Sub Macro1()
'
' Macro1 μακροεντολή
' Δημιουργία μακροεντολής 16/3/2007 από stefanos
'
Dim oDoc As Document
Dim oStory As Range
Dim oHlink As Hyperlink

For Each oStory In ActiveDocument.StoryRanges
For Each oHlink In oStory.Hyperlinks
oHlink.Delete
Next
Next
End Sub

 

Sub Macro1()

Dim oDoc As Document
Dim oStory As Range
Dim oHlink As Hyperlink

For Each oStory In ActiveDocument.StoryRanges
For Each oHlink In oStory.Hyperlinks
oHlink.Delete
Next
Next
End Sub

 

Μέσα στην παρένθεση δίπλα από το Sub macro 1, γράφω κάτι;

 

Ξέχασα να αναφέρω ότι έχω office 2003, δεν ξέρω αν παίζει ρόλο... :O

[zxr]

Μεταξύ του Sub Macro1 και End Sub γράφει και κάποια άλλα πράγματα, αυτά τα σβήνω; Ποιος από τους παρακάτω τρόπους είναι ο σωστός;

 

Και οι δυο σωστοί είναι. Τα επιπλέον πράγματα που γράφει επειδή έχουν το quote μπροστά θεωρούνται ως σχόλια από τη Visual Basic και δεν λαμβάνονται υπόψη. ;)

 

Μέσα στην παρένθεση δίπλα από το Sub macro 1, γράφω κάτι;

 

Όχι.

 

Ξέχασα να αναφέρω ότι έχω office 2003, δεν ξέρω αν παίζει ρόλο... :O

 

Λογικά δεν θα έχεις πρόβλημα. :)

[theka_2003]

Χίλια ευχαριστώ, δούλεψε :happy: . Μου άφησε βέβαια μερικές αλλά επειδή ήταν λίγες τις έβγαλα χειροκίνητα ;)

 

Και πάλι ευχαριστώ :)

[zxr]

Να είσαι καλά! :)

 

Αν και τις έκανες με το χέρι για την επόμενη φορά να ξέρεις πως αν ξανά τρέξεις το μάκρο θα σου σβήσει τoυς εναπομείναντες συνδέσμους.

[Phoebus16]

Φοβερό κολπάκι αυτό, και εγώ το ίδιο πρόβλημα είχα, μισή ώρα να καταργήσω τις υπερσυνδέσεις. Ευχαριστώ!