जवाबों:
मुझे नहीं लगता कि वहाँ है, लेकिन अच्छी खबर यह है कि आप एक मैक्रो बनाकर कर सकते हैं।
या तो मैक्रो रिकॉर्ड करें, जिस तरह से आप चाहते हैं, उसे पेस्ट करें, फिर इसे कीबोर्ड शॉर्टकट में असाइन करें, या निम्नलिखित को एक नए मैक्रो में डालें (मान लें कि आप बिना फॉर्मेट किए पेस्ट करना चाहते हैं):
एमएस वर्ड 2010 के लिए:
Selection.PasteAndFormat (wdFormatPlainText)
एमएस एक्सेल 2010 के लिए:
ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, _
DisplayAsIcon:=False, NoHTMLFormatting:=True
मैक्रो को सहेजने के बाद, आपको इसे कीबोर्ड शॉर्टकट (जैसे ctrl + m) को असाइन करना होगा।
परिवर्धन: एमएस वर्ड 2002:
Sub PastePlaintext()
Selection.PasteSpecial Link:=False, DataType:=wdPasteText
End Sub
विंडोज पर वर्ड 2007 से 2013 तक, आप Ctrl+ Alt+ का उपयोग कर सकते हैं V।
मैक के लिए वर्ड 2011 पर, आप Control+ Command+ का उपयोग कर सकते हैं V।
ये दोनों "पेस्ट स्पेशल" संवाद लाएंगे। "Unformatted Text" के लिए सीधे तौर पर कोई शॉर्टकट नहीं है, लेकिन चूंकि आप "Unformatted Text" पर जाने और Enterपुष्टि करने के लिए तीरों का उपयोग कर सकते हैं, यह संभवतः मैक्रो के बिना सबसे तेज़ तरीका है।
मुझे अभी पता चला है कि वर्ड 2013 और एक्सेल 2013 में कीबोर्ड से सभी " पेस्ट स्पेशल " विकल्पों तक पहुंचने का एक त्वरित तरीका है । निम्नलिखित उदाहरणों में यह दिखाया गया है कि पाठ के रूप में पेस्ट कैसे किया जाए (स्वरूपों को चिपकाए बिना)।
कॉपी किए जाने के बाद कुछ ऐसा हो जाता है, जहां आप इसे पेस्ट करना चाहते हैं (प्रारूप को चिपकाए बिना)। CTRL+ V(यह अस्थायी रूप से प्रारूप को भी चिपकाएगा) तब CTRL(धक्का और नियंत्रण कुंजी जारी करें) तब T(अंतिम टी का अर्थ है "केवल पाठ रखें")।
कॉपी किए जाने के बाद कुछ ऐसा हो जाता है, जहां आप इसे पेस्ट करना चाहते हैं (प्रारूप को चिपकाए बिना)। CTRL+ V(यह अस्थायी रूप से प्रारूप को भी चिपकाएगा) तब CTRL(पुश और नियंत्रण कुंजी जारी करें) तब V(अंतिम V का अर्थ है "पेस्ट मान")।
यह महत्वपूर्ण है कि अंतिम पत्र लिखने से पहले दूसरी CTRL कुंजी जारी की जाए।
इस विधि के लिए केवल 4 कीबोर्ड हिट, कोई मैक्रोज़ और डायलॉग विंडो में माउस का उपयोग नहीं करना पड़ता है।
यदि आप अपने डिफ़ॉल्ट के रूप में "केवल पाठ रखें" सेट करना चाहते हैं, तो आप निम्न कार्य कर सकते हैं:
डिफ़ॉल्ट पेस्ट:
शीर्ष पर ड्रॉपडाउन पर क्लिक करें और "अधिक कमांड" चुनें:
उन्नत पर क्लिक करें:
चूक बदलें (केवल पाठ रखने के लिए):
केवल पाठ के लिए एक ही पेस्ट चूक को दोहराते हुए:
उम्मीद है की यह मदद करेगा!
वर्ड के लिए, डिफ़ॉल्ट सेटिंग्स को बदलना (जैसा कि ऊपर दिखाया गया है) एक अच्छा विकल्प की तरह लगता है यदि सेटिंग्स आप चाहते हैं तो मेल खाती हैं। एक्सेल के लिए, हालांकि, मैं इसके बजाय एक राइट क्लिक का उपयोग करने का सुझाव दूंगा।
मैक्रो को जोड़ने के साथ कुछ महत्वपूर्ण समस्याएं हैं।
1) यह नए दस्तावेज़ों में खो जाएगा जब तक आप डिफ़ॉल्ट टेम्पलेट को संशोधित नहीं करते हैं।
2) यदि आप डिफ़ॉल्ट टेम्प्लेट को संशोधित करते हैं और अपनी कार्यपुस्तिका को साझा करने की आवश्यकता होती है, तो फ़ाइल प्राप्त करने वाले व्यक्ति को सुरक्षा चेतावनी मिलेगी .... जो संभवतः उन्हें बेकार कर देगा।
अन्य कीबोर्ड विकल्पों में कीस्ट्रोक्स की बहुत आवश्यकता होती है। इसके अलावा, यदि आप एक वेब पेज से पेस्ट कर रहे हैं, तो एक्सेल और वर्ड HTML को परिवर्तित करने में लंबा समय लेगा।
एक राइट क्लिक पेस्ट विकल्प दिखाएगा, जहां आप सादे टेक्स्ट विकल्प का चयन कर सकते हैं।
मेरी इच्छा है कि इसमें एक कीबोर्ड शॉर्टकट बनाया गया था, लेकिन राइट क्लिक मेरे लिए सबसे अच्छा विकल्प लगता है।
फ़ंक्शन पहले से मौजूद है, इसमें केवल बॉक्स से बाहर शॉर्टकट नहीं है, लेकिन आप इसे दे सकते हैं।
Word 2007-2013 (शायद पहले याद नहीं है) में, आप अपनी पसंद के कीबोर्ड शॉर्टकट को कमांड से बांध सकते हैं। वर्ड 2013 में यह है
यदि कुंजी कॉम्बो उपयोग में है, तो "वर्तमान कुंजी" बॉक्स के नीचे, यह आपको "वर्तमान में सौंपा गया: xyz" बताता है, जहां xyz कमांड है जो पहले से ही इस शॉर्टकट का उपयोग करता है। तब आप यह तय कर सकते हैं कि आप अपनी पहली पसंद w / छड़ी करना चाहते हैं या नहीं (शॉर्टकट अब PasteTextOnly और अब xyz को आमंत्रित नहीं करेगा) या किसी अन्य कुंजी कॉम्बो के साथ आने का प्रयास करें।
वास्तव में एक आसान तरीका है। बस Alt+ दबाएं E, फिर Sऔर V। आपको संवाद बॉक्स बहुत आसान हो जाएगा, जो निश्चित रूप से आपको बहुत समय बचाएगा।
Word 2007-2013 में आपको ALT + CTRL + G दबाना होगा, फिर T दबाना होगा और Enter कुंजी पर क्लिक करना होगा
Excel में, बस F2 को उस सेल पर दबाएं जिसे आप पेस्ट करना चाहते हैं, फिर CTRL + V दबाएं।
दायाँ क्लिक करें जहाँ आप सादा पाठ चिपकाना चाहते हैं T कुंजी दबाएँ
अन-स्वरूपित पाठ चिपकाया जाता है।
BTW: यदि आप गलती से स्वरूपित पाठ पेस्ट करते हैं, तो यह सब चुनें और 'सामान्य' प्रारूप पर रीसेट करने के लिए Ctrl + Space दबाएं
Excel में ऑब्जेक्ट्स और टेक्स्ट दोनों को पेस्ट करने के लिए, पूर्ववत करने के लिए एक विकल्प के साथ, उपयोग करें
' 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