WD97: ???? ??????? ??? ???? ??? ?????? ?????? ???????

?????? ????????? ?????? ?????????
???? ???????: 181108 - ??? ???????? ???? ????? ????? ??? ???????.
??? ????? ??? ???????. ????? "??? ??" ??? ??? ??????? ??? ????.
????? ???? | ?? ????

?? ??? ??????

??????

???? ??? ??????? ????? ???? ????? ?? ????? ?? ???:
  • ???????? ?????????? ???? ?????? ?? ??? ????? ??? ????? ?????.
  • ????? ????? ????? ????? ????? ????? ?????? ?? ???????? ?????????? ?? ???? ??????? ??? reprotect ???????.

??????? ????

???? Microsoft ??????? ???????? ??? ??? ?? ???? ??????? ?? ?? ????? ? ? ?? ????? ??? ?????? ???????? ??????? ?/?? ???????? ???? ????. ????? ??? ??????? ??? ????? ??? ??? ??????? ???? ?? ????? ???????? ????????? ?????? ????????? ????????. ???? ?? ????? ??????? ????? Microsoft ??? ????? ????? ???? ???? ?? ?????? ?????? ??? ??????? ?????? ????? ?????? ?? ????? ??????? ?????? ????????? ???????.
??? ??? ??? ?? ???? ???? ???? ?????? ?? ???? ???????? ?? ????? ??? ??????? ????? Microsoft ?? ????? ???????. ????? ?? ?????????? ?? ?????? ????? ??? Microsoft ???:

Microsoft ????????? Partners ? https://partner.microsoft.com/global/30000104

????? Microsoft ??????? ???? ???? ??????? - http://support.microsoft.com/gp/advisoryservice

?????? ??? ???? ?? ????????? ??? ?????? ????? ???????? ???? ????? ??????? ????? Microsoft ?? ?????? ???? Microsoft ?????? ??? ?????: http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS
?????? ??? ???? ?? ????????? ??? ????? ??????? ????? ???????? ???????? ?? ??? ???????? ???? ??? ??? ??????? ????? ?????? ?? "????? ??????? ?? Microsoft:
173707OFF97: ????? ????? ????? ??????? ?????? ?? ?????? ????? ?????

??????? 1: ????? ?????? ??????? ?????/????? ?????

????? ??????? Microsoft Visual Basic for Applications ????? ??????? (????????? ???????) ??????? ??? ??? ???? ??? ????? ???? ???? ?????? ?? ??? ?????. ???? ????? ????? ??????? ?? ???? ??????? ?????? ?????? ?? ????? ????? ?????? ?? reprotect ??????? ?? ???????? ??????? ??? ???????.

???? ??????? ????? ??????? ??????? ??????? ?????? ?? ?? ??? ???? ??????? ????? ?? ??? ??? ?????? ????? ??? ????????? ?????????? ??? reprotect ???????.
  • ??? ????? ??????? ????? ??? ????? ??? ???? "????? ?????" ??? ???? ??????? ?????.
  • ????? ????? ?????? ??? ????? ??? "????? ??????? ?? ????? ????? ???????" ?? ????? "?????".
  • ??????? ?????? ???? ?? ?????? ?? ????? ?????? ?? ???????? ??? ??? ??? ??????? ??????.
??????: ??? ?? ???? ??? ??? ??????? ProtectForm.
Sub ProtectForm()

   ' ******************************************
   ' ProtectForm Macro.
   ' Toggles protection for the active document
   ' when the Protect Form button on the forms
   ' toolbar is clicked.
   ' ******************************************

   If ActiveDocument.ProtectionType = wdNoProtection Then
      ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
   Else
      ActiveDocument.Unprotect Password:=""
   End If

End Sub
				
????? Visual Basic ??????? ?????? ?????? ??????? ????? ???? ??? ???? ?????? ?????. ??? ????? ??? ??????? ???? ???? reprotect ??????? ????? ?? ???????? ??? ??? ??? ??????? ??????.

??????: ??? ?? ???? ??? ??? ??????? ToolsProtectUnprotectDocument.
Sub ToolsProtectUnprotectDocument()

   ' ******************************************
   ' ToolsProtectUnprotectDocument Macro
   ' Sets protection for the active document
   ' when Protect Document or Unprotect Document
   ' is clicked on Tools menu.
   ' ******************************************

   If ActiveDocument.ProtectionType = wdNoProtection Then
      ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
   Else
      ActiveDocument.Unprotect Password:=""
   End If

End Sub
				
????? Visual Basic ??????? ?????? ???? ?? ?????? ?? ????? ?????? ?? ???????? ??? ??? ??? ??????? ??????. ????? ????? ??? ??????? ??? ?? ???? ??????? ?? ???????.
Sub ProtectNoReset()

   Dim pDoc As Dialog
   Dim x As Integer
   On Error GoTo ProtectNoResetErr

   ' If the document is protected,
   If ActiveDocument.ProtectionType <> wdNoProtection Then

      ' Unprotect the document.
      ActiveDocument.Unprotect

   End If

   ' Display the Protect Dialog box.
   Set pDoc = Dialogs(wdDialogToolsProtectDocument)
   x = pDoc.Display

   ' If Cancel was chosen, exit this procedure.
   If x = 0 Then Exit Sub

   ' Protect the document.
   ActiveDocument.Protect Password:=pDoc.DocumentPassword, _
      NoReset:=True, Type:=2

ProtectNoResetErr: 'NOTE: This line MUST be left aligned.
   If Err <> 0 Then MsgBox Err.Description

End Sub
				

??????? 2: ????? ????? ?????/????? ????? ??????? ????? ??

??????? ??????? ????? ??????? ????? ??????? ???? ????? ????? ??????? ???? ???????. ????? ??????? ?? ????? ??????? ??? ?? ???? ??????? ?? ??????? ?? ????? ?????? ?????? ?????.
Sub ProtectIt()

   If ActiveDocument.ProtectionType = wdNoProtection Then
      ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
   End If

End Sub
				

??????? ???????: ????? ????? ?? ????? ?????? ?? ????? ??? ?? Reprotect ?????

???? ?? ????? ?? ????? ??????? ?? ??? ????? "? ????? ??????? ??????? ?????? ?????? ??? ???:
  • ???? ???? ????? ????? ???????.
  • ????? ????? ???? ???????.
  • ????? ????? ?????? ?? ????? ???.
  • reprotect ??????? ?? ???????? ???? ???? ????? ?? ???? ???????.
????? ??????? ??? ??????? ?? ????? "??? ?????" ??? ????? ??? ???? ????? ????? ????? ?????? ?? ????? ??? ??? ??? ???????.
Sub FormsSpellCheck()

   ' If document is protected, Unprotect it.
   If ActiveDocument.ProtectionType <> wdNoProtection Then
      ActiveDocument.Unprotect Password:=""
   End If

   ' Set the language for the document.
   Selection.WholeStory
   Selection.LanguageID = wdEnglishUS

   ' Perform Spelling/Grammar check.
   If Options.CheckGrammarWithSpelling = True Then
      ActiveDocument.CheckGrammar
   Else
      ActiveDocument.CheckSpelling
   End If

   ' ReProtect the document.
   If ActiveDocument.ProtectionType = wdNoProtection Then
      ActiveDocument.Protect Type:=wdAllowOnlyFormFields, NoReset:=True
   End If

End Sub
				
?????? ???: ???? ??? ?????????? ?? Visual Basic ?? ??????? ??? Microsoft Word 97 ?? Windows ? Microsoft Word 2000 ???? "??????? ????? ?????" ???? ?? Microsoft Office 2000. ??? ?????? ??? ?????????? ?? ????? ?????. ?????? ??????? ?? ??????? ??? ????? LanguageID ???? ???? ? ???? ????? ??????? NoProofing ?? Word 2000. ?????? ??? ??????? ?????? ??? ????? ?????? ???? ?? Microsoft Word 2000 ???? ??? ??? ??????? ????? ?????? ?? "????? ??????? ?? Microsoft:
191028WD2000: ????? ???????? ??????? ????? ?? ??? ????? ??? ????? ????? ?????

?????

?????? ??? ??????? ?????? ??? ?????? ??? ??????? Visual Basic for Applications ???? ??? ???? ????????? ????????? ??????? ?? "????? ??????? ?? Microsoft:
163425WD97: ????? ????? ?????
163435VBA: ????? ????? Visual Basic ?????????

???????

???? ???????: 181108 - ????? ??? ??????: 06/???? ??????/1435 - ??????: 2.6
????? ???
  • Microsoft Word 97 Standard Edition
????? ??????: 
kbnosurvey kbarchive kbmt kbdtacode kbinfo kbprogramming KB181108 KbMtar
????? ????
???: ??? ????? ??? ?????? ???????? ?????? ????? ???? ????? ?????????? ????? ?? ????????? ?????? ????. ???? ???? ?????????? ???? ?? ???????? ???????? ?????? ????????? ????? ????????? ???????? ????? ???????? ?????? ?? ?????? ??? ?? ???????? ???????? ?? ????? ??????? ?????? ??? ??????? ?????? ??. ?????? ?? ???? ??? ??????? ???????? ????? ?? ???? ????? ?????? ??? ????? ??? ????? ??????? ?? ????? ?? ?????? ??? ??? ??????? ??????? ?? ????? ????? ????? ????? ?????. ?? ????? ???? ?????????? ??????? ??? ????? ?? ??????? ?? ????? ?????? ?? ??? ????? ?? ????? ??????? ?? ???????? ?? ??? ???????. ???? ???? ?????????? ???????? ??? ????? ?????? ??????? ??????
???? ??? ????? ??????? ?????? ??????????181108

????? ???????

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com