language and 'format'

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Load and Use Classes from another template Hi Group I'm in the process of building a bunch of templates for various use (report, fax, memo...). Once finished, the templates will be distributed through local network shares to my co-workers. Now the different templates have many things that they have in common (e.g. phone number, address etc.), which I would like to store in a central place. Also, I'd need some macros in all of the templates, which I would like to store in a central place, too. I have thought about using a reference in C:\Documents and Settings\...\Application Data\Microsoft\Word\STARTUP that points to a resource .dot file on the network. That file can now hold all the stuff that needs to be centralized. So far the resource template gets properly loaded on startup of word, but I'm unable (or don't know how) to access the information within (through VBA code in the document template, say on document_new). So, these are my questions: 1) Is this whole stuff a good idea or should I drop it and "hard-code" the information into each template? 2) How can I access those classes from within the document template's VBA code? Any help greatly appreciated! Thx, Bernhard Tag: language and 'format' Tag: 67961
  - 2
    - Word Object model does not recognize ".," dot followed by comma Hi, I am trying to read ThisDocument.Range.Sentences, to process all the sentences in a document. But when the text contains a ".," that is a full stop followed by a comma, as in the following situations - "ABC & Co.," Word object model does not recognize the text properly. For example, Thank you for contacting ABC &Co., and we hope that our association will be mutually profitable and beneficial. Now when I read the sentences, I find that "," and ", and we hope that our association will be mutually profitable and beneficial." are returned as the two sentences contained. I presume this is a bug with the Object model. Have anybody else encountered a similar situation?? Can somebody help me out here. Note: I am using Word 2003. Thanks in advance, Thanks and Regards, Laks Tag: language and 'format' Tag: 67957
  - 3
    - adding caption to a photo I have a bunch of .htm files created by Word with embedded pictures (photos - inserted as picture from file). These photos are set to square wrap and left justified. I'm working on a macro that will let me add a comment below each photo and leave it in a square wrap, left justified in the same original position. I have this macro mostly completed but a couple things don't work quite right so I would be interested if someone has any insight. First, I created a transparent text box and aligned it so that it was centered just under the picture. This works fine but as soon as I group the picture and text box, the text box gets shifted from just below the photo to the center of the picture, messing up my careful alignment. Next, the act of grouping the picture and text box also undoes the square wrap of the original photo. So I was hoping that I could restore the original setup by re-setting a square wrap along with the top and left values of the photo/text group to that of the original photo. Unfortunately, while this almost gets it right, it appears that this shifts the final result to the beginning of the paragraph whereas the original picture was inserted somewhere inside the paragraph. Attached is the script using Word 2003. Denis --------------------------------------------------------------- Sub AddText() ' Picture must already be selected (add error checking here) Set pict = Selection ' Save picture name, height, and top and left positions With pict.ShapeRange pictname = .Name pictht = .Height pictrvp = .RelativeVerticalPosition picttop = .Top pictrhp = .RelativeHorizontalPosition pictleft = .Left End With ' Create text box the width of picture, set fill and outline to transparent ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, _ 197.6, 368.35, pict.ShapeRange.Width, 10).Select Set tbox = Selection With Selection.ShapeRange .Fill.Visible = msoFalse .Fill.Visible = msoFalse .Fill.Transparency = 0# .Line.Weight = 0.75 .Line.DashStyle = msoLineSolid .Line.Style = msoLineSingle .Line.Transparency = 0# .Line.Visible = msoFalse .Height = 26# End With ' Insert text in bold format in text box tbox.Font.Bold = wdToggle tbox.TypeText Text:="Text" tbox.ParagraphFormat.Alignment = wdAlignParagraphCenter ' Make ShapeRange out of picture and text box, align text box with center ' of picture, shift text box down to just below picture, then group vertshift = (pictht + tbox.ShapeRange.Height) / 2 ActiveDocument.Shapes.Range(Array(pictname, tbox.ShapeRange.Name)).Select Set pictext = Selection pictext.ShapeRange.Align msoAlignLefts, False pictext.ShapeRange.Align msoAlignMiddles, False tbox.ShapeRange.IncrementTop vertshift ---> pictext.ShapeRange.Group.Select <---- this messes up alignment ' Set to square wrap with previous position of picture With Selection.ShapeRange .RelativeVerticalPosition = pictrvp .Top = picttop .RelativeHorizontalPosition = pictrhp .Left = pictleft .LockAnchor = False .LayoutInCell = True .WrapFormat.AllowOverlap = True .WrapFormat.Side = wdWrapBoth .WrapFormat.DistanceTop = InchesToPoints(0) .WrapFormat.DistanceBottom = InchesToPoints(0) .WrapFormat.DistanceLeft = InchesToPoints(0.13) .WrapFormat.DistanceRight = InchesToPoints(0.13) .WrapFormat.Type = wdWrapSquare .TextFrame.AutoSize = False End With End Sub Tag: language and 'format' Tag: 67947
  - 4
    - Auto install button at startup - different computers - same user? Hi Folks, I have a little program that I have written and send to various users on my network. The program is installed by the user by running a batch file that I attached to an email - the batch file installs the various .dot files in the users /templates/ menu. All good so far. The batch file also copies a file to the users /Application Data/word/startup menu to install the button automatically when word is started up. Now here the problem : we have heaps of computers at work and more often than not a user will log on to a different computer each time - the startup folder is specific to each machine their fore it means the user must run the batch file for each different computer that they use - a real pain in the ass. I see one possible solution - howabout including in the batch file a file that copies another batch file to the /Documents & Settings/All Users/Startup folder - this second batch file copies the word file that installs the button everytime a user logs on? Anybody else have any better ideas? -Al Tag: language and 'format' Tag: 67945
  - 5
    - Can the (") delimiter be changed to another character? Hi, I have the need to replace many pairs of strings that have the (") in them. These pairs of strings are read from a file. Listed below is part of my code: ========================================= Open "myfile.txt" For Input As #1 Do While Not EOF(1) Input #1, sFirst, sLast Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = sFirst .Replacement.Text = sLast .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = True .MatchWholeWord = True .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll Loop Close #1 ========================================= Is it possible to change the (") delimiter character in Word/VBA - to, let's say - (¬) or (¢) ? Or, does anybody have a better idea? Thanks so much for your help. JS Tag: language and 'format' Tag: 67938
  - 6
    - msoPropertyTypeString too short I'm writing a series of macros in VBA for Word. I need to set aside some text so that a subsequent macro can look at it. I want to store it in a custom document property, but msoPropertyTypeString is limited to 255 characters, and the text I want to store is sometimes longer than that. Is there any other custom property type that I can use, or any other way that I can store a bit of text outside of a running macro? Thanks for your help. Martin Tag: language and 'format' Tag: 67937
  - 7
    - Code for closing Word I have been attempting to get a macro together that will do the following: 1.Unprotect a document (if protected) 2.Select the document 3. Copy the document 4.Close the document 5.Supress the save prompt and will several individual's assistance from this discussion board I have gotten that macro. The question I have now is, Can I close Word as the last step of the macro (not just close the document.) Here is the code that I have been using: (thank you all for your help!) Dim oDoc As Document Set oDoc = ActiveDocument If oDoc.ProtectionType <> wdNoProtection Then oDoc.Unprotect End If oDoc.Content.Copy oDoc.Close SaveChanges:=wdDoNotSaveChanges -- Thanks for your help! H Dodson Tag: language and 'format' Tag: 67935
  - 8
    - Can VBA set row height to present value I have a wide table that I need to print on two landscape pages. I delete the right half and print the left side; then delete the left side and print the right side. However, the rows will not align between the two pages, since they collapse to the size necessary for the remaining cells. Can I freeze each row height to the present value by VBA when I have the whole table, so when I delete half the columns the rows will not collapse. Then each independently printed half will line up with its other half. I am using WORD 2003 Tag: language and 'format' Tag: 67933
  - 9
    - Determine visible text on screen Is it possible with the Word object model to determine what text is visible onscreen at any particular time? Thanks, John Tag: language and 'format' Tag: 67929
  - 10
    - Macro for sending Word doc via e-mail If I want to send a word document via e-mail (as an attachment) I know I can use the following code: ActiveDocument.SendMail This opens a new Outlook box and attaches the active word document -- this is good, but.. How can I specify the name of who this is to be sent to. I don't want to use the routing slip approach since that seems to include verbiage in the actual text section of the mail indicating that the document needs to be routed further -- I have only one recipient that the file is to go to. Is there also a way of specifying the subject field verbiage as well as being able to specify any text associated with the body of the mail message?? I tried using the same code that works well in doing this for Excel but this does not work for Word (using the recipient's name etc..) Tag: language and 'format' Tag: 67925
  - 11
    - "Highlight" selected text boxes I may have seen the solution to my problem a while back but of course I cannot located it now. Sorry if this is a duplicate question. Word 2003 Form with default text in text boxes. I would like to have the selected text box text highlighted in blue like it does in windows. The user could just overtype the default text. Thank-you, -- Thank-you and all suggestions are appreciated. Tag: language and 'format' Tag: 67920
  - 12
    - ActivePrinter not working in macro. We've got an application that invokes Word, executes a macro, does a merge with data pulled from a text file extracted from a database, etc, and then prints the merged document to a specific printer. For years we've been having to manually set the Windows default printer on the workstations to use the specific printer that's needed because even though the macro has the command: ActivePrinter = "SPECPRINT" this printer never gets used unless it is the default for the user session upon the workstation before the macro ever gets run. The SPECPRINT printer is defined upon each workstation and is an LPR network printer which prints to a special print queue hostsed on a unix system which "broadcasts" the print jobs out to about half a dozen HP laserjet printers scattered about our network. We'd like to get away from having to make the SPECPRINT printer be the default printer on all the workstations becuase the users are continually forgetting to manually pick another printer whenever they print ordinary print jobs, and inadvertantly broadcast out those jobs to all the special broadcast printers and waste a lot of paper. The problem is that the "ActivePrinter" setting in the macro is getting ignored and it doesn't seem to matter what value it's set to... the print output just always goes to whatever the default printer is set to. Is this a common issue with ActivePrinter? Is there a better way to programatically direct the output to a specific print queue? Tag: language and 'format' Tag: 67915
  - 13
    - DocVariable Fields Hey I am pretty new to VBA and am trying to set up a macro that will update all of the fields in a document that are DocVariables. Some are in the body of the document and in the header/footer. I have one set up that will update all fields, but that is doing more than it needs to as it does the TOC and all the inclused text. Also anyone know of a good reference for object naming conventions in Word VBA, I program in other languages so the language structure is easy to pick up, just shakey on accessing the objects I want to. Thanks Tag: language and 'format' Tag: 67914
  - 14
    - Template errors I had a template which was created with Word 2000 and now we have Word 2003. Everything was working fine until I wanted to add a new button to the template. Now any document that was created with the 2000 version template errors when it's opened in Word 2003 because it see's the code for the new button I created but it doesn't see the button. This must be something new with Word 2003 where it stays connected to the template and any new code that is added to then template is added to an existing document. Does anyone have any ideas?? Tag: language and 'format' Tag: 67907
  - 15
    - Reading tabs stops Hi Folks, I'm looking for some help on reading Tab Stop information for every style from a template (more than 100 styles many of which has more then 2 tabstops set). Any help appreciated. Cheers J Tag: language and 'format' Tag: 67900
  - 16
    - reffering to a template the right way? Hey, I'm using word to create a referation to a template. But It seems to fail, because it when the template loads it only shows the editing part. It originally use to create a new document witch used the template macro's. It wont seem to work with a simple reference to the template.dot I hope someone could help me out. Thanks. Tag: language and 'format' Tag: 67893
  - 17
    - identifying lists in a selection Hello, I am trying to identify any lists within a selection. The user will selected some text in a word document (word 2002), then press the button to launch my macro which should convert the text selected into HTML :-) But I can't seem to grab hold of any lists within the selection - if I don't select any text I can use ActiveDocument.lists but there doesn't seem to be an equilivent command for selection.range. What I need to be able to do is find a list in the selected text, enter text before and after the list, and then work through each list item and do the same e.g. <ol> <li>item 1</li> <li>List 2</li> </ol> But if I can't even get hold of my list in the first place, this is going to be a triffle difficult! Any help, advice or pointers greatfully received. Many thanks Amy - still in the ooo, what does this command do phase of VBA p.s. yes I know word and HTML don't go together, but this really is the best solution to my particular problem - at the moment! Tag: language and 'format' Tag: 67892
  - 18
    - Automating steps to copy URL from IE into Word This seemed like a Windows question more than a Word question, I sent it to a Windows newsgroup, and was told it was a Word question. So here goes. Here's the kind of thing I do a million times. I've just copied some text from a web page into Word. Now I want to copy the URL of that web page into Word. I do Alt+Tab to switch back to the Internet Exporer page. I press Alt+D to place cursor in address bar. I press Ctrl+C to copy the address. I use Alt+Tab switch back to Word. I press Ctrl+V to paste the url into Word. Would there be a way to automate these five steps into one action, whether done by a .vbs file or some other means? Tag: language and 'format' Tag: 67887
  - 19
    - Is "Document Recovery" a toolbar? hi! I have seen that sometimes there is a document Opened into Word and Word Crashes due to any reason and when I run a new instance of Word I can see a Docable window with Caption "Document Recovery" displayed on left hand side of the document. I want to know: 1: What type of window is this? 2: Can I access it? 3: Can I create my own docable window like this one using VBA. any Help????? Thanks, Ahmad Jalil Qarshi Tag: language and 'format' Tag: 67886
  - 20
    - Using DAO from Microsoft Word There seems to be no VBA help topics showing the Objects, Methods, and Properties need to use DAO from a Microsoft Word VBA program and I get no results when search MSDN. Where can I find documentation???? Specifically, I need to know the syntax for passing a query string to the OpenRecordset method. Thanks in advance for any help you can offer. Thanks, Keith Tag: language and 'format' Tag: 67881
  - 21
    - Can I use a macro to break up doc into separate files? Hi All, I have a long document (a user's manual) that I want to break up into a number of separate HTML files. Ultimately, these will become my online help (compiled HTML). I don't know of any way to simply convert from a Word dco to a .chm file, so I'm wondering about a macro to break the document up for me. At least that much of the conversion will be done for me. Each section of the doc has a number of Headings of various levels included. Ultimately, I'd like to select all the text from each Heading 1 to the next Heading 2, or Heading 1 if no Heading 2 exists. If a Heading 2 exists, I want to select all the text from it to the next Heading 2, or Heading one if there isn't another one. Once the text is selected, I want to save it to an HTML file, named whatever the Heading text is. I know my way around Visual Basic, but know mext to nothing about Word. Is what I want to do a reasonable thing? Is it possible that this has been done before, and some macro code is already out there somewhere? - Max Tag: language and 'format' Tag: 67880
  - 22
    - Adding a range object to a Mail Merge field Result Any assistence for the following problem will be most appreciated. I am writing a macro that takes codes and text from one document, called Structure.doc and inserts the text, and text associated with several codes [which are stored in tables in several other word documents] into an existing report. The codes are stored in a word document that contains 1 table with 2 columns. The first column hads the code, the second column has the text [which may include numbering, formating, tables etc] This macro works fine. However, in the Strucutre document, I need to be able to toggle the codes on and off where on displays just the codes, and off displays the full text assosated with the code, just as in the Mail Merge preview. However, as the codes are stored in several documents, and only certain codes from each document are selected, I do not think I can use the in-built Mail-merge function. My thought was to use a mail merge field that the user could enter the code in the field, and then use a macro to insert the field Result from the appropriate document. I found this will work if using the fields(i).Result.text except that tables and all the formating is lost. From my understanding, the fields(i).Result is a range object and so I should be able to insert a Selection.Range object into the fields(i).Result. However, whenever I use the code: ReportDoc.fields(i).Result = Selection.Range word crashes. Can anyone explain what I am doing wrong? If the above is not clear enough, let me know and I will try to reword. Thanks, Simon Tag: language and 'format' Tag: 67878
  - 23
    - Need Help With Wildcaed Search Hi, I have a table with alphabetic entries in it. I want to search the table for all entries beginning with a selected letter. I need to add a NOT to the search but I haven't been able to construct a string for the NOT. As an Example: Table ... Argentina Argentina - Buenos Aires ... So far I have <A{1} which seems to pick all the "A" entries. However, what do I add to the string so that the word "Aires" is NOT selected. Any help or suggestions would be appreciated. Jerry Bodoff Tag: language and 'format' Tag: 67872
  - 24
    - how do you input a signature in word? Hi i am currently designing a template for engineers to print and give to customers once they have completed their job. However i need the customer to input a signature and for it to show on the worksheet template that has been filled in with the work carried out. I have a signature pad for customers to use but i dont know how to link it to the word template? Can anyone help please? Tag: language and 'format' Tag: 67869
  - 25
    - find and copy all highlights of a particular color Hi all. I'm working with a long document in which "glossary" words have all been highlighted bright green. I would like to copy all of these words into a separate document so that I can create the glossary. I'm sure that Word has built-in features that would be a better choice for this task, but I have to remain within this particular scheme, so I'm just trying to make my job a little easier. I have an old WordBasic macro that finds all the occurences of a particular text string and appends them into a text document, one by one, but I can't quite figure out how to do the same in VBA and then modify the search, and I don't think WordBasic supports a search for a particular highlight color. Can anyone point me in the right direction? Thanks. Rodney Tag: language and 'format' Tag: 67863
- Next
  - 1
    - Word 2003 XML documents as plain text (unicode) I write a macro to manipulate some tags in XML documents. In previous versions of MS Word it wasn't a problem to insert XML-documents automatically in plain text format. How can I either set the MS-Word defaults in order not to have XML documents opened as XML documents or alter the following code to have the files inserted as plain text (unicode) files? Selection.InsertFile FileName:= myfile$, Range:="", _ ConfirmConversions:=False, Link:=False, Attachment:=False (of course I want to avoid having to confirm each conversion manually) Any help is much appreciated. Francois Tag: language and 'format' Tag: 67862
  - 2
    - Can I set the tab order in a form created in Word 2003? I created a form in word using tables and form fields and I need to set the tabs to move vertically instead of horizontally. Is there a way to tell the tab key where to go next? It is a great form with this one exception!! Thanks for your help. Brittany Tag: language and 'format' Tag: 67859
  - 3
    - Button in word doc Hi there i was just wondering if it is possible to have a command in a word document in the form of a button, to insert a new line in a table and to have texxt boxes in there aswell placed automatically.. Mat thanks in advance Tag: language and 'format' Tag: 67844
  - 4
    - I need to create an index from existing document..HELP! Tag: language and 'format' Tag: 67840
  - 5
    - Copy Textbox contents to clipboard Dear all, I do a lot of repetitive typing at work. I have a list of templates which I want handy around. I am thinking of having a word document with textboxes which are holding my different templates. I am hoping to have a button beside each textbox so that when I click it, it will automatically copy the textbox's contents to the clipboard. I can then paste these onto the software which I am doing data entry to. I have tried stuff like "textbox1.copy" but this does not work. Nothings goes onto the clipboard. What am I missing? Sorry this is my first attempt at programming, so to speak... anyone can help? Tag: language and 'format' Tag: 67837
  - 6
    - what code will unprotect a document. Using Word 2000 and later, I need a code to put in my macro that will unprotect the document. I am using a simple macro as below and the first thing I want it to do is to unprotect the doc. Any ideas? This is what I have thus far: Selection.WholeStory Selection.Copy ActiveDocument.Close SaveChanges:=wdDoNotSaveChanges End Sub -- Thanks for your help! H Dodson Tag: language and 'format' Tag: 67828
  - 7
    - SAVE Method How would I code something to say if it someone is closing or saving the document to look at a varable and change things accordingly? I have it changing things accordingly when a person tabs out of a field but if they don't use the tab key it doesn't change what it is supposed to. Tag: language and 'format' Tag: 67824
  - 8
    - Where I can find documentation for the commands for DDE and Word? I need find some documentation for the commands to use for interfacing with Word, i.e. "FileExit(2)", etc. Tag: language and 'format' Tag: 67817
  - 9
    - Why OnClosing Doc. Containing my ActiveX Ctrl asks me to save. Whereas its already saved!!!!! hi! I have a ActiveX control Written in VC7.1 for Word. when i insert my control into Word and close the doc after saving the document, it again asks me Do you want to save the changes? But on thing to be noted is that I handled the event DocumentBeforeClose and in this i verify that the document is saved or not. and the doc. is not modified but Word warns me. I dont know why? I also pass fClearDirty = TRUE in the following function call. Anybody there to solve my problem. HRESULT IPersistStreamInit_Save(LPSTREAM pStm, BOOL fClearDirty ,ATL_PROPMAP_ENTRY* pMap) Thanks Jack Tag: language and 'format' Tag: 67811
  - 10
    - Updating a REF in a Header Good morning, I found this module that works great to update the REF that I have in my header. but I was wondering:> If I know the name of the REF can I update the REF field by Name instead of checking for all Ref fields ? '--------------------------------------------- Sub RefFieldUpdateAllStory() ' Written by Charles Kyle Kenyon 15 November 2001 ' repaired with help from Jezebel 10 December 2004 ' All Story Field Updater - Ref fields Dim oField As Field Dim oStory As Range For Each oStory In ActiveDocument.StoryRanges ' This goes into headers and footers as well as the regular document Do For Each oField In oStory.Fields If oField.Type = wdFieldRef Then oField.Update End If Next oField Set oStory = oStory.Next Loop Until oStory Is Nothing Next oStory End Sub Thanks. Micheline Tag: language and 'format' Tag: 67797
  - 11
    - Can I read the Version into some Buffer without opening the Version into new instance of Word? hi! I have a word document. I added 2 Versions into the ActiveDocument. Now as from the Object Model its Obvious that there are three main methods to do something with Versions. 1. Open 2. Delete 3. Save Now if i want to read binary data of Version 1 into some buffer. I'll have to Open the version. and then get the path of the opened version and after that read the files data into buffer. But i don't want to Open the Version. I just want to read the contents of the specific Version without showing the user that the Version is opened and then closed. Is there any solution to this problem Thanks in advance. Ahmad jalil Qarshi Tag: language and 'format' Tag: 67777
  - 12
    - Word 2003 Custom Fields Hi I have created a template with headers & footers for page 2 onwards. The template however is a one page template, the headers and footers present themselves as they should, in the event of a second page being required. The problem I am having is that the header for page 2 onwards holds a custom field. When page 2 is automatically created by typing lots of text the custom field does not update. The only way to update the field is to print it, F9 it or print preview. How can I have the header of my page 2 onwards custom field updated when no page 2 exists until I start typing into my document? Thanks very much in advance for your help. Kerry. Tag: language and 'format' Tag: 67776
  - 13
    - Move top-left corner of document into view When I open a document containing a table I do some editing (using VBA) in a cell off the screen. This causes the document to visually move to the right to bring the cell onto the screen. Afterwards, I need the top left section of the document redisplayed on my screen. At the moment, I'm using a workaround to achieve this - I select cell(1, 1) which is the top left of the document, insert a period (ie ".") and then delete the period. But, how do I move the top left corner of the document into view without doing any editing? It would be much safer for any text already there. Note: I have also tried turning ScreenUpdating off, but it has no affect on this. Thanks for your help. My current code: myDocument.Tables.Item(1).Cell(1, 1).Select() With myDocument.ActiveWindow.Selection .HomeKey() ' Sets insertion point at start of cell .Range.InsertAfter(".") ' Inserts a period .HomeKey(wdLine, wdExtend) ' Selects period .Delete() ' Deletes period End With Tag: language and 'format' Tag: 67769
  - 14
    - Creating a module-wide variable Sorry if I'm not using the terminology correctly. I already have several module-wide variables (created by Dim statements) which enable information returned in one macro to be used in another macro--a neat capability. But these variables only seem to work because there already happens to be some public declarations at the top of the module, like this: Public Declare Sub Sleep Lib "kernel32" _ (ByVal dwMilliseconds As Long) These public declarations have nothing to do with the Dim statements, yet they enable them to work. I want to learn how to set up a module-wide variable if there is not already a Public declaration. In other words, if there is nothing at the top of the module, and I want to create a module-wide Dim statement there, how do I do that? Thanks, Larry Tag: language and 'format' Tag: 67747
  - 15
    - What is NoList Style? I was working with a macro that Klaus Linke posted the other day to remove unused styles. Klaus explains that Normal, DefaultParagraph, and Heading1-9 sytles are built in and can't be removed. I have Word2003 and in my Normal.dot there are two other styles that can't be removed: NormalTable and NoList. I added a line to Klaus' code to handle the NormalTable (skip it), but when I tried to add a constant for the NoList style I could't fine one. I use wdStyleNormalTable for the normal table, I looked through all of the wdStyle constants and couldn't find one for NoList. I didn't try each one as none looked promising. I would like to add a line in the below code similiar to the Case statements for NormalTable and the other builtin styles. Can anyone suggest what I should use? Thanks. Sub DeleteUnusedStyles() Dim oDoc As Document Dim myStyle As Style Dim myString As String Dim i As Integer Set oDoc = ActiveDocument For Each myStyle In oDoc.Styles If myStyle.InUse Then Select Case myStyle Case oDoc.Styles(wdStyleDefaultParagraphFont) Case oDoc.Styles(wdStyleNormal) Case oDoc.Styles(wdStyleNormalTable) Case oDoc.Styles(wdStyleHeading1) To oDoc.Styles(wdStyleHeading9) Case Else Selection.Collapse (wdCollapseStart) With Selection.Find .ClearFormatting .Style = myStyle .Forward = True .Wrap = wdFindContinue .Execute FindText:="", Format:=True If .Found = False Then StatusBar = myStyle.NameLocal If MsgBox("Delete", vbYesNo, myStyle.NameLocal) = vbYes Then myStyle.Delete End If Else myString = myString + myStyle.NameLocal & vbCr End If End With End Select End If Next myStyle MsgBox "In addition to Builtin styles, the" _ & vbCr & "following style(s) can't be removed:" & vbCr & myString End Sub -- Greg Maxey/Word MVP See: http://gregmaxey.mvps.org/word_tips.htm For some helpful tips using Word. Tag: language and 'format' Tag: 67744
  - 16
    - can't see drop down menu on form document I am creating a form where I want the users to pull down a menu. When I click the drop down menu on the form it just shows a gray box with one of the entries. I want the user to see the pull down menu instead. Help! Tag: language and 'format' Tag: 67743
  - 17
    - removing a blank feild in mail merge In my document i have a feild called " name" if it is blank is there a way that it will not say "name" on the document ???? Tag: language and 'format' Tag: 67741
  - 18
    - Restoring the ability to Tab between fields instead of using Enter I have created a form in Word 2003 and used the macros described in the Microsoft article number 211219 to allow the Enter key to navigate between the form fields instead of inserting a new paragraph. I now want to change this behavior back, however for every new template or document based on a template I create, the Enter key moves between the form fields. I have deleted the macros described above; I have performed a "reset all" in the customize keyboard form under tools â?? customize, I have ran a macro to using keybindings.clearall, I have started Word using the /a switch, I have removed everything from the Word startup directory, and I have deleted the Normal.dot file and let Word create a fresh copy. None of this has worked. Can anyone tell me what Iâ??m missing? Any help in this matter would be greatly appreciated. -- ddorrough Tag: language and 'format' Tag: 67739
  - 19
    - Retain information added to fill-in fields in template I have created a template with fill-in fields. What I need to accomplish is this: User inputs in all fill-in fields, say their personal information in a letter template. How can I save that information so that they do not have to answer the fill-ins again when they launch the template at a later date? Many thanks! Tag: language and 'format' Tag: 67736
  - 20
    - Loop not Looping I am relatively new to writing macros and have a feeling I am missing one step, but I am trying to write a macro that searches up for an occurrence of the word article followed by a space and any number and another space. I then want it to delete the space, and insert a tab. The macro works fine, but for some reason, it is not looping. If you have any suggestions, I would greatly appreciate it. here is what I have so far: Selection.HomeKey Unit:=wdStory Selection.GoTo What:=wdGoToField, Which:=wdGoToNext, Count:=1, Name:="TOC" Selection.Find.ClearFormatting Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend Selection.MoveDown Unit:=wdLine, Count:=1 Do With Selection.Find .Text = "article ^# " .Replacement.Text = "" .Forward = False .Wrap = wdFindStop .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.TypeBackspace Selection.TypeText Text:=vbTab Loop Until Condition = False End Sub Tag: language and 'format' Tag: 67734
  - 21
    - Identifying table ranges I have a Word document with two columns. I inserted a table to span both columns but had to force a column break to balance the data. I have not worked with coding much in Word and cannot find an answer to my problems. I can't figure out how to identify the two (seemingly) different tables ranges. If I select the table in the first column, only the table in that column is selected. I want to search for data in both columns/tables to update information. How do I set ranges for these two tables so I can use it in my loop statement? I need as much of the source code as possible please. Thank you. Tag: language and 'format' Tag: 67733
  - 22
    - Opening Hyperlink as Read Only I have an Access database that has a hyperlink field which opens a Word document. Is there any way to open the Word document hyperlink as Read Only? Thanks! at Tag: language and 'format' Tag: 67728
  - 23
    - Drop down list choices print but don't appear on email or fax Hi, I'm making a form in word 2003 to be used by our doctors to send a stat fax/email in conjuction with outlook 2003. I am almost there...but I need a little help. I have created a form with a drop down with items in the drop down list such as HEAD CT, ABDOMINAL CT, PELVIC CT. When I lock the form these appear as choices and they can be selected. It works great and if I print the page I see the choices that were made. That is perfect...but, when I actually send or fax the report, that field ends up blank. Can i have the text of the chosen drop down appear on the email/fax once it is sent? That is, if on the pull down I select HEAD CT, I want that to appear as text. Do I have to run a macro on entry or exit that types the actual word "head ct"? If so, how do I create that macro? I can send a copy of my .doc/template if needed. Thanks in advance. Tag: language and 'format' Tag: 67724
  - 24
    - Building a table of figures automaticaly. Selection.Found condition subs out, why? Hi Again, I used a solution from this news group for checking whether a selection was found. For some reason, if I do not do the replace unconditionaly 1 time, the loop never starts. Any ideas? Shimon Sub InsertNumLooped() 'Replaces the text " Figure: " with Figure: and a reference number 'in order to build a table of figures . ' ' ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = " Figure: " .Replacement.Text = "Figure: " .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceOne Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ "SEQ Figure \*ARABIC", PreserveFormatting:=True Selection.TypeText Text:=" " For i = 1 To 50 Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = " Figure: " .Replacement.Text = "Figure: " .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchKashida = False .MatchDiacritics = False .MatchAlefHamza = False .MatchControl = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False If Not .Found Then Exit Sub End With Selection.Find.Execute Replace:=wdReplaceOne Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ "SEQ Figure \*ARABIC", PreserveFormatting:=True Selection.TypeText Text:=" " Next i End Sub Tag: language and 'format' Tag: 67721
  - 25
    - mosBarBottom: Documented bahavior or a bug? Usually, when I create a toolbar, I do include the Position property in the Add method. However, for msoBarBottom, I find unusual bahavior if I do not specify the Position property until later in the code. Using Word 2003, with msoBottom in the Add method, I get the expected behavior, i.e., the toolbar is created below all other toolbars. on a separate row. However, if I use the Add method without the Position property and later use the Postion property with msoBarBottom, the toolbar does not get placed at the bottom, instead, I've seen the following two cases: 1. The toolbar is intermingled with the toolbars in the last row of the toolbars, and not all the toolbar buttons are visible. 2. The toolbar is intermingled with the toolbars in the last row of the toolbars, and all the toolbar buttons are visible. I would have expected the use of Position with msoBarBottom to have caused the toobar to be in a new last row. Why all the buttons show sometimes, but not others, makes no sense, as nothing else has changed. Is this documented intended behavior, or is it a bug, documented or otherwise? -- http://www.standards.com/; See Howard Kaikow's web site. Tag: language and 'format' Tag: 67708

Hi

included in a vba-module I need to find out when a certain file is modified.
I use the code:

date1 = Format("file.doc".datelastmodified, "mmmm yyyy")

the variable is now giving the date 'Maj 2005' in danish as my Windows is in
Danish.

I need to translate this date into different languages: English 'January
2005', Swedish 'Januari 2005' etc. How can I do this in vba?

Top

Re: language and 'format' by Jezebel

Jezebel
Tue May 10 17:03:10 CDT 2005

Dim pDate as date
Dim pMonth as long

pDate = Doc.DateLastModified
pMonth = Month(pDate)

English = Choose(pMonth, "January", "February", ...) & " " & Year(pDate)

"Chris" <Chris@discussions.microsoft.com> wrote in message
news:1A297E5C-D034-4928-9211-731938107538@microsoft.com...
> Hi
>
> included in a vba-module I need to find out when a certain file is
> modified.
> I use the code:
>
> date1 = Format("file.doc".datelastmodified, "mmmm yyyy")
>
> the variable is now giving the date 'Maj 2005' in danish as my Windows is
> in
> Danish.
>
> I need to translate this date into different languages: English 'January
> 2005', Swedish 'Januari 2005' etc. How can I do this in vba?
>

Top