양식 작업을 할 때 Word에서 새 문서의 기초로 사용되는 서식 파일로 양식을 저장합니다. 양식 서식 파일을 기반으로 새 문서를 만들 때마다 증가하는 양식 필드를 추가하려는 경우가있을 수 있습니다. 예를 들어 데이터 입력 양식에 필요한 시퀀스 번호가 있거나 양식 필드를 사용하여 invoice를 표시 할 수 있습니다. 번호.

Word에는 멋진 자동 증가 필드가 없습니다. 그러나 Word에서 이미 사용할 수있는 도구 중 일부를 결합하면 템플릿과 양식 필드를 만들어서 작업을 수행 할 수 있습니다. 이 매크로로 시작 :

Sub AutoNew()

' Exit macro if no fields in document    If ActiveDocument.FormFields.Count = 0 Then Exit Sub    ' Create variables.

Dim OfficeAppName As String    Dim RegSection As String    Dim RegKey As String    Dim FieldObj As Object    Dim RegValue As Long

OfficeAppName = "Word 2002"

RegSection = "UserData"

RegKey = "Current Counter"

' Generate error if form field doesn't exist    On Error GoTo ErrHandler    Set FieldObj = ActiveDocument.FormFields("IncField")

' Get stored registry value, if any    RegValue = GetSetting(OfficeAppName, RegSection, RegKey, 0)

' If not previously set, set to default    If RegValue = 0 Then RegValue = 1    ' Set form field result to stored value    FieldObj.Result = CStr(RegValue)

' Increment and update invoice number    SaveSetting OfficeAppName, RegSection, RegKey, RegValue + 1 ErrHandler:

If Err <> 0 Then       MsgBox Err.Description    End If End Sub

이 매크로는 양식을 만드는 데 사용할 템플릿에만 저장해야합니다. 매크로의 이름은 AutoNew 여야하므로 양식 서식 파일을 기반으로하는 문서를 만들 때마다 실행됩니다. 또한 증분 번호를 표시하는 IncField라는 문서에 텍스트 양식 필드가 있는지 확인해야합니다. 번호는 레지스트리에서 추적되므로 향후 양식에 액세스 할 수 있습니다.

OfficeAppName 변수를 설정하는 매크로 줄을 확인합니다. 이 매크로 버전에서는 “Word 2002″라는 구로 설정됩니다. 다른 버전의 Word를 사용하는 경우 “Word 2000″또는 “Word 2003″과 같은 버전을 참조하도록이 줄을 수정해야합니다.

_ 참고 : _

이 페이지 (또는 WordTips 사이트의 다른 페이지)에 설명 된 매크로를 사용하는 방법을 알고 싶다면 유용한 정보가 포함 된 특별 페이지를 준비했습니다.

link : / wordribbon-WordTipsMacros [새 브라우저 탭에서 특별 페이지를 열려면 여기를 클릭하세요].

_WordTips_는 비용 효율적인 Microsoft Word 교육을위한 소스입니다.

(Microsoft Word는 세계에서 가장 널리 사용되는 워드 프로세싱 소프트웨어입니다.)이 팁 (1329)은 Microsoft Word 97, 2000, 2002 및 2003에 적용됩니다. Word의 리본 인터페이스에 대한이 팁 버전 (Word 2007)을 찾을 수 있습니다. 이후) 여기 :

link : / wordribbon-Auto-incrementing_Form_Fields [Auto-incrementing Form Fields].