Collection methods

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Conditional dsplay of header and footer text Hi, I would like to display different first page footer text (Word 2003) depending upon whether or not there is a second (or subsequent) page(s). Does anyone know how this could be done? I've tried internet searching and in-program searching with no luck. Thank you very much, Penn Tag: Collection methods Tag: 60186
  - 2
    - Track changes colours inadequate Hi, In a previous version of Word, the track changes option allowed me to put insertions in one color and what I took out in another. Now it's the same colour for everything. As a translator, it used to help me compare new and old versions of documents and allowed me to save time. Please put this feature back again. Why change something that was fine for something totally inadequate? Thanks, Nina Tag: Collection methods Tag: 60181
  - 3
    - Add more space in the "Replace:" section of the AutoCorrect featu. Hi, As a translator, I use the AutoCorrect option to replace sentences that I come accross often in my documents. The problem is that the "Replace:" field is to small. It should be the same size as the "With:" field. Thanks, Nina Tag: Collection methods Tag: 60180
  - 4
    - Add more space in the "Replace:" section of the AutoCorrect featu. Hi, I am a translator and I often have to translate the same segments in various documents. I use the AutoCorrect option to save all made sentences in English to have them replaced by a French one. What I don't like is that the "Replace:" field is a lot smaller that the "With:" field. I sometimes would need the same amount of space in both fields. Thanks Nina Tag: Collection methods Tag: 60179
  - 5
    - Word to HMTL Hi All please can someone help, does anyone know how to autosave a word doucument into hmtl format? Thanks in advance Shin Tag: Collection methods Tag: 60177
  - 6
    - vba function for form Hi My question is as follows Could somebody provide me with some vba code which supplies me with a button on a word form that when clicked will automatically send the form to a specified email adres Thanks Tag: Collection methods Tag: 60173
  - 7
    - Unprotect not unprotecting properly Hi, I have a simple macro that is meant to unprotect a document as follows, but for some reason the document still has protection turned on afterwards. Looking at the XML, this line remains <w:documentProtection w:edit="read-only" w:enforcement="off"/> but Word 2003 seems to ignore the bit that says "off" the next time it is loaded. If I remove the line from the xml, save as .doc and reload it then there is no problem. Am I unprotecting the document in the right way? If not how can I ensure that the document contains no reference to documentProtection. Is it possible there is some bug in Word 2003 (SP1, 11.6359.6360)? The part that unprotects: ~~~~~~~~ Sub ResetDocument(strDocumentName As String, strDocumentFolder As String, strDocumentId As String) Dim ActiveDocument As Document 'load the doc Set ActiveDocument = Documents.Open(strDocumentFolder & IIf(Right(strDocumentFolder, 1) = "\" Or Right(strDocumentFolder, 1) = "/", "", "\") & Replace(strDocumentName, "[ID]", strDocumentId)) ' Remove custom properties ActiveDocument.Unprotect "kms." & CStr(ActiveDocument.CustomDocumentProperties("Document ID")) ActiveDocument.CustomDocumentProperties("Document ID").Delete ActiveDocument.CustomDocumentProperties("Article ID").Delete ActiveDocument.CustomDocumentProperties("Return URL").Delete ActiveDocument.CustomDocumentProperties("Checked in").Delete ActiveDocument.CustomDocumentProperties("Saved locally").Delete ActiveDocument.CustomDocumentProperties("Taxonomy ID").Delete ' Remove macros Application.OrganizerDelete ActiveDocument.FullName, "KmsClient", wdOrganizerObjectProjectItems ' Limit menu bar changes to the relevant document only CustomizationContext = ActiveDocument ' Rename "File Save Local Copy" menu option as "File Save" RenameMenuItem ActiveDocument, "File", "Save Local Copy", "&Save" ' Rename "File Check In to KMS" menu option as "File Save As Web Page" RenameMenuItem ActiveDocument, "File", "Check In to KMS", "Save As Web Pa&ge..." ' Close the document, saving changes ActiveDocument.Save ActiveDocument.Close ShutDown strDocumentFolder End Sub ~~~~~~~~ The document has been protected like this: ~~~~~~~~ Sub CheckIn(checkInDoc As Document) ' Mark the document as checked in ActiveDocument.CustomDocumentProperties("Checked in").Value = True ' Protect against further changes On Error Resume Next checkInDoc.Unprotect Password:="kms." & checkInDoc.CustomDocumentProperties("Document ID").Value checkInDoc.Protect wdAllowOnlyReading, Password:="kms." & checkInDoc.CustomDocumentProperties("Document ID").Value ' Save local copy checkInDoc.Save checkInDoc.Close End Sub ~~~~~~~~ Tag: Collection methods Tag: 60166
  - 8
    - Delete Multiple rows Hi All please tell me how can we delete multiple rows in from a table in the Word Doc , using Word Basic . When i delete one row it shifts the rest one row up which changes my rows no calculations. Thanks Alok Tag: Collection methods Tag: 60162
  - 9
    - scope resolution operator Hi All please tell me how cn we use the scopr resolution operator in WORDBASIC. Thanks, Alok Tag: Collection methods Tag: 60161
  - 10
    - Adding two bookmarks to a cell in a table I want to add two bookmarks to a cell in a table so that I can then add a Committee Name to one and a Date to another because I want to retrieve them later as separate items. With mytable .Cell(1, 3).Range.Bookmarks.Add "Ctte" .Cell(1, 3).Range.Bookmarks.Add "Date" End With This just adds both bookmarks to the cell whereas I want it to be [Committee] [Date] Any ideas please? Stephen Tag: Collection methods Tag: 60160
  - 11
    - remembering cursor location in macro I have created a macro which runs from Document 1 and creates Document 2 where it does some search and replace information which then needs to be copied back into Document 1. The problem is that it pastes the information at the beginning of the document and I need it to paste the information where the cursor was when the macro was initially run. Does anyone know how I can achieve this? Thank you, Scott Au Tag: Collection methods Tag: 60156
  - 12
    - macro to select all the text of a particular Style I am trying to write a macro in WORD to select all text of a particular style,, copy it and paste it into a new document. I can do it manually, but the record macro will not recognize either the "select all" using the Style pane or using the "highlight all'" in the find dialog box. Any help is apprecaited. Tag: Collection methods Tag: 60153
  - 13
    - adding data to an embedded chart dynamically All, I've created a word document that contains an embedded chart (using Insert > Picture > Chart) The chart's layout optin is "In front of text". What I'd like to do change/modify the data in the datasheet of this chart using vba or vbscript, but I don't know how to reference it. I've done the same thing in PowerPoint with this: Set oApp = CreateObject("Powerpoint.Application") Set oPres = oApp.Presentations.Open("C:\Presentation.ppt") Set oSlide = oPres.Slides("slide1") Set oChart = oSlide.Shapes("chart") with (oChart..OLEFormat.Object.Application.DataSheet) .Range("A1").Value = 100 End With But I don't understand the object model of word well enough to do this in Word. I also don't know how to name objects in Word so that I can reference them. Many thanks in advance for any insight or advice! Cheers, Matt Stuehler Tag: Collection methods Tag: 60145
  - 14
    - microsoft words where can i download microsoft words?? is there any sites i can go to get it?? Tag: Collection methods Tag: 60142
  - 15
    - Generating list of Hello, I need to generate a list of all the text in a document that use a particular character style. I tried using the StyleRef field, but it only allows me to copy the first or last piece of text and I need to copy all of the examples. If anyone knows of a way to do this, I'd appreciate some assistance. Thanking you in advance. INoH Tag: Collection methods Tag: 60138
  - 16
    - scheduling a macro in word Hi I am using windows XP And Office XP. I have a document created in Microsoft Word called Monthly News.doc . It is obviously a monthly newsletter for my company. Each month I send it out as a mail merge to 250 people on my mailing list. I have a macro called Send_news that automatically prints this merge out. I want to schedule this event so that it runs automatically on the 30th of each month whether I am there or not. I want it to open the document monthly news and start the macro called send_news and then close word when it is completed. Can you help me with the visual basic code or can this be done in an easier method? Thanks Tag: Collection methods Tag: 60137
  - 17
    - macro to search for and delete word art and objects Hi there, I am trying to write a macro that will search for word art (in the headers) and also search for objects (linked power point slides) in the main text and delete both of these. I'm not sure where to start, any help would be great. Thanks Tag: Collection methods Tag: 60136
  - 18
    - Controlling footers in code (Word 97) I have a template consisting mostly of 3 tables; normally, they all fit on one page, and there's a footer with a couple of signature blocks on it. I load these tables with data from an Access database, using OLE. I don't want to split a table over a page, so what I want to do is insert a page break just before the third table when there is more data than will fit on one page. If this happens, I don't want to print the footer on page 1. If it doesn't, and it all fits on one page, I do want to print the footer. I can figure out how to insert the break, but I can't seem to find anything on how to turn a footer on and off. Can anyone point me in the right direction? -- Peter L Reader, posting from stormy Portland, Oregon preader@pacifier.com Tag: Collection methods Tag: 60133
  - 19
    - using saveas in programming I currently have an acess program that will open a rtf file and > change the formating > >and save the file and move on to the next. Instead of > using > >active.document.save I would like to use save as and make > the rtf file a doc > >file. Any suggestions? > >. > > > Tag: Collection methods Tag: 60132
  - 20
    - Help! - Is there a way to save font + size across system? Is there anywhere to permanently set the 'font' and the 'size of font' for all word documents on my system? It seems there is already a default of 'Courier - 10' that every new document opens in that format and is saved that way. I would like to adjust the font and size to be larger across the board. Or at least to be larger when viewing them. You can adjust the size of fonts for all other programs using Control Panel - including for Internet Explorer and the general look of the computer. However, Word remains in smaller text no matter what I do. Hope this makes sense to someone that can help. Please respond. Thanks! Tag: Collection methods Tag: 60122
  - 21
    - Text Form Field I am making a template in Word 2000. I am using text form fields. I need further formatting for two types of form fields than it seems I can get thru the form field options. One, I want a number mask like a SSN. ###-##-####. Enter nine numbers and it adds the dashes. Two, using regular text, I want one character to be entered, only selecting from the characters A,B, or C. Anything else won't work. Is there any way to set this up? Thanks. Tag: Collection methods Tag: 60117
  - 22
    - Return to the previous document I am trying to write a macro where I start from an open document. Then I open another document containing a grid that must be inserted into the first document. I copy the grid and return to the first document, paste the grid, then close the document containing the grid. My problem is returning to the first document. When I use the macro recorder, the line reads: Windows("Document2").Activate The document I want to return to is not necessarily name "Document2". How do I return to whatever the original document is? Thanks so much. Tag: Collection methods Tag: 60115
  - 23
    - Inserting Image via com Hi, I can insert an image into a header with ohead.shapes.addpicture What I would like to do is to insert the picture inside a cell in a table but the cell doesn't have a Shapes collection I've also looked at copying the picture but there is no copy method of the shapes collection eg ohead.shapes(1).copy() doesn't exsist. Has anyone got any ideas on this. Tag: Collection methods Tag: 60109
  - 24
    - Writing text file problem Hi Folks, I'm writing data from my app to text file but it inserts "quotes" all over the place and this is not what I want (might be working with a html file). Is there any way to stop this? Cheers J Tag: Collection methods Tag: 60105
  - 25
    - Picture Sizing Hi I want a procedure in my template which simplifies the entering of pictures into a table, inserting them at the correct size. The procedure is in place but I cannot understand the meaurement units being used and cannot find any info in help about it - I have to have a set picture size but I can't seem to change the measurement unit. Please find the code below - the size I want for the photos is 6.5cm height x 5.5cm width but the code only seems to want to work on numbers in the hundreds, does anyone have any ideas what units are being used and how I can convert them to centimetres in the code or just how to work it out manually to enter the correct number. Many Many thanks InsertPhoto: Dim Myrange As Range With Options .PictureEditor = "Microsoft Word" .PictureWrapType = wdWrapMergeFront .MeasurementUnit = wdCentimeters 'measurement unit doesn't seem to make any diff End With If Selection.Information(wdWithInTable) Then With Dialogs(wdDialogInsertPicture) If .Show Then Set Myrange = Selection.Cells(1).Range If Myrange.InlineShapes.Count > 0 Then With Myrange.InlineShapes(1) .LockAspectRatio = msoTrue .Height = 6.5 '138.5 .Width = 5.5 '147.4 End With Else With Myrange.ShapeRange .LockAspectRatio = msoTrue .Width = 5.5 '147.4 .Left = wdShapeCenter .WrapFormat.Type = wdWrapThrough ' .WrapFormat.Side = wdWrapBoth .LockAnchor = False .IncrementLeft 1# .IncrementTop 20# End With End If End If End With End If Tag: Collection methods Tag: 60104
- Next
  - 1
    - URLDownloadToFile API Hi Folks, I've been using this to update files with some success but.....I wish to modify my code. At the moment it takes the file from the server and updates the copies regardless of version. This is fine (or has bene up to now at least) as I always make sure the files on the server are the latest versions. I'd like to check if the file is of a certain date before downloading it is this possible? Cheers J Tag: Collection methods Tag: 60103
  - 2
    - Word vba developer group for Mac Hi, Can anybody suggest me a good url for Mac VBA developer(i.e. Word ) forum like this. Thanks & Regards Naveen Tag: Collection methods Tag: 60097
  - 3
    - Making Find and Replace dialog always open in enlarged view In Word 97, how can I alter the EditFind and EditReplace commands so that the Find dialog box always opens in its "More" state, with the formatting and other options displayed? I don't want to use SendKeys for this (using the SendKeys statement to activate the "More" button which opens the enlarged view) because SendKeys do not work in a macro that is run by a keystroke, and I only used the keystroke commands (Ctrl+F and Ctrl+H) to run the Find dialog box. Any ideas? Thanks. Tag: Collection methods Tag: 60096
  - 4
    - return to where it was Hi, i have a macro that goes to find a text and copy it but would like to come back at the last prompt i was at first. -- XP home , Office 97 any or all responses are gratefully accepted and thank you for your time Tag: Collection methods Tag: 60095
  - 5
    - Working with bookmarks I want to open a specified document, check whether the hidden bookmark _Toc69698351 exists If it exists append the bookmark name to a string as part of a hyperlink If it does not exist check whether the non hidden bookmark "KeyFindings" exists If this exists append it to the document filename as the sub-address of the document If it doesn't exist find the words "Key Findings" as the full text of a paragraph and make this a new bookmark. The answer to CowGirl partly answers the question but first I need to open the document. Here is what I have so far: Dim appWord As Word.Application Dim wrdDoc As Word.Document Dim wrdBookmark As Word.Bookmark Set appWord = CreateObject("Word.Application") appWord.Documents.Add appWord.Documents.Open (sFile) On Error Resume Next wrdDoc.Bookmarks("_Toc69698351").Select If Err Then 'The bookmark was not found On Error Resume Next wrdDoc.Bookmarks("KeyFindings").Select If Err Then 'Can we find the heading wrdDoc.Content.Find.Execute "Key Findings", False, True ??? Else gsKeyFindings = sFile & "#KeyFindings" End If Else gsKeyFindings = sFile & "#_Toc69698351" End If End If The Word document is not opening correctly TIA Terry Tag: Collection methods Tag: 60094
  - 6
    - Can I use Fileconverter object to convert a file that is not open? Currently I am using SaveAs, but I first need to open the file to do this. Any help would be great. Tag: Collection methods Tag: 60093
  - 7
    - Saving .dot files Any brilliant person out there who can make a "save as .dot" macro, that will automatically retain the original file name and file location, and save it as a .dot file? Bacground of why I would need such a thing is below. Thanks in advance for any help or thoughts anyone can offer! We use a lot of templates in Word. We are on Word 2003. Starting when we moved to Word XP, I have encountered a problem where my .dot files do not want to save correctly. In Word 97, if I opened my .dot file, it would open as .dot, I could work on it, and it would save as .dot. No problem. Now, for some reason, Word wants to save it as a .doc. Sometimes it warns me it is doing this, sometimes not. :( Even better, sometimes it *appears* to be a .dot, but it behaves like a .doc. Of course, several features of a template don't work correctly if it's not saved in the correct .dot format (for instance, the "createdate" field). I tried changing my default file format to be .dot, but that was a pain because then all my regular documents want to default to be saved in my personal templates folder. I tried changing my templates location so it at least pointed to the highest level of our shared templates, but that made it so my personal autotext and personal toobars didn't work (since my Normal.dot is saved in my templates directory. I can't save my Normal in the shared drive, I don't think, since that would probably over-ride everyone's personal Normal? I was afraid to try that.) The only way around this seems to be to always do a "save as" and specifically choose the .dot extension. Unfortunately, this automatically takes me to my personal templates folder (instead of the shared templates folder it originated from) so I have to re-navigate back to the correct folder (we have multiple folders for our shared templates, so they are split out onto separate tab in the Templates window) and then save. This is a pain. It's far more than a pain when Word sneakily makes a .dot file into a .doc and loses autotext and macros built into that file. (Yes, it should warn me, but it doesn't always do so. Really, I swear. I know you don't beleive me, but it's true. I have reported it to MS on their website, but to date have not seen anything in the Knowledgebase addressing it.) I'm sure this is some problem with our MS Word, but no one in my company's Tech Support wamts spend any time on the phone with Microsoft for this, since I'm the only one here who works on our templates. So, after struggling with this for a year or so, thinking maybe I would get used to it, or maybe I was crazy and it would finally stop doing it, I'm looking for other options. Any thoughts would be greatly appreciated! Tag: Collection methods Tag: 60086
  - 8
    - Copying certain text from .doc file with variable length Right now I can copy text to a temp .txt file, then insert it into the new template. Basically everything between the words "Procedure:" and "Comments \ Suggestions" needs to be copied. The way I have it setup now works okay, but all the hard returns and tabs get screwy Lewie. The number of lines and paragraphs will differ between files. Tag: Collection methods Tag: 60083
  - 9
    - How do I automate lists of effective pages in word I have a technical manual with many chapters (seperate word documents) and I would like to know whether it is possible to automate the list of effective pages contained in the first chapter? Tag: Collection methods Tag: 60080
  - 10
    - Shift enter mapping I created the Macros as Greg suggested but I am having a problem with it working. These macros were added to a template other than Normal.dot and I have placed the template in the startup folder. What I am finding is the first time I open MS Word the macros are not working. If I closed the initial document and create a new document the macros work. Does anyone know how I can get it working on the document that opens first? "I would create a template with the following macros and use it for documents that you want use this feature for: Sub AutoNew() 'Assigns the Macro1 Macro to the ENTER Key CustomizationContext = ActiveDocument.AttachedTemplate KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyReturn), _ KeyCategory:=wdKeyCategoryMacro, Command:="Macro1" End Sub Sub AutoOpen() 'Assigns the Macro1 Macro to the ENTER Key CustomizationContext = ActiveDocument.AttachedTemplate KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyReturn), _ KeyCategory:=wdKeyCategoryMacro, Command:="Macro1" End Sub Sub AutoClose() CustomizationContext = ActiveDocument.AttachedTemplate FindKey(KeyCode:=BuildKeyCode(wdKeyReturn)).Disable 'Disables prompt to save template changes Templates(1).Save End Sub Sub Macro1() ' ' Macro1 Macro ' Macro recorded December 1, 2004 by CDR Gregory K. Maxey ' Selection.TypeText Text:=Chr(11) End Sub" Tag: Collection methods Tag: 60079
  - 11
    - Selecting a page Would someone be able to tell me how to select a range on a specific page in a word document. For example I am using one of the following to select text from a word document: 1) Set Vendorname = ActiveDocument.Range(Start:=108, End:=149) 2) Set VendorLine1 = appWrd.ActiveDocument.Range (Start:=205, End:=206) VendorLine1.End = VendorLine1.Paragraphs(1).Range.End VendorLine1.MoveEnd Unit:=wdCharacter, Count:=-1 However, I am not able to select this on anything but the first page. How can I use VBA to say I want this from another page? Thanks!! Tag: Collection methods Tag: 60074
  - 12
    - How can I speed this up Can anyone help me please The bit of code below outputs 30 text boxes onto a page and takes about 25 seconds to do. This is a trial sample of something I am trying to develop. My 2 Questions are 1) Is there a limit to the number of text boxes you can output to a document, and 2) If not, how can I speed this up. The application I am working on potentially has thousands of text boxes to output over 10s of pages. Many thanks Phil Option Explicit Function DrawTextBoxs(NoBoxes As Integer) Dim i As Long Dim TopCorner As Long Dim LeftCorner As Long For i = 1 To NoBoxes If LeftCorner = 0 Then LeftCorner = 20 Else LeftCorner = LeftCorner + 150 End If If TopCorner = 0 Then TopCorner = 10 End If If LeftCorner > 500 Then LeftCorner = 20 TopCorner = TopCorner + 100 End If ActiveDocument.Shapes.AddTextbox(msoTextOrientationHorizontal, LeftCorner, TopCorner, 100, 80).Select Selection.ShapeRange.Select With Selection.ShapeRange .TextFrame.MarginLeft = 0# .TextFrame.MarginRight = 0# .TextFrame.MarginTop = 0# .TextFrame.MarginBottom = 0# .Fill.Visible = msoTrue .Fill.Solid .Fill.ForeColor = i * 3000 .Fill.Transparency = 0# .Line.Transparency = 0# .Line.Visible = msoTrue If i / 2 = i \ 2 Then .Line.DashStyle = msoLineSolid .Line.Style = msoLineSingle .Line.Weight = 5 Else .Line.DashStyle = msoLineSquareDot .Line.Style = msoLineSingle .Line.Weight = 2 End If .Line.Style = msoLineSingle .Line.ForeColor = 1500000 - (i * 2000) End With With Selection.Font If i / 2 = i \ 2 Then .NameAscii = "Arial" Else .NameAscii = "Comic Sans" End If .Size = 10 + i \ 2 .Bold = True .Italic = False .Underline = True .UnderlineColor = wdColorAutomatic .StrikeThrough = False .DoubleStrikeThrough = False .Outline = False .Emboss = False .Shadow = False .Hidden = False .SmallCaps = False .AllCaps = False .Color = 2000 + (i * 3500) .Engrave = False .Superscript = False .Subscript = False .Spacing = 0 .Scaling = 100 .Position = 0 .Kerning = 0 .Animation = wdAnimationNone End With ' Center Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter Selection.TypeText Text:="This is Text Box " & i Selection.Collapse Next i End Function Sub Test() ' ' Test Macro ' Macro created 07/12/2004 ' Call DrawTextBoxs(30) End Sub Tag: Collection methods Tag: 60069
  - 13
    - Template macro question withdrawn Sorry, I figured this out from another post, works great. I think I'm getting a book... Thanks, Helen Tag: Collection methods Tag: 60068
  - 14
    - template macro I asked about a macro for making a document open in protected mode, with a custom toolbar showing. The protection macro is working great. So does the toolbar macro, as long as I'm opening the original template file for editing. However, when using File New to create a new document based on the template, the toolbar remains visible or not depending on the last user's setting. Is there a way to force it to be visible in a new document based on the template? Thanks in advance, Helen Tag: Collection methods Tag: 60067
  - 15
    - Insert logo Need a button (vba code) that inserts a logotype in a header (there is a bookmark b in a table). When the logotype is inserted and the user clicks on the button again it should not be inserted again. I also need the button that will remove the picture (logotype) if the user wants to undo the insert button. The documents can contain several pages, but the buttons should insert / remove the logo on the first page only (regardless from where you are in the document). Thanks for any help Tag: Collection methods Tag: 60065
  - 16
    - How can I view or print all the bookmarks in a word document at o. I am using Word 2003 and would like to view or print all the bookmarks in a document at one time. In brief: I use these bookmarks in the code of a audit report automation program (written in VBA for Word) and need to eleminate a document from which the program calls. I would like to use some of the bookmarks in another document and eleminate others. In the past I have had to write each bookmark out on a piece of paper. This method allows room for a lot of errors. There has got to be an easier way! Can any one help? Tag: Collection methods Tag: 60063
  - 17
    - Combining document with disparate styles I'm working on a project where I'm automatically combining two or more documents and I need to apply a consistent font throught the combined document. The problem is that doc A may have a style named X that uses a Helvetica font while doc B will have a style named Y that uses a Times Roman font. I have to apply a common style, but first I need to determine if these styles should be the same or if one is a heading style and the other a body text style. And I also won't know at runtime what styles to expect from the various documents I'll be assembling. Is the only solution to this problem to iterate through all the styles in a given document and do some basic heuristics on the discovered styles? For example, look at the properties of style X and decide if it is a heading style and then change the style a more generic style that is the best fit. Or would it be simpler to just update the font of all styles to use a pre-determined font family? Any ideas would be greatly appreciated. TIA -- Peter Bernhardt SharpSense Software LLC peter@SharpBASSense.netURA Tag: Collection methods Tag: 60062
  - 18
    - adding data to an embedded chart dynamically All, I've created a word document that contains an embedded chart (using Insert > Picture > Chart) The chart's layout optin is "In front of text". What I'd like to do change/modify the data in the datasheet of this chart using vba or vbscript, but I don't know how to reference it. I've done the same thing in PowerPoint with this: Set oApp = CreateObject("Powerpoint.Application") Set oPres = oApp.Presentations.Open("C:\Presentation.ppt") Set oSlide = oPres.Slides("slide1") Set oChart = oSlide.Shapes("chart") with (oChart..OLEFormat.Object.Application.DataSheet) .Range("A1").Value = 100 End With But I don't understand the object model of word well enough to do this in Word. I also don't know how to name objects in Word so that I can reference them. Many thanks in advance for any insight or advice! Cheers, Matt Stuehler Tag: Collection methods Tag: 60060
  - 19
    - Merging two documents A friend of mines asked me to help him with this project. We have two separate word documents. MovieTitles.doc and MovieInfo.doc Movietitles is just a document with movie titles formatted as follows: Godfather Speed Matrix etc. MovieInfo contains movie information such as: Godfather A cinematic classic depicting the lives of .... What we'd like to do is open both of these documents behind the scenes. If we have matching titles we want to create a third document that includes the movietitle from movietitles.doc and underneath the title we want to indent and include all of the movieinfo from the movie info from the movieinfo.doc We want the text bold and changed to the color blue. Finally we'd like to save this as a third document. So far they've been doing this manually. in my mind this process is screaming for automation. Any advise with this process is welcome. Thanks in advance. Malik Tag: Collection methods Tag: 60058
  - 20
    - Margins of section xx error message Hi, I am using Word automation to print documents to a PDF driver and on some documents I am having a problem with the "Margins of section x lie outside the printable region". The problem I have is that I only get this on some machines (the ones I need to use!) and not on others. For example on a Win 2K machine with Word 2003 installed I get the error, but if I take the same document to an XP machine with Word 2003 installed the document prints OK to the same PDF driver. Changing to an alternative suppliers PDF driver does not cure the problem. I have tried changing normal.dot do that it is the same on both machines but this has no effect.I have made sure Page Setup has no margins, etc,etc. The PDF drivers are the same on both machines, Word has the same Service Pack level. This is driving me crazy as the production machines for this all need to be Windows 2K. Does anyone know what settings Word takes into account when produciing this message ? From trawling the Newgroups it appears that this helpfull message can not be supressed. Is this correct ? Thanks Iain Hamilton Tag: Collection methods Tag: 60056
  - 21
    - Control Firefox via VBA Hi Is it possible to control Firefox 1.0 via Word-VBA? I wrote some neat tools for the IE using MSHTML and SHDocVw which I want to make it also work with Firefox, especially because of its tabbed browsing. I have allready googled through the net but I couldn't find a Module or library to bind into Word-VBA. Anyone out ther who has a clue? thx Itekt Tag: Collection methods Tag: 60055
  - 22
    - word document I am using windows 98SE Plus and recieved an email attachment that is word document but everytime i go to open it it tells me that it has performed an illegal operation and must close. How do i remedy this problem Tag: Collection methods Tag: 60049
  - 23
    - BREAK & CONTINUE... Hi All I am using Msword 2003 and its VBA Q1 : Could you please let me know how can i use continue statement as in VB .? Also,i have used several tab options in a multi page control and want to traverse through all the contols present in that multipage. Q2 :How can i traverse thorugh all the controls in the multipage in one go.? I could only get the "controls " property with the frame control, to use. Thanks for help. Alok. Tag: Collection methods Tag: 60038
  - 24
    - Split Directory\filename into two variables In my macro a user selects a filename using: With Dialogs(wdDialogFileOpen) If .Display Then strSourceFile = WordBasic.FilenameInfo$(.Name, 1) End If End With I want to split strSourceFile into a directory part, and a filename part. I've done this before by starting at the left most point of a string, then backing up one character untill a backslash is found, but I think there is probably something all ready built into VBA to do this. Tag: Collection methods Tag: 60036
  - 25
    - wdSaveChanges doesn't work I am using ActiveDocument.Close SaveChanges:=wdSaveChanges But I still get a prompt asking me to save changes. Any help would be nice. Tag: Collection methods Tag: 60029

What methods does a collection have? Specifically, how do I remove
all the elements from it?

You'd think this would be a trivially easy question, but Excel's VBA
help is the most horrifically unusable disaster M$ has ever
conceived...

--
Christopher Benson-Manica | I *should* know what I'm talking about - if I
ataru(at)cyberspace.org | don't, I need to know. Flames welcome.

Top

Re: Collection methods by Helmut

Helmut
Thu Dec 09 11:44:51 CST 2004

Hi Christopher,

WordVBA-Help says:

Methodes
Add
Item
Remove
Properties
Count

But I think, I must be missing the point.

Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word XP, Win 98
http://word.mvps.org/

Top

Re: Collection methods by Christopher

Christopher
Thu Dec 09 12:30:38 CST 2004

Helmut Weber <elmkqznfwvccbf@mailinator.com> spoke thus:

> WordVBA-Help says:

Hm, so it does... Wonder why Excel VBA help couldn't be as kind?

> But I think, I must be missing the point.

Not at all, now I know that Word's VBA help is actually useful.
Thanks.

--
Christopher Benson-Manica | I *should* know what I'm talking about - if I
ataru(at)cyberspace.org | don't, I need to know. Flames welcome.

Top