문서에 스타일이 추가되지 않도록하는 템플릿 만들기 (Microsoft Word)

http://blogs.msdn.com/b/ericwhite/archive/2010/01/27/programmatically-limiting-styles-in-word.aspx

Sub EditPaste()

Dim k As Long

Options.PasteFormatBetweenDocuments = wdMatchDestinationFormatting     Options.PasteFormatBetweenStyledDocuments = wdUseDestinationStyles     k = ActiveDocument.Styles.Count     Selection.Range.Paste     If k <> ActiveDocument.Styles.Count Then         ActiveDocument.Undo         MsgBox "Paste unsuccessful. You tried to introduce new styles."

End If End Sub

Sub EditPasteSpecial()

Dim k As Long     Dim lk As Boolean

Options.PasteFormatBetweenDocuments = wdMatchDestinationFormatting     Options.PasteFormatBetweenStyledDocuments = wdUseDestinationStyles     k = ActiveDocument.Styles.Count     With Dialogs(wdDialogEditPasteSpecial)

.Show         lk = .link     End With     If lk Then         ActiveDocument.Undo         MsgBox "You are not allowed to paste links"

Exit Sub     End If     If k <> ActiveDocument.Styles.Count Then         ActiveDocument.Undo         If MsgBox("You have tried to introduce new styles." & vbCrLf & _           "Do you want to paste as plain text?", vbYesNo) = vbYes Then _           Selection.Range.PasteSpecial datatype:=wdPasteText     End If End Sub

Sub PasteDestinationFormatting()

Dim k As Long

k = ActiveDocument.Styles.Count     Selection.Range.Paste     If k <> ActiveDocument.Styles.Count Then         ActiveDocument.Undo         MsgBox "Paste unsuccessful. You tried to introduce new styles."

End If End Sub

Sub PasteSourceFormatting()

MsgBox "You are not allowed to paste with source formatting"

End Sub