Results 1 to 3 of 3

Thread: Word Form with fields

  1. #1

    Thread Starter
    Banned dglienna's Avatar
    Join Date
    Jun 2004
    Location
    Center of it all
    Posts
    17,901

    Word Form with fields

    I need to make a form with fields that a user can fill in. I am having a problem, as the field size is changing when I try to enter data into it, even when I locked changes to the template.

    Is there a simple way to do this, or should I be looking at using something else, like a VB program with a RTB? This would be like the first line. When I type in the name, the date moves to the right.

    Name _____________ Date __________
    Now, using tables, but it still seems like the hard way. Any hints?
    Last edited by dglienna; May 27th, 2005 at 04:49 PM.

  2. #2

    Thread Starter
    Banned dglienna's Avatar
    Join Date
    Jun 2004
    Location
    Center of it all
    Posts
    17,901

    Re: Word Form with fields

    Nobody has a better method? I don't need to save the data, just get it printed out without using pen and paper. Of course, the next step would be saving the data, so I don't want to lock that out either.

    I think it's going to work out. Maybe not perfectly the first time, but I did half of the 4 pages today, and it seems OK.

    I was hoping someone had a comment before I got to the point of no return or had to redo. I don't like doing something twice

  3. #3
    I don't do your homework! opus's Avatar
    Join Date
    Jun 2000
    Location
    Good Old Europe
    Posts
    3,863

    Re: Word Form with fields

    I believe you can set the properities of such fields to allow less then unlimited characters.
    I recorded a macro while doing that
    VB Code:
    1. CommandBars("Forms").Visible = True
    2.     Selection.FormFields.Add Range:=Selection.Range, Type:= _
    3.         wdFieldFormTextInput
    4.     Selection.PreviousField.Select
    5.     With Selection.FormFields(1)
    6.         .Name = "Text2"
    7.         .EntryMacro = ""
    8.         .ExitMacro = ""
    9.         .Enabled = True
    10.         .OwnHelp = False
    11.         .HelpText = ""
    12.         .OwnStatus = False
    13.         .StatusText = ""
    14.         With .TextInput
    15.             .EditType Type:=wdRegularText, Default:="", Format:=""
    16.             .Width = 11
    17.         End With
    18.     End With
    I hope that helps!
    You're welcome to rate this post!
    If your problem is solved, please use the Mark thread as resolved button


    Wait, I'm too old to hurry!

Posting Permissions

  • You may not post new threads
  • You may not post replies
  • You may not post attachments
  • You may not edit your posts
  •  



Click Here to Expand Forum to Full Width