Wie steuern Sie die Erstellung von MS OLE-Quelllesezeichen für Kopieren / Einfügen?

349
dvhirst

Irgendwie ist meine MS Word 2016 (Office 365) -Konfiguration (unter Windows 10, aktuelle Ebene) so festgelegt, dass jedes Mal, wenn ich ausgewähltes Material kopiere und an anderer Stelle einfüge, das Quellmaterial zu einem OLE-Objekt / Lesezeichen (Quellobjekt) wird. Ich kann das Lesezeichen manuell entfernen, aber das wird extrem langweilig. Ich habe nach einer Möglichkeit gesucht, dieses Verhalten zu kontrollieren, konnte es aber nicht finden.

Meine Frage ist; Wie kann ich die Erstellung der Definition des OLE-Objekts (Quelle) deaktivieren, wenn Sie Material in einem MS Word-Dokument auswählen und kopieren?

1

1 Antwort auf die Frage

0
intrepidis

Hier ist ein Makro, um die Lesezeichen direkt nach ihrer Erstellung automatisch zu löschen. Andere Lesezeichen werden nicht gelöscht, nur diejenigen, die mit "OLE_LINK" beginnen.

Dies ist am besten in der Datei Normal.dot zu finden. Aktivieren Sie dazu die Registerkarte Entwickler in der Multifunktionsleiste und klicken Sie auf die Schaltfläche Visual Basic. Dort finden Sie eine Datei namens "ThisDocument" in der Überschrift "Normal". Fügen Sie in diese Datei einfach den folgenden Code ein und speichern Sie ihn.

Sub EditCopy() Selection.Copy DoEvents Application.OnTime Now + TimeValue("00:00:01"), "DeleteOleBookmarks" End Sub  Sub DeleteOleBookmarks() Dim bmIndex As Integer Dim bmType As String DoEvents For bmIndex = ActiveDocument.Bookmarks.Count To 1 Step -1 bmType = UCase(Left(ActiveDocument.Bookmarks(bmIndex).Name, 8)) If bmType = "OLE_LINK" Then ActiveDocument.Bookmarks(bmIndex).Delete End If Next bmIndex End Sub 

Dieser Code wurde von hier kopiert:
http://intrepidis.blogspot.co.uk/2018/05/ms-office-word-copy-text-and-it-puts.html