Disable Fieldcode 'Fillin'

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Replacing Styles I have two questions concerning using a macro to find styles and replace them with other styes. First I am using this code to find and replace a styles ' ' Finds Style "Heading 4" and Replaces it with Style "Heading 3" ' Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting On Error Resume Next Selection.Find.Style = ActiveDocument.Styles("Heading 4") Selection.Find.Replacement.ClearFormatting Selection.Find.Replacement.Style = ActiveDocument.Styles("Heading 3") With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = True .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll I have many styles that are currently in a word document that I want the macro to find and replace with the style body for instance. Is there a better way to code this so that maybe five or more different styles can be replaced with the style body. My second question is if there is a way to code a find replace to replace an inline style (maybe wrong terminology) with a defined style. For example, replacing "body + bold" with "emphasis" Thanks for any help, -- Michael Tag: Disable Fieldcode 'Fillin' Tag: 77896
  - 2
    - How to Add field codes to table in footer? In using VBA I need to add a 1 row, 2 column int the footer. In the left column I need to display the current date and in the right column display page of pages. I can create the table, display the current date, but I cannot seem to add the page of pages to the right column. The error message I receive is: This command is not available. What I am trying to do is grab the cell as a range, then use that range to get the field result. I have used the activedocument.fields.add method, but it displays the the results right on document and not where I need it. Does anyone have any suggestions? Here is my code: Dim myRange As Range Dim strPageFld As String, strTotPageFld As String With ActiveDocument Set myRange = .Sections(1).Footers(wdHeaderFooterPrimary).Range .Tables.Add Range:=myRange, NumRows:=1, NumColumns:=2 myRange.Tables(1).Cell(1, 1).Range.ParagraphFormat.Alignment = wdAlignParagraphLeft myRange.Tables(1).Cell(1, 1).Range.Text = Format(Date, "MMMM dd, yyyy") Set myRange = myRange.Tables(1).Cell(1, 2).Range myRange.ParagraphFormat.Alignment = wdAlignParagraphRight strPageFld = myRange.Fields.Add(myRange, wdFieldPage).Result strTotPageFld = myRange.Fields.Add(myRange, wdFieldNumPages).Result myRange.Text = strPageFld & " of " & strTotPageFld End With Tag: Disable Fieldcode 'Fillin' Tag: 77895
  - 3
    - Removing all formfields from Doc What's the deal with this code? It errs when X = 6, although there are 9 FF's in the document. Sub deleteFFs() Dim X As Integer, tTotal As Integer tTotal = ActiveDocument.FormFields.Count For X = 1 To tTotal ActiveDocument.FormFields(X).Delete Next End Sub I tried writing something using "For each FF in ActiveDocument", but I don't know how to loop without using names or indices. It must be tooooo simple.... TIA Tag: Disable Fieldcode 'Fillin' Tag: 77894
  - 4
    - In WORD, Interactive FORMS? Can a FORM set up in Microsoft Word be designed such that, via the use of a MACRO, the form will prompt a user for specific field(s) information, and then have the MACRO test selected field(s) for the presence of data? Ex. A FORM asks for name, address, phone no. etc. information...the individual field(s), or name, address, phone no., are validated via a MACRO...Thanks for your assistance. Tag: Disable Fieldcode 'Fillin' Tag: 77891
  - 5
    - How do I write code to preserve variables values for future use. Is there anyway to write a code to pereserve the value of a variable for the next use. In other words, I would like to retain the last value I obtain by an input box for the next time I run the code. Can the value be saved within the code? Tag: Disable Fieldcode 'Fillin' Tag: 77887
  - 6
    - Is there a way to set the number of printing copies variably? I need to change the number of copies printed in Word from a field in my data. Is there a way to do this? Or else a way to repeat a record in Excel based on a number in a field? Tag: Disable Fieldcode 'Fillin' Tag: 77884
  - 7
    - Find and replace in Excel X for Mac Using Excel X for Mac, I'd like to find all commas in a column and replace them with hard returns/carriage returns (not soft returns). Since Excel doesn't recognize the Cntrl-Option-Return combo when I use the Replace function, I'm guessing I'll have to use a formula or a macro. I've seen several great suggestions for PC users, but none for Mac users. Thanks. Tag: Disable Fieldcode 'Fillin' Tag: 77882
  - 8
    - Is is possible to load 2 versions of Word (i.e.-2003 and 2000)? I have ACT! 2000 and Office 2003. I need to use Word as the default word processor. ACT! 2000 does not work with Word 2003, but it will work with Word 95 and 2000. Is it possible to have 2 versions of Word on a computer? Tag: Disable Fieldcode 'Fillin' Tag: 77881
  - 9
    - Need to add code to an existing document Hi all, We have an application that allows to make documents using Word. Some of ours clients have more than 10000 documents created. Now, one of them asked us if is it possilbe to avoid than end users close the document clicking on X. I found some code to do it but I need to add this code to any document. The idea is add the code every time an existing document is open or every time a new document is created. Is there any way to do this? How? Thanks in advance and excuse me for my english. Regards, Mauricio Nicastro Barcelona, Espa=F1a. Tag: Disable Fieldcode 'Fillin' Tag: 77878
  - 10
    - difference between vb and vb.net what's the difference between vb and vb .net. which one is better Thanks Tag: Disable Fieldcode 'Fillin' Tag: 77873
  - 11
    - Read word document text page-by-page Hi Is there any method by which I can read a word file from my VB application page-by-page? Currently, I can open the file and save the text as a text file, but what I need is a way to know the page numbers, so I though instead of saving the text as a text file, I might be able to read the text from the word file page-by-page and add the page numbers then save the text to a text file. Any ideas? Dana Tag: Disable Fieldcode 'Fillin' Tag: 77871
  - 12
    - what command line arguments are available for word I have found that argument 1 is the name of the document to open, and that there are various command line switches ( /mmacro) will execute a specific macro for instance. Is there any document that describes these features in detail ? Tag: Disable Fieldcode 'Fillin' Tag: 77862
  - 13
    - Chechbox problem I have designed a survey with checkboxes from control tool. I exit from the "Design Mode" and then save the document as word document (office 2002). When I open the document, it opens in "design mode" so people who are supposed to put a check mark in the boxes, are not able to do so unless they exit from the design mode first and then everything works fine. Not every one can recognize this problem, so how can I save the document so that when it is opened, it does not open in design mode? Thanks for your help. Dori Tag: Disable Fieldcode 'Fillin' Tag: 77861
  - 14
    - Having problem with the AddPicture method Trying the sample in Help results in an error message saying thet indata parameters are not within the interval! Whats wrong ? /Bosseh Tag: Disable Fieldcode 'Fillin' Tag: 77859
  - 15
    - what is the better download for microsoft word? I just want the best. thanks Tag: Disable Fieldcode 'Fillin' Tag: 77846
  - 16
    - Macro to turn squarebracket content into footnote I have a plain text file with hundreds of footnotes in square brackets that I want to turn into MS Word footnotes I'm kinda running out of time (measured in hours) Whilei I've used BASIC form PDP Dartmouth to GW, I haven't a clue about VB. Tag: Disable Fieldcode 'Fillin' Tag: 77830
  - 17
    - Need help with border removal in a cell Hi, I've been trying for hours to remove the bottom border of a cell in a Word table. I must be missing something obvious, so I hope someone can help me: The code I am using (from MS Access VBA) is the following: With doc.Tables.Item(1) ' removing stuff that works With .Cell(tbl.Rows.Count - 2, 4).Range .Text = "Here !" .Borders(wdBorderBottom).LineStyle = wdLineStyleNone .Borders.Enable = True End With ' removing other stuff that works as well End With For that particular cell, I would like to have no bottom border drawn. I am sure I am referencing the right cell because I am putting the "Here !" text and it appears as expected. I also checked that other contiguous cells formatting do not interfere with this one (e.g. activating the top border of the cell located under the one for which I want to remove the bootom border). Any help would be appreciated. Xavier Tag: Disable Fieldcode 'Fillin' Tag: 77815
  - 18
    - Set Format Picture | Layout using VBA I use the following code to insert a picture into Word 2000 from Access 2000: Dim db As DAO.Database Dim rst As DAO.Recordset Dim oShp As InlineShape Dim shp As Shape Set db = CurrentDb() Set rst = db.OpenRecordset("select * from tblData") Dim objWord As Word.Application ' Launch Word and load the invoice template Set objWord = New Word.Application objWord.Documents.Add "C:\CoverPage.dot" objWord.Visible = True ' Add header information using predefined bookmarks With objWord.ActiveDocument.Bookmarks .Item("PreparedFor").Range.Text = rst!PreparedFor .Item("PreparedForAddress").Range.Text = rst!PreparedForAddress Set oShp = .Item("GraphicFile").Range.InlineShapes.AddPicture("C:\210.jpg", False, True) End With With oShp .Fill.Visible = msoFalse .Fill.Transparency = 0# .Line.Weight = 0.75 .Line.DashStyle = msoLineSolid .Line.Style = msoLineSingle .Line.Transparency = 0# .Line.Visible = msoFalse .LockAspectRatio = msoFalse .Height = 291.1 .Width = 387.5 .PictureFormat.Brightness = 0.5 .PictureFormat.Contrast = 0.5 .PictureFormat.ColorType = msoPictureAutomatic .PictureFormat.CropLeft = 0# .PictureFormat.CropRight = 0# .PictureFormat.CropTop = 0# .PictureFormat.CropBottom = 0# Set shp = .ConvertToShape With shp .ZOrder msoSendBehindText .WrapFormat.Type = wdWrapTight End With End With Set oShp = Nothing Set shp = Nothing The above code inserts the picture and re-sizes it. However I am having problems with formating the picture. I need to set the following: Format Picture | Layout Wrapping Style = Infront of text Horizontal Position = Center I have tried to set this suing the code below Set shp = .ConvertToShape but with no luck. What is the correct syntax? Tag: Disable Fieldcode 'Fillin' Tag: 77805
  - 19
    - UserForm Is A Class I just finished reading a skull splitting discussion about "Magic Forms" and UserForms being Classes, etc, etc. One of the arguments put forth is that UserForms are classes and should be used as such. Quote: "Take the situation where you need to know in the code that loads the form whether the user pressed Cancel or OK." The author proposed that the solution was to extend the form by creating a read only property called "Cancel." He went on to provide about half the code necessary to do this and I can't figure out the rest. I have tried to construct a workable code from samples I have of created of another property in a class module. It simply isn't working. My question is how do you do what the author above (Peter Hewett) proposed. I have the code I attempted with an asterisk to the right of the lines Peter listed in his article. I get a compile error on the line: If myFrm.Cancel Then * "Method or DataMemeber not found" Thanks The code Public Sub MagicFormDiscussion() * Dim myFrm As oFrm6 * Set myFrm = New oFrm6 * Load myFrm myFrm.Cancel = False myFrm.Show * If myFrm.Cancel Then * MsgBox "Form was canceled" * Else * MsgBox "Form exited normally" * End If * MsgBox "Form complete" * Unload myFrm * Set myFrm = Nothing * End Sub * The UserForm (Simple form with two command buttons) Option Explicit Public mboolCancel As Boolean * Private Sub CmdCancel_Click() * mboolCancel = True * Me.Hide End Sub * Private Sub CmdOK_Click() * mboolCancel = False * Me.Hide End Sub * Private Property Get Cancel() As Boolean * Cancel = mboolCancel * End Property * Public Property Let Cancel(NewValue As Boolean) mboolCancel = NewValue End Property * -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. Tag: Disable Fieldcode 'Fillin' Tag: 77800
  - 20
    - changes in multiple templates I have about 200 templates and some text/paragraphs in these templates are similar. I am trying to create a file where I make changes in one and it changes in all files. Is it possible to do this with VBA or I should use MS Word option by creating master document... Thanks for the help.. Tag: Disable Fieldcode 'Fillin' Tag: 77794
  - 21
    - Setting Autotext "Look In" field Is there a way using Word VBA to set the "Look In" field in the AutoText dialog box to "All Active Templates?" I have macros that depend on this being set this way and I cannot figure out any way to insure that it is set to "All Active Templates" prior to running. We're using Word 2003. Any help would be greatly appreciated. - David Tag: Disable Fieldcode 'Fillin' Tag: 77782
  - 22
    - Need to know how to un-select a textbox and return to top of page Hello, I have a document with several textboxes near the top. I'm using a macro to insert text into them. After I have added my text to the last one, I need to un-select the textbox and return the cursor back to the top left (home?) of the document so I can move down the page to start inserting more text (NOT in another textbox, just on the page). I can't figure out how to do this with VBA code. Normally I can just click the mouse cursor back at the top of the doc after typing in the last textbox, but obviously this can't be done while recording the macro. Can anyone help? Thanks. (Using Word 2002) Tag: Disable Fieldcode 'Fillin' Tag: 77778
  - 23
    - insert DATABASE within mailmerge essentially I have a mail merge that produces headings and parameters for a DATABASE query, so for every mailmerge heading there is a new query that produces a table under that mailmerge heading. Problem is that I want to use me.path in order to fill the path to the database in the query vs. hard coding it. Below are some scratchy comments about what I have tried so far. when you do an insert -> DATABASE and use a mailmerge field inside of the text that you use for the DATABASE connection. I need to use the me.path in that as well but don't know how to replace that text. I know I can access that DATABASE text via: ActiveDocument.Fields(2).Code For example if I make a button and in the click event put a msgbox(ActiveDocument.Fields(2).Code) it will show me what is being used in the DATABASE query. But when I try to fill a string var with the correct code and stick that string into the ActiveDocument.Fields(2).Code object via: ActiveDocument.Fields(2).Code = tempstr it errors. maybe because I am running it inside the document.open() func. if not here then where do I run it? I can't do it manually via buttons etc. this is all suppose to be an automated process. Tag: Disable Fieldcode 'Fillin' Tag: 77771
  - 24
    - How to test if a user button is on a menu I have added a button to the Tools menu. CommandBars("Menu Bar").Controls("Tools").Controls("AutoFooter is On") How can I test if the user has removed it? I use Word 2003 and Win2000. Regards, Jan Nordgreen Tag: Disable Fieldcode 'Fillin' Tag: 77768
  - 25
    - How to refer to a menu button not using its caption. I have code that puts a button on the Tools menu: CustomizationContext = ActiveDocument.AttachedTemplate With CommandBars("Menu Bar").Controls("Tools").Controls Set mybutton = .Add(Type:=msoControlButton) 'mybutton.BeginGroup = True ' gives a separator above the button mybutton.FaceId = 990 ' 2174 ' 7391 mybutton.Caption = "AutoFooter is On" mybutton.OnAction = "MacroOn" mybutton.Visible = True End With To display the caption I can use: CommandBars("Menu Bar").Controls("Tools").Controls("AutoFooter is On").Caption But, if I want the user to be able to toggle the caption to "AutoFooter is Off", how can I then test which caption it has? I use Word 2003 and Win2000. Regards, Jan Nordgreen Tag: Disable Fieldcode 'Fillin' Tag: 77767
- Next
  - 1
    - USING THE ENTER KEY..... i am almost done with our employment application. Sent it off to have co-workers test it and give feedback. One issue that came back was if there is a way applicants can use the ENTER key to go from field to field instead of using the TAB key. I would like to know this as well. Just a coupe notes: 1. I have never used a macro--not even familiar with them. The form has none. 2. I'm using Word 2000, if a person with any version of Word of than what i have, will they experience problems when filling in the form? Tag: Disable Fieldcode 'Fillin' Tag: 77764
  - 2
    - Toolbar Icon I need a toolbar button which indicates an on/off condition and also to be able to read it's current state any assistance greatly appreciated. Regards -- >>=== GWizz ===<< Tag: Disable Fieldcode 'Fillin' Tag: 77756
  - 3
    - How to share macros on a network? I have written a macro AddAutoFooterMenu that adds a button called AutoFooter to the Tools menu. When the button is checked, a footer with date, time, filename, and path is automatically created when you save a document thanks to a set of macros. When the button is unchecked, no footer is created when documents are saved. How do I make the macros available to 200 users on a network? How do I get the macro AddAutoFooterMenu to run once on every machine? The computers are all Win2000 or WinXP. I use Word 2003. I am grateful for your help! Regards, Jan Nordgreen Tag: Disable Fieldcode 'Fillin' Tag: 77754
  - 4
    - UserForm Data Validation. I tried and tried but can't figure it out. Steve Hudson was schooling me in UserForms earlier today. He advised user form code should pretty well only exist in order to provide data validation trough calling public procedures. I tried employing one of his "modified" suggestions as follows. I have a simple userform oFrm1 with a 1) command button and 2) a frame with one textbox inside. The purpose of this exercise is to learn to pass information from a calling macro to a UserForm and report validated information back to the calling macro. I am using an input box with a default value to set the Frame.Caption in the UserForm. This part works. I am using the textbox in the Userform to provide raw data to a Function. The Function is supposed to validate the data. Then the validated textbox data is used to set the value of a calling macro msgbox. Everything works if the data is valid. The problem I can't figure out is correcting invalid data. On the first pass, invalid data is detected and I am directed back to the Userform. However, when I then enter valid data the routing complete but the data is lost. I think my problem is that after I enter valid data, the code returns to the function at the End With statement following .Show. For some reason this scrambles the data and I just can't figure out a way around it. Any help to get me back on track is appreciated. Here is my calling macro: Option Explicit Public oPassedData As String Public frmObject As myObject Public myFrm As oFrm1 Sub PassData1() Set myFrm = New oFrm1 'Pass Caption to UserForm.Frame1 myFrm.Frame1.Caption = InputBox("Enter Label1 Caption: ", _ "Pass Caption", "Enter a shoe size e.g., 10E") myFrm.Show MsgBox "Formatted date returned from the UserForm: " _ & myFrm.TextBox1.Text, , "Data Returned" Set myFrm = Nothing End Sub Here is the UserForm Code: Private Sub CommandButton1_Click() Me.hide 'Dismiss the form and return processing to the caller 'Call a Function to validate data TextBox1.Text = ShoeSizeValidator(TextBox1.Text) End Sub Here is the validating Function: Function ShoeSizeValidator(oShoeSize As String) As String If IsNumeric(oShoeSize) Then ShoeSizeValidator = oShoeSize Else With myFrm .Frame1.Caption = "Invalid entry. Please enter a valid size." .TextBox1.Text = oShoeSize With .TextBox1 .SetFocus .SelStart = 0 .SelLength = Len(.Text) End With .Show End With End If End Function -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. Tag: Disable Fieldcode 'Fillin' Tag: 77747
  - 5
    - User Defined Object I am trying to create and object and then create/define a property of that object. My homework is to make sense of something like this' Public MyStupidIdea as SomeObjectType Sub Test() Set MyStupidIdea = New SomeObjectType MyStupidIdea.MyPointlessProperty = Something MsgBox myStupidIdea.MyPointlessProperty End Sub Don't laugh, my Sensei is always deadly serious ;-) The idea of a user defined object really shivers my timbers. I don't have much experience with them. The only thing I have used is a Class module with Property Get and Let statements. So I proceded as follows: I created a new Class Module and named it myObject In the class module I used the following code: Option Explicit Private mTag As String Public Property Get Tag() As String Tag = mTag End Property Public Property Let Tag(NewValue As String) mTag = NewValue End Property In the project module I used the following code: Public frmObject As MyObject Sub Test() Set frmObject = New MyObject frmObject.Tag = "Almost there!!" MsgBox frmObject.Tag Set frmObject = Nothing End Sub This works. My question is do I have to use a class module to create a user defined object? Is there some generic object in Word that I could use to set property values for easy use? Something like: Dim myObject as GenericObject Set myObject = New GenericObject myOject.Name = "Greg" MsgBox myObject.Name Set myObject = Nothin Is there a easier or simpler way rather than the Class module? Thanks. -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. Tag: Disable Fieldcode 'Fillin' Tag: 77744
  - 6
    - ActiveX control Hi, I have an ActiveX control in a Word document, which shows an image generated at runtime. The problem is, if a user who has not this control installed opens the document, it still might show an image generated at the time the document has been saved. Is there any way to prevent Word from saving the image of the control? I know I could intercept FileSave and FileSaveAs from a macro, but is it possible to do it from the control itself, ie make it act as an installed Word plugin? I'd like it to work with Word 97 and up. Alex. Tag: Disable Fieldcode 'Fillin' Tag: 77742
  - 7
    - Puzzling behaviour Hi all! I have a template that contains a complicated userform that lets the user create a document according to the type of information they want and according to corporate policies. Also, the template has customized toolbars that offer assistance for later editing. The toolbar content is drastically different based on the type of document created. So, I built 4 toolbars by code, finished them by hand and added a DocumentChange event to display the appropriate toolbar depending on the type of document (which contains a DocVariable to tell the Change event which toolbar to display). So far, so good, everything works as I wanted. I have, however, just discovered a small annoyance and after spending a few hours on this I need help! Let's say I create a document and save it (calling it Test1.doc) I close Word. I open Test1.doc I double click on the template name in Windows Explorer to create a new document based on the same template that Test1.doc is based on. The procedure runs fine, I select my info and type of document through the userform. I click OK on the said userform. The code runs and does its job. When it has finished, the Windows taskbar highlights Document1 which has just been created, but the screen displays Test1.doc. This only happens in this case. If I create a document based on the template and not save (leave it on the screen unsaved) and create a second document I never see this behaviour. If I keep creating documents based on the same template when Test1.doc is first opened, then the document preceding the cone being created ends up being displayed (i.e., when creating Document2, Document 1 ends up on the screen while Document2 is highlighted on the taskbar, etc.) I have tried adding ActiveWindow.SetFocus and/or ActivePane.Activate using either ActiveDocument or Documents("DocumentName") to no avail. The funny thing is that sometimes it does not do that. Is this a coding, a Word or a display problem? TIA -- Salut! _______________________________________ Jean-Guy Marcil - Word MVP jmarcilREMOVE@CAPSsympatico.caTHISTOO Word MVP site: http://www.word.mvps.org Tag: Disable Fieldcode 'Fillin' Tag: 77739
  - 8
    - I'll pay $5 to have answered the "VBA Question..." post above. See the post above entitled "VBA Question: Edited slides pasted into Word doc are not saved" on 12/6/05. Tag: Disable Fieldcode 'Fillin' Tag: 77737
  - 9
    - Auto Filling a Form Field by Typing in Another Form Field Hello, Question: I have two Form fields, both are in different tables, but should display the same information. What I want to happen is if you fill out the the first form field, the second form field will auto generate the same information. How can this be accomplished? Thanks, bbkixx Tag: Disable Fieldcode 'Fillin' Tag: 77730
  - 10
    - Modifying Mail Merge Code Word 2003. I have some mailmerge documents that point to Access database queries. How can I get at the actual code in the Word document that points to the database and query (the SQL statement)? The location of the database has changed and I do not want to have to go through the entire "Find data source" routine to get the Word document pointed at the database and query in its new location. I suspect there must be a way, although I have tried looking at the code behind these Word documents and find nothing there. Where is this SQL being stored for the document? Thanks for the help. -- Dr. Doug Pruiett Good News Jail & Prison Ministry www.goodnewsjail.org Tag: Disable Fieldcode 'Fillin' Tag: 77726
  - 11
    - Distributing a macro and form I have a complex macro that (now) resides in the code for a user form, frmMain. I have another macro that simply calls the form (frmMain.show). I need to give the form and calling macro to a few departments. Is there an "easy" way to send the files and tell people how to install them? I know how to export the form to a .frm file and the macro to a .bas file, and can email those (do I have to send the .frx, as well?). How do I have people "install" the form and macro? I can give them instructions on how to open the VB editor and import (or can do it for them), but was wondering if there is an easier way. Actually, if I export all my macros and delete all but the one the other folks need, how do I have them import just that macro without overwriting other macros they may have? Thanks, Bob Tag: Disable Fieldcode 'Fillin' Tag: 77720
  - 12
    - ActiveX controls I want to learn how to use activeX controls to create a web doc with Word. I am not a programmer nor do I want to go into visual basic. Would any of you know of a good site/book/cd which would have crytal clear explanations as to how use existing activeX controls with maybe some exercises? Free would be ideal for me :-). I have WORD 2000 Many thanks in advance Pascale Tag: Disable Fieldcode 'Fillin' Tag: 77719
  - 13
    - How do I save an opened document that has no changes to it? I open a document and immeditaley click the save button. The document is not being saved again, which is OK in normal circumstances as it would be a waste of time to save when no changes have been made. However, I have a macro FileSave that puts a footer in my document before it save it. If I open a document with no footer and saves it immediately before making any changes, it will not get my custom footer. What can I do? Tag: Disable Fieldcode 'Fillin' Tag: 77713
  - 14
    - Saving documents Wanting to save a document to a predefined path but i want it to bring up the saveas dialog box with a uniquely generated name. I have coded the name generation & path defining code but struggle to bring up the SaveAs dialog box populated with the predifned filename. I specifically want the user to be able to overide it immediately before saving. Any ideas greatly appreciated. Regards -- >>=== GWizz ===<< Tag: Disable Fieldcode 'Fillin' Tag: 77712
  - 15
    - What is the faceid number for the check sign? In MS Word 2003 the button for the Ruler on the View menu has a check sign to the left of it. Does anyone know its FaceId number? Tag: Disable Fieldcode 'Fillin' Tag: 77711
  - 16
    - Combining small already completed Templates with form fields How do I combine three templates into one master template. I would also like to know how to program the form fields to copy from other form fields. Microsoft Office 2003 Tag: Disable Fieldcode 'Fillin' Tag: 77710
  - 17
    - Add custom controls on msoCommandBar and show like spell checker? Hi, I want to add my controls on msoCommandBar like spell checker is doing. You can see below where I want to display my controls and do my processing on those controls. http://www.infolink.net.pk/images/pane.jpg Thanks, -Irfan Tag: Disable Fieldcode 'Fillin' Tag: 77699
  - 18
    - Inserting AutoText I just noticed a problem inserting AutoText with VBA. Several weeks ago I created several AutoText entries under a Style named "Toggles." This resulted in a category in my AutoText list where I can select from a variety of similiar entries. Today I recorded the following macro: Sub InsertAutoText() ' Macro recorded 12/08/2005 by CDR G. K. Maxey Application.DisplayAutoCompleteTips = True NormalTemplate.AutoTextEntries("Checked Box").Insert Where:=Selection. _ Range End Sub The action of recording the macro did in fact insert the AutoText entry I have for a checked box. I then attempted to run the macro and recieved a runtime error 5941 "The member of the collection does not exist." Next I tried changing ("Checked Box") to (8). The "Checked Box" entry is the 8th member of my AutoText enties in the list Insert>AutoText>AutoText. The result after running this revised macro is that "Confidential" is inserted in at the selection. Confidential is the 10th entry in my AutoText list. :-( Next I selected my checked box and created a new AutoText entry named "Checked Box1" and changed the code in the above macro to "Checked Box1." It performed as expected and inserted the checked box at the selection. I the problem is related to the fact that "Checked Box" is an AutoText entry that I created in a style named "Toggles." How do you programatically insert an AutoText entry created in this manner? Thanks. Tag: Disable Fieldcode 'Fillin' Tag: 77697
  - 19
    - Word AddAsk and Reference Help I am trying to write two macros for Word to assist in the writing of minutes and the construction of an action table. Whilst typing the minutes, the user runs the AddAction Sub when he / she wants to insert an action. Then, the user is then asked two questions - who is the owner of the action and what is the action itself. Their responses should appear at the current position in the text, along with some additional text and formatting. Once the user has completed the minutes, he / she runs the ActionTable Sub. This sub consists of several components - one to copy the table from last weekâ??s minutes (from Section 2 of the document to Section 4), then to add, by referencing, all the owners and actions that the user has inserted in the minutes (from Section 3), and finally to remove the resolved actions and tidy up the table. Below is a sample minutes document and the code that I have written so far. Everything is working nicely except the AddAction and AddNewAction subs. I have been working on the assumption that the easiest way to achieve the desire result is to use AddAskâ??s and REFs, but I would welcome other suggestions and any corrections to my obviously incorrect code. ======================================= Header Info Owner Action Status KF X-mas shopping Resolved AS X-mas shopping Ongoing KF Cooking Pending AS Cleaning mud off the floor! KF Laundry KF Dry Cleaning Resolved Text of Minutes ========================================== Sub AddAction() Selection.Font.Bold = wdToggle If Selection.Font.Underline = wdUnderlineNone Then Selection.Font.Underline = wdUnderlineSingle Else Selection.Font.Underline = wdUnderlineNone End If Selection.TypeText Text:="Action:" Selection.Font.Bold = wdToggle If Selection.Font.Underline = wdUnderlineNone Then Selection.Font.Underline = wdUnderlineSingle Else Selection.Font.Underline = wdUnderlineNone End If Selection.TypeText Text:=" " ReDim aMarks(ActiveDocument.Bookmarks.Count) i = 1 With ActiveDocument.Bookmarks .Add (aMarks(i)) End With ActiveDocument.MailMerge.Fields.AddAsk Range:=Selection.Range, Prompt:="Owner?", Name:=aMarks(i) i = i + 1 Selection.TypeText Text:=" to " ActiveDocument.MailMerge.Fields.AddAsk Range:=Selection.Range, Prompt:="Action?", Name:=aMarks(i) With ActiveDocument.Bookmarks .Add (aMarks(i)) End With End Sub Sub ActionTable() Call CopyOldTable Call AddNewActions Call FormatFinalTable End Sub Sub CopyOldTable() Selection.GoTo what:=wdGoToSection, Which:=wdGoToFirst, Count:=2, Name:="" If ActiveDocument.Tables.Count >= 1 Then _ ActiveDocument.Tables(1).Range.Copy Selection.GoTo what:=wdGoToSection, Which:=wdGoToFirst, Count:=4, Name:="" Selection.Paste Dim oRow As Row Dim oCell As Cell Dim sCellText As String For Each oRow In ActiveDocument.Tables(2).Rows For Each oCell In oRow.Cells sCellText = oCell.Range sCellText = Left$(sCellText, Len(sCellText) - 2) If sCellText = "Resolved" Then oRow.Delete End If Next oCell Next oRow End Sub Sub AddNewActions() Selection.GoTo what:=wdGoToSection, Which:=wdGoToFirst, Count:=4, Name:="" Selection.GoTo what:=wdGoToTable, Which:=wdGoToFirst, Count:=2, Name:="" Selection.EndKey Unit:=wdColumn Selection.EndKey Unit:=wdRow Selection.MoveRight Unit:=wdCell myOtherRange = ActiveDocument.Sections(3) ReDim aMarks(myOtherRange.Bookmarks.Count) myRange = ActiveDocument.Tables(2) For Each aMarks In myOtherRange Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ "REF aMarks(i)", PreserveFormatting:=False Selection.EndKey Unit:=wdColumn Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ "REF aMarks(i+1)", PreserveFormatting:=False Selection.MoveRight Unit:=wdCell Selection.MoveRight Unit:=wdCell Selection.MoveRight Unit:=wdCell Next End Sub Sub FormatFinalTable() Selection.Sort ExcludeHeader:=True, FieldNumber:="Column 1", SortFieldType _ :=wdSortFieldAlphanumeric, SortOrder:=wdSortOrderAscending, FieldNumber2 _ :="", SortFieldType2:=wdSortFieldAlphanumeric, SortOrder2:= _ wdSortOrderAscending, FieldNumber3:="", SortFieldType3:= _ wdSortFieldAlphanumeric, SortOrder3:=wdSortOrderAscending, Separator:= _ wdSortSeparateByTabs, SortColumn:=False, CaseSensitive:=False, LanguageID _ :=wdEnglishUK End Sub -- Regards, Martin Tag: Disable Fieldcode 'Fillin' Tag: 77694
  - 20
    - how do wrapround text I am creating a newsletter for our family golf day and want to include pictures with wraprpound text as in newspapers Tag: Disable Fieldcode 'Fillin' Tag: 77693
  - 21
    - Four idiotic questions... :/ I have three various questions that right now smoke my brain... :/ 1) Let's say you have a special style with a shortcut. You put that in a menu. How do you get the shortcut to show a bit to the right (as in Edit, Copy where Ctrl+C shows to the right)? Do you just press space 20 times and type the shortcut name or what? 2) Forms: You put a field or label on a form. How do you toggle the font between bold and regular? 3) Forms: You put a button on a form with Caption OK. You want the letter O underlined so if you press O it is chosen. How? 4) Forms: Same OK button plus a Cancel button. You want them to react from Esc or Enter. Thanks!! /e Tag: Disable Fieldcode 'Fillin' Tag: 77690
  - 22
    - AutoCorrect Help Required Hi, We are developing a custom application in vb.net. We need the AutoCorrect functionality in all textboxes like the one w have in MS Word. It should work like this: If we type a word in textbox, then it should automatically correct i if a matched entry is found in AutoCorrect. Like if we type 'acn' i should automatically replace it with 'can' -- itecolPosted from - http://www.officehelp.i Tag: Disable Fieldcode 'Fillin' Tag: 77685
  - 23
    - SendKeys hangs the system for about a minute on first execution I'm executing the following code and it appears that the SendKeys statement is causing the system to "hang" for about a minute the first time it's executed. The cursor freezes and it appears that the system is completely hung but after a minute, the application.printout statement executes as if nothing had happened. Anyone got any idea why it's hanging and what I can do about it?? Thanks Mike pdffilename = "C:\MarketingSheets\" _ & DocumentSettings.FileName _ & LogoName _ & ".pdf" ' SendKeys pdffilename + "{enter}" Application.PrintOut _ Range:=wdPrintAllDocument, _ Item:=wdPrintDocumentContent, _ Copies:=1, _ Pages:="", _ PageType:=wdPrintAllPages, _ Collate:=True, _ Background:=False, _ PrintToFile:=False, _ PrintZoomColumn:=0, _ PrintZoomRow:=0, _ PrintZoomPaperWidth:=0, _ PrintZoomPaperHeight:=0 -- -- Mike Starr WriteStarr Information Services Technical Writer - Online Help Developer - Technical Illustrator Graphic Designer - Desktop Publisher - MS Office Expert (262) 694-1028 - mike@writestarr.com - http://www.writestarr.com Tag: Disable Fieldcode 'Fillin' Tag: 77684
  - 24
    - Word remap Ctrl+S Hi, I am wanting to remap the MSWord 2002 save shortcut Ctrl+S so that when a user presses the Ctrl+S instead of doing a save it runs my code and i choose to do the save or not. The code i currently have is : ... Private WithEvents objWordApp As Word.Application ... objWordApp.CustomizationContext = objWordApp.ActiveDocument objWordApp.KeyBindings.Add(Word.WdKeyCategory.wdKeyCategoryMacro, "TestIt", objWordApp.BuildKeyCode(Word.WdKey.wdKeyControl.wdKeyControl, Word.WdKey.wdKeyControl.wdKeyS)) ... Private Sub TestIt() messagebox.show("in here") End Sub The error message that comes up is : "Word cannot change the function of ther specified key" Can anyone offer some suggestions. Thanks Clinton Tag: Disable Fieldcode 'Fillin' Tag: 77678
  - 25
    - Misspelled words I Have a very large word list that I would like to reduce. Is the a way I can put it in word and write a VBA code that if it is misspelled to DELETE the word. Intutively it should be simple but I do not know how to approach it Tag: Disable Fieldcode 'Fillin' Tag: 77676

In a doc the fieldcode 'Fillin' is used.

When using this document in a vb script (in this case printing) a window wil
open and show the contens of the Fillin code.

I like to disable the filin code during printing;

========================================================
FileName="D:\KLANTEN\Stork\TESTENV\vb\jim.doc"
PrinterName = "STORKH08815"

Dim WordObj
' On Error Resume Next
Set WordObj = CreateObject("Word.Application")
' This doenst work :-) WordObj.Wdfieldtype.wdfieldfillin = False

WordObj.Documents.Open FileName
WordObj.ActivePrinter = PrinterName
WordObj.PrintOut
WordObj.Quit

===============================

Thnx

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.aspx/word-programming/200512/1

Top

Re: Disable Fieldcode 'Fillin' by Jean-Guy

Jean-Guy
Tue Dec 13 13:08:56 CST 2005

Jim via OfficeKB.com was telling us:
Jim via OfficeKB.com nous racontait que :

> In a doc the fieldcode 'Fillin' is used.
>
> When using this document in a vb script (in this case printing) a
> window wil open and show the contens of the Fillin code.
>
> I like to disable the filin code during printing;
>
> ========================================================
> FileName="D:\KLANTEN\Stork\TESTENV\vb\jim.doc"
> PrinterName = "STORKH08815"
>
> Dim WordObj
> ' On Error Resume Next
> Set WordObj = CreateObject("Word.Application")
> ' This doenst work :-) WordObj.Wdfieldtype.wdfieldfillin = False
>
> WordObj.Documents.Open FileName
> WordObj.ActivePrinter = PrinterName
> WordObj.PrintOut
> WordObj.Quit
>
> ===============================
>
Try something like this:

Const FileName As String = "D:\KLANTEN\Stork\TESTENV\vb\jim.doc"
Const PrinterName As String = "STORKH08815"
Dim WordObj As Word.Application
Dim UserFieldUpdateStatus As Boolean

Set WordObj = CreateObject("Word.Application")

With WordObj
.Documents.Open FileName
UserFieldUpdateStatus = .Options.UpdateFieldsAtPrint
.ActivePrinter = PrinterName
.PrintOut
.Options.UpdateFieldsAtPrint = UserFieldUpdateStatus
.Quit
End With

--
Salut!
_______________________________________
Jean-Guy Marcil - Word MVP
jmarcilREMOVE@CAPSsympatico.caTHISTOO
Word MVP site: http://www.word.mvps.org

Top