답변:
나는 생각하지 않지만 좋은 소식은 매크로를 만들어서 만들 수 있다는 것입니다.
매크로를 기록하고 원하는 방식으로 붙여 넣기를 수행 한 다음 키보드 단축키에 지정하거나 새 매크로에 다음을 입력하십시오 (서식을 지정하지 않고 붙여 넣으려는 경우).
MS Word 2010의 경우 :
Selection.PasteAndFormat (wdFormatPlainText)
MS Excel 2010의 경우 :
ActiveSheet.PasteSpecial Format:="Unicode Text", Link:=False, _
DisplayAsIcon:=False, NoHTMLFormatting:=True
다시 한 번 매크로를 저장 한 후에는 키보드 단축키 (예 : ctrl + m)에 매크로를 할당해야합니다.
추가 : MS Word 2002 :
Sub PastePlaintext()
Selection.PasteSpecial Link:=False, DataType:=wdPasteText
End Sub
Windows의 Word 2007 ~ 2013에서는 Ctrl+ Alt+를 사용할 수 있습니다 V.
Mac 용 Word 2011에서는 Control+ Command+를 사용할 수 있습니다 V.
이 두 가지 모두 "붙여 넣기"대화 상자를 표시합니다. "형식화되지 않은 텍스트"에 대한 바로 가기는 없지만 화살표를 사용하여 "형식화되지 않은 텍스트"로 이동 Enter하여 확인할 수 있으므로 매크로가없는 가장 빠른 방법 일 것입니다.
방금 Word 2013 및 Excel 2013에는 키보드를 통해 모든 " 특별 붙여 넣기 "옵션에 빠르게 액세스 할 수있는 방법이 있음을 알게되었습니다 . 다음 예제에서는 텍스트를 붙여 넣지 않고 텍스트로 붙여 넣는 방법을 보여줍니다.
복사 한 후 붙여 넣기를 원하는 위치로 이동하십시오 (형식을 붙여 넣지 않은 상태). CTRL+ V(일시적으로 형식을 붙여 넣을 수 있음), 그런 다음 CTRL(제어 키를 눌렀다가 놓음) T, 마지막 T는 "텍스트 만 유지"를 의미합니다.
복사 한 후 붙여 넣기를 원하는 위치로 이동하십시오 (형식을 붙여 넣지 않은 상태). CTRL+ V(포맷도 일시적으로 붙여 넣기) 한 다음 CTRL(제어 키를 눌렀다가 놓음) V마지막 V는 "값 붙여 넣기"를 의미합니다.
그것은 것이 중요 두 번째 CTRL 키는 마지막 문자를 입력하기 전에 해제됩니다.
이 방법은 대화 상자 창에서 4 번의 키보드 입력만으로 매크로를 사용하지 않고 마우스를 사용하지 않아도됩니다.
"텍스트 만 유지"를 기본값으로 설정하려면 다음을 수행하십시오.
기본 붙여 넣기 :
상단의 드롭 다운을 클릭하고 "추가 명령"을 선택하십시오.
고급을 클릭하십시오.
텍스트 만 유지하기 위해 기본값을 변경하십시오.
동일한 붙여 넣기를 반복하면 기본적으로 텍스트 만 사용됩니다.
도움이 되었기를 바랍니다!
Word의 경우 기본 설정을 변경하면 (위 그림 참조) 원하는 설정과 일치하는 경우 좋은 옵션처럼 보입니다. 그러나 Excel의 경우 대신 오른쪽 클릭을 사용하는 것이 좋습니다.
매크로를 추가 할 때 몇 가지 중요한 문제가 있습니다.
1) 기본 템플릿을 수정하지 않으면 새 문서에서 손실됩니다.
2) 기본 템플릿을 수정하고 통합 문서를 공유 해야하는 경우 파일을받는 사람에게 보안 경고가 표시됩니다.
다른 키보드 옵션에는 많은 키 입력이 필요합니다. 또한 웹 페이지에서 붙여 넣을 경우 Excel 및 Word에서 HTML을 변환하는 데 시간이 오래 걸립니다.
마우스 오른쪽 버튼을 클릭하면 일반 텍스트 옵션을 선택할 수있는 붙여 넣기 옵션이 표시됩니다.
키보드 단축키가 내장되어 있기를 원하지만 마우스 오른쪽 버튼을 클릭하면 나에게 가장 적합한 대안으로 보입니다.
이 기능은 이미 존재하지만 상자에 바로 가기가 없지만 하나만 제공 할 수 있습니다.
Word 2007-2013 (아마도 기억 나지 않음)에서 선택한 키보드 단축키를 명령에 바인딩 할 수 있습니다. Word 2013에서 이것은
"현재 키"상자 아래에 키 콤보가 사용중인 경우 "현재 할당 된 항목 : xyz"가 표시됩니다. 여기서 xyz는이 바로 가기를 이미 사용하는 명령입니다. 그런 다음 첫 번째 선택 사항을 그대로 사용할지 여부를 결정할 수 있습니다 (단축키는 이제 PasteTextOnly를 호출하고 더 이상 xyz를 호출하지 않음)하거나 다른 키 콤보를 생각해 낼 수 있습니다.
실제로 쉬운 방법이 있습니다. 그냥 눌러 Alt+를 E다음 S과 V. 대화 상자가 훨씬 쉬워 져 많은 시간을 절약 할 수 있습니다.
Word 2007-2013에서는 ALT + CTRL + G를 누른 다음 T를 누르고 Enter 키를 클릭해야 합니다.
실행 취소 옵션을 사용하여 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