Determine if Paragraph is emty-Word 2000

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Which range contains this table cell? I have a large table with several named ranges. How can I find which named range a particular cell is a part of? Ed Tag: Determine if Paragraph is emty-Word 2000 Tag: 77920
  - 2
    - ChangeFileOpenDirectory doesn't always work We use the following macro code to open our directories: Sub Open1() ' ChangeFileOpenDirectory "W:\1\" Dialogs(wdDialogFileOpen).Show End Sub We have a macro just like the above for each folder, i.e. w:\2\, w:\3\, etc. The problem is running the macro only works if the user does not open a document. If s/he does open a document, the next time the macro is run, it simply opens up My Documents. Is there any way that the code can be modified so that the macros always work, regardless of whether a document was opened? Claudia Carvalho Tag: Determine if Paragraph is emty-Word 2000 Tag: 77919
  - 3
    - Runtime Error 509 I have a protected document created from a template, our programmers are trying to use a shellexecute print command to print the document, however the TmpDDE command that is created errors with Runtime error 509 because it is trying to do a "WordBasic.SetDocumentDirty t" The same thing happens if you right click and do print from the Windows XP explorer. This only seems to be a problem in Office 2003. Does anyone know if there is a way supress the dirty flag or this error? Thanks Tag: Determine if Paragraph is emty-Word 2000 Tag: 77914
  - 4
    - Headers should not appear in the first section. I'm trying to create a macro that sets the headers for a document in the following way: - Odd & even pages have different headers (no problem here); - The first 2 pages of the document should not contain any headers (these pages make up section 1 of the document) (problem here); - Page numbering should start from 1 on the third page (which is the first page of section 2) (no problem here); - The remaining pages of the document are in various sections. The problem so far is that I can't get this to work in any way (not even manually). I always end up with a header on page 2 (but not on page 1, although I mentioned that the first page should not be threated special.) I'd be very happy with code advice or anything that enables me to create a correct situation manually first. Kind regards, rVo Tag: Determine if Paragraph is emty-Word 2000 Tag: 77913
  - 5
    - Programmatically setting margins not working Hello Everyone, I posted this message back in May but was then pulled off of the project and onto something new and didn't have time to revisit it. I am still having this exact error. The program is actually sitting on a network drive on a windows 2000 box and when the user open from there the margins are set the same as the normal template and have not changed to what i set them too, they do not experience any error messages or anything out of the ordinary. Any ideas would help greatly!! I have a macro that produces a word document when all is said and done. I have some code that goes and sets the margins programmatically, the code is as follows: Set myRange = ActiveDocument.Range With myRange .PageSetup.TopMargin = CentimetersToPoints(1) .PageSetup.BottomMargin = CentimetersToPoints(1) .PageSetup.LeftMargin = CentimetersToPoints(0.9) .PageSetup.RightMargin = CentimetersToPoints(0.9) .Font.Size = 11 .Font.Name = "Times New Roman" End With this works perfectly when i run it on my own machine but when it's run on other people's machines it doesn't work at all. I should also note that the font setting works on any computer and that the page margins and font are different in Normal.dot on my computer and the others i have tested on. Am i doing something wrong?? Thanks, Erin Tag: Determine if Paragraph is emty-Word 2000 Tag: 77906
  - 6
    - how to digitally sign XML documents step by step Hi I would like to digitally sign the XML documents I am producing from word . Has anyone of you relevant knowledge to guide me step by step ? Any help mostly appreciated Regards Tag: Determine if Paragraph is emty-Word 2000 Tag: 77905
  - 7
    - Toolbars, Add-ins, etc. Hi all, I've been tasked with writing a transcription program. I have to use Word. I have some questions about programming in Word. I've done a bit of automation in the past. The basics are that the application will be a fat client residing on the users machine. The app starts with a login screen. The user types in a user name/password and clicks a button. The username and password are submitted to a webserver for authentication and profile retrieval. Upon successful logon, the app will start an instance of Word. There will be a custom toolbar with all the buttons the user will need to request new jobs, etc. All data needs to be transferred back and forth through an SSL connection to the web server. Will be utilizing Word 2003. I apologize in advance for my lack of knowledge in Word terminology. Anyhoo... Toolbars. Can I create a custom toolbar (with my own custom actions that will be performed upon clicking) that will only be available (visible?) under certain circumstances. Say, perhaps, when a certain template was loaded? I understand I can put the toolbars in a template document ( .dot file). Is this correct? I don't particularly want to do that. There will be a "generic" template but there will also be at least 4 different templates for each client. The templates can not be stored on the local drive either (they must be "fed" to the application upon user request). I was thinking an Add-in here. But, I don't want the toolbar to load if say, the user starts Word the "normal" way to type a letter to grandma, etc. How can I load a document template from a url? I need to do this without "prompting" the user at all. The template, I suppose, could be saved temporarily on the users hard-drive and then loaded from the hard-drive. I would like to load it from the url and not have to save it to the hard-drive first. How can I save a document back to a web server? I cannot save it back to a drive letter:\path because there won't be any mapped network shares. I cannot allow the user to save the document on their local hard-drive either. I do not want to "prompt" the user. The document templates will have "fields" or "tags". For example, lets say there are 5 tags: tag1, tag2, ...tag5. Let's say the cursor is in between tag2 and tag3. Is there anyway I can capture the "tab" key such that when the user presses it, it tabs between tags? For instance, say the cursor is in the above mentioned place, the user presses the tab key and the cursor moves to the "start" of the next tag (tag3). If the user presses "shift + tab" the cursor moves back to the previous tag (tag1). That's all I have for now. I'm sure I'll be back. Thanks a bunch for any suggestions, hints. David Tag: Determine if Paragraph is emty-Word 2000 Tag: 77904
  - 8
    - Disable Fieldcode 'Fillin' 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 Tag: Determine if Paragraph is emty-Word 2000 Tag: 77903
  - 9
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77896
  - 10
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77895
  - 11
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77894
  - 12
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77891
  - 13
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77887
  - 14
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77884
  - 15
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77882
  - 16
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77881
  - 17
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77878
  - 18
    - difference between vb and vb.net what's the difference between vb and vb .net. which one is better Thanks Tag: Determine if Paragraph is emty-Word 2000 Tag: 77873
  - 19
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77871
  - 20
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77862
  - 21
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77861
  - 22
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77859
  - 23
    - what is the better download for microsoft word? I just want the best. thanks Tag: Determine if Paragraph is emty-Word 2000 Tag: 77846
  - 24
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77830
  - 25
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77815
- Next
  - 1
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77805
  - 2
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77800
  - 3
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77794
  - 4
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77782
  - 5
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77778
  - 6
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77771
  - 7
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77768
  - 8
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77767
  - 9
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77764
  - 10
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77756
  - 11
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77754
  - 12
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77747
  - 13
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77744
  - 14
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77742
  - 15
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77739
  - 16
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77737
  - 17
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77730
  - 18
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77726
  - 19
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77720
  - 20
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77719
  - 21
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77713
  - 22
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77712
  - 23
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77711
  - 24
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77710
  - 25
    - 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: Determine if Paragraph is emty-Word 2000 Tag: 77699

Hi,

How would I determine if a paragraph is empty before text is typed?

Thanks.

jbc

Re: Determine if Paragraph is emty-Word 2000 by Jean-Guy

Jean-Guy
Tue Dec 13 12:38:44 CST 2005

jbc was telling us:
jbc nous racontait que :

> Hi,
>
> How would I determine if a paragraph is empty before text is typed?
>
> Thanks.
>
> jbc

Play with this code to get you going:

Dim ParaRge As Range

Set ParaRge = Selection.Paragraphs(1).Range

If ParaRge.Words.Count = 1 Then
MsgBox "Current paragraph is empty"
ElseIf Len(Trim(ParaRge.Text)) = 1 Then
MsgBox "Current paragraph contains only spaces"
Else
MsgBox "Current paragraph is NOT empty"
End If

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

Top