Özel Yapıştırma için Word veya Excel Kısayolu?
Yanıtlar:
Var olduğunu sanmıyorum, ama iyi haber şu ki bir makro oluşturarak yapabilirsiniz.
Makroyu kaydedin, yapıştırmayı istediğiniz şekilde yapın, sonra klavye kısayoluna atayın veya aşağıdakileri yeni bir makroya yerleştirin (biçimlendirmeden yapıştırmak istediğinizi varsayarak):
MS Word 2010 için:
Selection.PasteAndFormat (wdFormatPlainText)
MS Excel 2010 için:
ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, _
DisplayAsIcon:=False, NoHTMLFormatting:=True
Yine, Makroyu kaydettikten sonra, onu bir klavye kısayoluna atamanız gerekir (örn. Ctrl + m).
Ekleme: MS Word 2002:
Sub PastePlaintext()
Selection.PasteSpecial Link:=False, DataType:=wdPasteText
End Sub
Windows'ta Word 2007 ile 2013 arasında Ctrl+ Alt+ kullanabilirsiniz V.
Mac için Word 2011'de, Control+ Command+ kullanabilirsiniz V.
Her ikisi de "Özel Yapıştır" iletişim kutusunu açacaktır. Doğrudan "Biçimlendirilmemiş Metin" için kısayol yok, ancak "Biçimlendirilmemiş Metin" e gitmek ve okları kullanabilmek için okları kullanabildiğiniz Enteriçin, makro kullanmadan en hızlı yol budur.
Word 2013 ve Excel 2013'te, klavyeden tüm " Özel Yapıştır " seçeneklerine erişmenin hızlı bir yolu olduğunu öğrendim . Aşağıdaki örneklerde metin olarak nasıl yapıştırılacağı gösterilmektedir (formatları yapıştırmadan).
Word 2013:
Bir şeyi kopyaladıktan sonra yapıştırmak istediğiniz yere gidin (formatı yapıştırmadan). CTRL+ V(biçimi geçici olarak da yapıştırır) sonra CTRL(kontrol tuşuna basıp bırakın) sonra T(son T "yalnızca metni sakla" anlamına gelir).
Excel 2013:
Bir şeyi kopyaladıktan sonra yapıştırmak istediğiniz yere gidin (formatı yapıştırmadan). CTRL+ V(biçimi geçici olarak da yapıştırır) sonra CTRL(kontrol tuşuna basıp bırakın) sonra V(son V "yapıştırma Değerleri" anlamına gelir).
Son harfi yazmadan önce ikinci CTRL tuşun bırakılması önemlidir .
Bu yöntem sadece 4 klavye isabeti gerektirir, makro yok ve fareyi diyalog penceresinde kullanmanıza gerek yok.
Eğer "Sadece Metin Sakla" yı varsayılan olarak ayarlamak istiyorsanız, aşağıdakileri yapabilirsiniz:
Varsayılan yapıştırma:
En üstteki açılır menüyü tıklayın ve "Diğer Komutlar" ı seçin:
Gelişmiş'i tıklayın:
Varsayılanları değiştirin (Yalnızca Metni Sakla):
Aynı yapıştırma varsayılanlarını sadece metin olarak tekrarlamak:
Bu yardımcı olur umarım!
Ayarlar, istediğiniz şekilde eşleşiyorsa, Word için varsayılan ayarları değiştirmek (yukarıda gösterildiği gibi) iyi bir seçenek gibi görünüyor. Ancak Excel için bunun yerine sağ tıklamayı öneririm.
Makro eklemeyle ilgili birkaç önemli sorun var.
1) Varsayılan şablonu değiştirmezseniz yeni belgelerde kaybolur.
2) Varsayılan şablonu değiştirirseniz ve çalışma kitabınızı paylaşmanız gerekirse, dosyayı alan kişi bir güvenlik uyarısı alır.
Diğer klavye seçenekleri çok fazla tuşa basılmasını gerektirir. Ayrıca, bir web sayfasından yapıştırıyorsanız, Excel ve Word’ün HTML’yi dönüştürmesi uzun zaman alır.
Sağ tıklama, düz metin seçeneğini seçebileceğiniz yapıştırma seçeneklerini gösterir.
Keşke yerleşik bir klavye kısayolu olsaydı, ama sağ tıklama benim için en iyi alternatif gibi görünüyor.
Bir uygulama agnostik çözümü için PureText'i düşünün .
Kurulum gerektirmez, ücretsizdir ve çalıştırıldığında biçimlendirmeksizin yapıştırmak için yeni bir tuş kombinasyonunu eşler.
Şahsen ben Win+ kullanın V.
İşlev zaten var, sadece kutudan kestirme bir yolu yok, ancak bir tane de verebilirsiniz.
Word 2007-2013'te (belki daha önce, hatırlamıyorum), seçtiğiniz klavye kısayolunu komutlara bağlayabilirsiniz. Word 2013’te bu
- Dosya> Seçenekler> Şeridi Özelleştir> sonra solda "Klavye kısayolları:" ile etiketlenmiş olan "Özelleştir ..." düğmesini tıklayın.
- Kategorilerde, "Tüm Komutlar" ı seçin;
- Komutlarda, "PasteTextOnly" seçeneğini seçin.
- "Yeni kısayol tuşuna basın" metin kutusuna tıklayın, sonra bu komutu yapmak için kullanmak istediğiniz tuş kombinasyonuna basın.
- Komut kısayolunu bağlamak için (yeni kısayolu hatırlamasını / kaydetmesini sağlayın), "Ata" düğmesini tıklayın.
Eğer anahtar combo kullanılıyorsa, "geçerli anahtarlar" kutusunun altında, "Şu anda atanan: xyz" ifadesini gösterir, burada xyz zaten bu kısayolu kullanan komuttur. Daha sonra, ilk tercihinize bağlı kalmak isteyip istemediğinize karar verebilirsiniz (kısayol artık PasteTextOnly'yi ve artık xyz'i çağırmayacak) veya başka bir anahtar combo bulmaya çalışabilirsiniz.
Aslında kolay bir yolu var. Sadece Alt+ E, ardından Sve tuşlarına basın V. İletişim kutusunu daha kolay alacaksınız, bu kesinlikle size çok zaman kazandıracak.
Word 2007-2013’de ALT + CTRL + G tuşlarına basmanız gerekir, ardından T tuşuna basıp Enter tuşuna basın.
Excel'de, yapıştırmak istediğiniz hücrede F2 tuşuna, ardından CTRL + V tuşlarına basın.
düz metni yapıştırmak istediğiniz yere sağ tıklayın T tuşuna basın
biçimlendirilmemiş metin yapıştırıldı.
BTW: Biçimlendirilmiş metni yanlışlıkla yapıştırırsanız, tümünü seçin ve 'normal' biçimine sıfırlamak için Ctrl + Boşluk tuşlarına basın
Excel'deki hem nesneleri hem de metni geri almak için bir seçenekle yapıştırmak için
' Custom data type for undoing
Type SaveRange
Val As Variant
Addr As String
End Type
' Stores info about current selection
Public OldWorkbook As Workbook
Public OldSheet As Worksheet
Public OldSelection() As SaveRange
'----------------------------------------------------------
Sub PasteValues()
' Set shortcut to Cntl+Shift+V, for example
' Works for Outlook and Chrome AND Excel
' Abort if a range isn't selected
If TypeName(Selection) <> "Range" Then Exit Sub
' The next block of statements
' save the current values for undoing
ReDim OldSelection(Selection.Count)
Set OldWorkbook = ActiveWorkbook
Set OldSheet = ActiveSheet
i = 0
For Each cell In Selection
i = i + 1
OldSelection(i).Addr = cell.Address
OldSelection(i).Val = cell.Formula
Next cell
' Start paste function
On Error GoTo ValuesFail
' Works for Excel and Outlook, but not Chrome
Selection.PasteSpecial Paste:=xlValues
' Specify the Undo Sub
Application.OnUndo "Undo the macro", "UndoMacro"
Exit Sub
ValuesFail:
On Error GoTo TextFail
' Works for Outlook and Chrome, but not Excel
ActiveSheet.PasteSpecial Format:="Text"
' Specify the Undo Sub
Application.OnUndo "Undo the macro", "UndoMacro"
Exit Sub
TextFail:
On Error GoTo PasteFail
ActiveSheet.Paste
' Specify the Undo Sub
Application.OnUndo "Undo the macro", "UndoMacro"
Exit Sub
PasteFail:
MsgBox "Complete Failure"
End Sub
'----------------------------------------------------------
Sub UndoMacro()
' Reinstates data in the selected range
' Tell user if a problem occurs
On Error GoTo Problem
Application.ScreenUpdating = False
' Make sure the correct workbook and sheet are active
OldWorkbook.Activate
OldSheet.Activate
' Restore the saved information
For i = 1 To UBound(OldSelection)
Range(OldSelection(i).Addr).Formula = OldSelection(i).Val
Next i
Exit Sub
' Error handler
Problem:
MsgBox "Can't undo macro"
End Sub
'----------------------------------------------------------
Sub RevertFile()
' From http://www.excelforum.com/showthread.php?t=491103
wkname = ActiveWorkbook.Path & "\" & ActiveWorkbook.Name
ActiveWorkbook.Close Savechanges:=False
Workbooks.Open Filename:=wkname
End Sub