How set up an interactive date showing today + 7 days?

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Allowing user to set what and how many selections? We work with a lot of engineering documents. Each doc has basically the same general format, but specifics differ enough betweens sections that a one-size-fits-all template isn't possible. I can pull all the info out of the database to create the docs (this must be done through Word VBA; the database itself isn't capable of doing this). Each report doc is created as a plain text doc with no formatting. What I'm trying to do now is figure out the creation of an index table (as an Excel doc) that each section can customize. The info populating the index table would be pulled from each report doc as it is created. But each section's table will be different. For example, one section may want the data in Blocks 10, 12, and 15A in their index, while Block 15A may not even exist on another section's report. I'm trying to figure out how to let one administrator from each section customize their index format - what they want and how many data blocks they want to retrieve, rather than being the one person to create an individualized index table for each section, and customize it every time they change their mind! I'm considering popping up a modeless UserForm that will allow the user to select (in typical opened report) the headers of the blocks, the number of spaces the retrieved data will span, and then enter a title for that data field. For instance, if the report has 15A. TEMP: 13 deg C the user can select 15A. TEMP: and click a button on the form, which will set that text as a search string, then enter 8 spaces (for the retrieved data length) in a text box, and then enter a title in another text box. All of this search info could be written into a table saved in a doc associated with the UserForm, and read back into strings in a Form_Initialize event. This would allow the user to set up a table as big or small as desired. Then, when each report doc is created, the code searches for the selected string, then extends the range the specified number of spaces and selects that text to write into the Excel table. Does all this sound like a good way to go? Or am I doing things the hard way? Is there a better way to consider? Ed Tag: How set up an interactive date showing today + 7 days? Tag: 58073
  - 2
    - In VB what is the code to change a date from 10/10/04 to Oct... I have a vb form with a txtbox field which asks for a Date Received = txtDtRcv If user enters 10/10/04 I would like it to be formatted for October 10, 2004. How do I accomplish this? Tag: How set up an interactive date showing today + 7 days? Tag: 58063
  - 3
    - VBA To Change Page Numbering in Header... Hey gang, Got sort of a unique one. I'll try to explain without getting long-winded. I have a procedure-type document with page numbering in the Headers. Some times we need to insert a change to the procedure that forces a new page. This new page needs to have a ".1" added to the Header page numbering. For example, if I need to add a new page (section break - next page) between pages 10 and 11, my page numbering will end up being 10, 10.1, and 11. I have recorded a macro that has automated the insertion of two section breaks, turned off "Same as Previous", but I need to do the following: 1. On the new page, change the existing "field" page numbering from the existing number (in this case 11) to a hard-typed "10.1". 2. On the page that goes back to regular numbering, change it's new number (12) back to 11. I know it is quite easy to select the first page number and delete it by typing the actual page number I want, and going to the next section header and selecting the page number and changing it to "Start at...11", but I was hoping I could automate this for my staff (who aren't the most literate of word-processors)! HA! Sine this new page added could be anywhere, I am hoping to be able to look at the existing page number and change it to "Start at..." one less that it shows now. Not sure if this can be done. Especially with my limited VBA knowledge! Any ideas would be greatly appreciated. If you want me to post the recorded code I have for the Section breaks, holler back. TIA! -- Bill Foley, Microsoft MVP (PowerPoint) Microsoft Office Specialist Master Instructor - XP www.pttinc.com Check out PPT FAQs at: http://www.rdpslides.com/pptfaq/ Check out Word FAQs at: http://word.mvps.org/FAQs/General/index.htm Tag: How set up an interactive date showing today + 7 days? Tag: 58062
  - 4
    - Apply formatting taken from one object to another? Hiya, I have a mergefield which I am dynamically replacing with a link in my code. Even though the link says "\* MERGEFORMAT", it still does not retain formatting when embedded in the document. So, I'm having to change its formatting after it has been embedded. So basically, how can I say something like myLink.Formatting = myMergeField.Formatting - so that the embedded link has the same font/formatting etc. as the mergefield I'm replacing with it. Thanks Robin Tag: How set up an interactive date showing today + 7 days? Tag: 58061
  - 5
    - Save As Macro with File Name Is it possible to write a Save As Macro that I can run on exit from a form field tht will prompt the user to Save As and also put in a filename (standard filename that they can then amend). Let them save then continue going through the form fields? Many many thanks. Sally T Tag: How set up an interactive date showing today + 7 days? Tag: 58060
  - 6
    - Word 97: keyboard assignment doesn't come into effect Dear all, Here I've got a problem which doesn't seem to exist in Word XP, but unfortunately some of 'my users' still work with Word 97 and there it does. I experience this problem using VBA code, but the same seems to happen when I try it by hand. (Tools Customize Keyboard...) I want to assign Alt-Ctrl-W to the macro PrintAndCloseFiles (which resides in a module that has been copied to Normal.dot) using this code: CustomizationContext = NormalTemplate KeyBindings.Add KeyCode:=BuildKeyCode(wdKeyW, wdKeyControl, wdKeyAlt), _ KeyCategory:=wdKeyCategoryMacro, _ Command:="PrintAndCloseFiles" (for the last I also tried "Normal.ModuleOpenClose.PrintAndCloseFiles", but this makes no difference) After running this code Alt-Ctrl-W remains for some exotic character, which seems to be the default assignment. A I told you the same holds for doing this by hand. I would be very happy with some explanation and above all: solution! Thanks in avance! Tag: How set up an interactive date showing today + 7 days? Tag: 58057
  - 7
    - Using checkboxes to create an action list I'm writing a question and answer template in Word 2000 to gather requirements for a project. There are certain questions where the answer is not currently known and these need to be converted to action points for the upcoming project. The template currently has a load of questions with text boxes to gather the answers but what I want to do is add a checkbox and a textbox to each of these to determine whether an action is required and who that should be assigned to. Is it possible to put some code behind these boxes so that if the check box is ticked then the details of the text box with the answer in and the text box with the name of the person the action should be assigned to is added to another section of the document? Any help would be much appreciated. Simon Tag: How set up an interactive date showing today + 7 days? Tag: 58056
  - 8
    - Normal.dot seems to change MyTemplate.dot Hi I've made up a template with macros and it is called MyTemplate.dot I thought that it would be independant of Normal.dot and that I could change the loading of my personal menu and commands etc without the two dot files interfering with each other. But when I change sth in MyTemplate.dot , then Normal.dot is changed as well or visa versa Have I got a wrong idea or have I done sth wrong? Thanks Dave Neve Tag: How set up an interactive date showing today + 7 days? Tag: 58055
  - 9
    - Running functions Hi The macro below is apparently recursive and can cause a computer to run out of memory. But how do you run it as it doesn't seem to execute from VBA Editor and the macro doesn't appear in VBA explorer. Does a function have to be called from another sub or something? Thanks _____________________________________ Function RunOut(Maximum) RunOut = RunOut(Maximum) End Function _______________________________ Tag: How set up an interactive date showing today + 7 days? Tag: 58047
  - 10
    - How many Sub AutoOpen() can you have in one document Hi If I want to have more than one thing to happen automatically when I open a document, how to I do this. I already have a 'sub AutoOpen' macro and I wanted to add a second one but their is an 'ambiguity of name window' Thanks in advance Tag: How set up an interactive date showing today + 7 days? Tag: 58043
  - 11
    - Normal.dot seems to change MyTemplate.dot Hi I've made up a template with macros and it is called MyTemplate.dot I thought that it would be independant of Normal.dot and that I could change the loading of my personal menu and commands etc without the two dot files interfering with each other. But when I change sth in MyTemplate.dot , then Normal.dot is changed as well or visa versa Have I got a wrong idea or have I done sth wrong? Thanks Dave Neve Tag: How set up an interactive date showing today + 7 days? Tag: 58042
  - 12
    - AutoExit() won't execute Hi Why won't this simple bit of code work. I'm trying to understand 'automatic macros'. It works if I execute it in VBA but not when I close the doc or Word. Thanks __________________________________________________ Sub AutoExit() MsgBox "Have a Nice Day", _ vbOKOnly + vbExclamation, "Dave Neve" End Sub __________________________________________________ Tag: How set up an interactive date showing today + 7 days? Tag: 58041
  - 13
    - Project locked Hello I have a doc with a few macros. Suddenly, without any warning, it has gone and locked itself (it must have been me as I was mucking around with auto macros) Anyway, when I try to open it in VBA, there is a 'project locked' window. I'm adamant that whatever I did, it wasn't to type in a password as I wasn't looking at this aspect. Furthermore, when I try to open it, Word doesn't ask me for a password as it should do if I had really given it a password. How to I get it open again or am I screwed?!?!?! Thanks Tag: How set up an interactive date showing today + 7 days? Tag: 58040
  - 14
    - Online Printers I utilize a VBA macro to automate the printing of various documents to a variety of different printers. Occasionally, the macro will hang if the intended printer isn't available online at the time, either because it is turned off, the computer to which it's attached is turned off or because the computer from which I am printing isn't attached to the network. Is it possible, using VBA, to check whether or not a specific printer is online and in working order? Furthermore, if it isn't, is it possible to "pause" the printer and print, in effect, to a queue that can be resumed later when everything is up and in working order? Thanks. Tag: How set up an interactive date showing today + 7 days? Tag: 58028
  - 15
    - How to return the name from selected shape Hi Does anybody know how to return the name or index number from a selected shape in Word. I thought it should be something like this: msgbox Activedocument.Shapes(ActiveShape).name but it is not working /Finn Tag: How set up an interactive date showing today + 7 days? Tag: 58019
  - 16
    - using a macro to format currency and dates in a table cell Hi, I've been pondering this one for days now. I have text in a table cell that I always have to select and bold. There are 3 dollar values and one date that need to be formatted to bold. The date also needs to be changed from ##/##/#### to a full date format. Below is a sample of how the text looks in the table cell. It is imported from an access database and can't be formatted prior to being imported into the word document. This box contains $4.00 three dollars amounts $457.00 and one date that need changing $9990.85 in some way. I've tried using Mid, FormatCurrency, Int and a few other VBA functions and commands, but the closest I got was to bold one dollar figure with no control over the size of the figure (it bolded 2 letters to the left of the dollar) - then I forgot what I had done after trying other methods! It's just a bit beyond my VBA skills to write it. Can anyone help? Tag: How set up an interactive date showing today + 7 days? Tag: 58016
  - 17
    - Document Variable Question Word 2000 I'm working on some macros that use document variables. I wrote one test macro that shows me the name and value of each document variable. When I run this test macro, I see the following document variable information: Name =Sign Value = ? My code does not create this document variable (I searched my code for "Sign" and that string does not appear anywhere in any of my code modules). If I delete this document variable (using a test routine I wrote for that purpose), it gets recreated. So I assume that Word is creating this document variable. Out of curiosity, can anyone tell me why? -- Tom State of Montana Department of Justice Help Desk "Making the world a safer place." Tag: How set up an interactive date showing today + 7 days? Tag: 58015
  - 18
    - dao.record set Have 3 pc's with windows xp pro & office xp on all. One day one of the pc's error on a word macro @ this line: "rstproj as dao.record set". Tried redoing the libraries but no banana :-(. Reinstalled office xp still no banana. Used to work & still works on one of the pc's. Anyone got any ideas? TIA Tag: How set up an interactive date showing today + 7 days? Tag: 58014
  - 19
    - Ppen blank Word doc from C# based on a custom teplate.[ Word 2003, Hi! I need to open a blank Word 2003 document from a C# executable. The document must be based on a custom developed template using Visual Studio Tools for Office (also C#). I am having difficulty getting started. I am trying to reference Office assemblies in my C# app but can not find where they are. I performed complete installation of Office on my PC. Also, how do I open the doc and assign a different template than Normal? Is there a way to open a blank Word document in such a way that new version of Office do not break my application? For instance, if I reference Word 2003, when Word 2006 comes up, is my app going to break ? Any ideas/suggestions/urls/code samples are greatly appreciated. Tag: How set up an interactive date showing today + 7 days? Tag: 58013
  - 20
    - Using custom dialgo boxes I am running Word 2000 and am trying to design a document that combines different paragraphs depending on different choices and inputs by the user. To do that I'm trying to create a custom dialog box that has text boxes and different option boxes. I have been able to create the custom dialog box as well as a macro that shows the dialog box. However, I can't figure out how to pass information that the user inputs in the text boxes on the custom dialog box to the macro that complies the document. Can anyone help me? Tag: How set up an interactive date showing today + 7 days? Tag: 58008
  - 21
    - formatting text box if users input numbers I created a user form that collects data. There is a text box in which users can enter in text or numbers. If the user enters in numbers is there VBA code that will make the entered numbers show up in a specific format Ie: #,##0.00 Thanks Tag: How set up an interactive date showing today + 7 days? Tag: 58005
  - 22
    - Using Bookmarks for SaveAs File Name RE: Word 2003 Iâ??ve created several bookmarks for my Word UserForm. When I create a new document based on my template, my dialog box opens asks for patientName, PatientID, clinicDate. On command it fills in the corresponding bookmarks correctly. I want to use these same fields such that on saving the document it uses these 3 same fields (concatenated) as the file name to be stored at a remote site. (The remote site remains constant and is located on the Save As dialog box.) I would like to do this as a macro and assign it to a key-combination. I donâ??t know how to place these bookmark values into the file name box of the Save As dialog box. (Name, ID, and Date change with each file.) Related Question: I know itâ??s bad practice but I would like to encrypt the file just before saving it using the macro. The macro for this works fine, but the template obviously exposes the encryption password. Can I encrypt the template? Thank you, Phil Tag: How set up an interactive date showing today + 7 days? Tag: 58001
  - 23
    - Footer Page Numbers continued.... Hi Harold Many thanks for the restartnumbering=false tip. I have entered the extra command line in to my procedure but keep getting the following error Run time error 91 - object variable or with block variable not set please see my code below - have I just put the command in the wrong place?? many thanks. ---------- Sub InsLscPgA3() 'Insert a Landscape Page 'On Error GoTo EndLine Selection.InsertBreak Type:=wdSectionBreakNextPage With Selection.PageSetup .PaperSize = wdPaperA3 .LineNumbering.Active = False .Orientation = wdOrientLandscape .TopMargin = InchesToPoints(1.25) .BottomMargin = InchesToPoints(1.25) .LeftMargin = InchesToPoints(1) .RightMargin = InchesToPoints(2.5) .Gutter = InchesToPoints(0) .HeaderDistance = InchesToPoints(0.49) .FooterDistance = InchesToPoints(0.49) .FirstPageTray = wdPrinterDefaultBin .OtherPagesTray = wdPrinterDefaultBin .SectionStart = wdSectionNewPage .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .VerticalAlignment = wdAlignVerticalTop .SuppressEndnotes = False .MirrorMargins = False .TwoPagesOnOne = False .BookFoldPrinting = False .BookFoldRevPrinting = False .BookFoldPrintingSheets = 1 .GutterPos = wdGutterPosLeft End With Selection.HeaderFooter.PageNumbers.RestartNumberingAtSecti on = False Exit Sub EndLine: MsgBox "Your printer will not allow A3 pages - change your default print settings" End Sub Tag: How set up an interactive date showing today + 7 days? Tag: 57996
  - 24
    - Word 2003. Opens file /runs macro. How do I prevent dialog boxe. We are using a PeopleSoft feature, that supposed to open a document, run a VB macro and create a new file and shut Word. It opens the file, and runs the macro. Then it starts asking questions via a dialogue box. So that completely stops the process. Is there anyway to shut off those dialogue boxes. Just take the defaults and keep runing. Once this process stops, it hangs any future processes because someone has to go to the server and hit enter a few times to clear out the questions. I can't find any switch or setting to get us around this. Tag: How set up an interactive date showing today + 7 days? Tag: 57994
  - 25
    - Table Borders Is there a way to not print the table borders in a document - I have 200 documents using tables to lay the document out efficiently but unfortunately didn't remove the borders before creating them (they were created initially using a mail merge). To save having to remove the borders from all the files can I just have a print event? This is the one I have tried but it doesn't work and it is only set to work on the first table in a document anyway, I will have many tables- can anyone help please?? Thank you. Gail Private Sub appWord_DocumentBeforePrint(ByVal Doc As Document, Cancel As Boolean) Set myTable = ActiveDocument.Tables(1) With myTable.Borders .InsideLineStyle = wdLineStyleNone .OutsideLineStyle = wdLineStyleNone End With End Sub Tag: How set up an interactive date showing today + 7 days? Tag: 57983
- Next
  - 1
    - is it possible to make textboxes No VBA expreience, just trying to research. I have an idea for an app I'd like to build inWord, and part of the way it would work is to build one or many text boxes. Don't know if that's terminology, but I am talking about the white thing at the bottom of Word (when you have selected Drawing tools), and this white thing has the letter A in it. Word refers to it as a Text Box, anyway. So is there a way to do this where it will build a number of text boxes, allow me to specify a border, and then populate the text boxes with content based on the choices the user makes in a form? Tag: How set up an interactive date showing today + 7 days? Tag: 57980
  - 2
    - protecting document - word'97 Hi all, I am writing a VB application for Word 97. The application merges several prewritten Word documents based on the user selection. For example, if the user selects to generate certain type of document in the application, I would like to generate a new document at runtime by merging DoumentA.doc , DocumentB.doc and DocumentC and display it to the user. I can do this without any problem. But now I need to password protect the contents coming from the DocumentC.doc in the new document. How can I do this? Thanks. -Nikhil Tag: How set up an interactive date showing today + 7 days? Tag: 57979
  - 3
    - macros repeat command print selected pages in 2000 page file? I'm trying to print selected pages in a 2000 page file. I've set up the macro and it works on a single instance basis but I need a command to insert at the end of the Macro to tell it to search for the next qualifier and repeat to end. Thanks Tag: How set up an interactive date showing today + 7 days? Tag: 57978
  - 4
    - Word inside IE 1) I have a web site that prepares a word doc for a user 2) The user uses IE to open the word doc (Clicks on the filename.doc) 3) My autoopencode in a macro preloads some data from the web site into doc 4) The user cleans up the doc and adds lots more date 5) Clicking on a button saves the doc to the c drive of the user and uploads it to the web site The question is, can I get the user to exit, that is move on to the next web page, using Word ocde?? I can't figure out how to tell IE anything from within Word, even though Word is contained in IE. I can msgbox the user to tell them to use the back button, but that then asks them to save the word doc (it's already saved), and it gets them to the wrong web page. Ideas?? Tag: How set up an interactive date showing today + 7 days? Tag: 57977
  - 5
    - Exporting modules Hi, I have exported some modules and forms (*.bas, *.frm, and *.frx) from a project. Can I call these files from within a project? / Ulf Tag: How set up an interactive date showing today + 7 days? Tag: 57976
  - 6
    - Bring to Front? How can I bring a word document to the front of the display? At present, my documents are all in the background (invisible). When I've finished with automation, I want to bring one to the front (on top). Any ideas? Thanks. Tag: How set up an interactive date showing today + 7 days? Tag: 57975
  - 7
    - Footer Page Numbers I have macros to insert an A4 Landscape Page, A3 Portrait and an A3 Landscape page. When these pages are inserted it obviously has to insert a section break. The insertion works wonderfully, however the page numbering in my footer restarts at 1 on all new pages. If I maually edit the footer and change the format to continue from pervious it updates and all is well but I would like to make this happen automatically as part of the insert page procedure. I cannot find reference anywhere to the command of "continue from previous" - can anyone help?? Is it possible to change the number format of a page number in code?? Thanks Kerry Tag: How set up an interactive date showing today + 7 days? Tag: 57970
  - 8
    - Style Headache Hello I have 75 documents which have a style named ClientStyle - i need to create a table of contents based on this client style. However, for some reason the client style is a character style !! not a paragraph style!! Is there anyway I can create a TOC based on a character stye or is there a quick way to change a style from character to paragraph in 75 documents. The 75 documents are not linked or attached to their original template. Thanks very much for your help. Beck. Tag: How set up an interactive date showing today + 7 days? Tag: 57965
  - 9
    - Hiding the cursor in Word through VBA? Hi, Is there a way to hide the textcursor in Word? I need to hide the textcursor while doing some lengthy operations. Thanks in advance Jean Tag: How set up an interactive date showing today + 7 days? Tag: 57961
  - 10
    - Printing track changes message I'm trying to send certain pages of a document with track changes through a macro (I do want the revisions marks to print). However, the followng message appears with every print job: "The document being printed contains tracked changes. Continue printing?" Is there any way to programmically turn off this message so it just prints out? Thanks. Tag: How set up an interactive date showing today + 7 days? Tag: 57958
  - 11
    - Attach template/macro after merge Hi all, I am trying to automate a mail merge process, which has worked okay so far, but I am finding that when the merge to new document is complete, I lose the other macros that were in the original template. I am not allowed to mess with Normal.dot so I can't make my macros part of that template, which is what the new form letters are based on. Is there a way of bringing the macros from the main document template over to the new merged form letters? Thanks for any help you can offer. Zoe Tag: How set up an interactive date showing today + 7 days? Tag: 57957
  - 12
    - Bookmark truncation help In our department i am in charge of putting together forms. We use a document management system (DMS) that incorporates Word as our database's word processer over the old dinosaur of a processor we used to have. Anywhoo.... we use bookmarks in incorporate certain bits of info from our database into documents (client's first names, last names, case numbers, etc.) The following is what I use to delete leading zeros from a case number bookmark: the bookmark in this example is coded as CASNMI. {=ABS ([CASNMI]) \# "###0" \*MERGEFORMAT} The result of this coding within the document is a number like 44565 instead of 00044565. It cuts off the leading zeros, resulting in a neater looking document. Okay, this leads me to the question that I have now. What coding do I use to get the bookmark for the middle name to truncate it to just the first middle initial. So that instead of inserting the middle name as "Smith", my result would just be "S". No macros please, as they do not translate into the use of our DMS program. Tag: How set up an interactive date showing today + 7 days? Tag: 57954
  - 13
    - How do i iterate through picture collection? How do i iterate through picture collection in the Active Doc? I've tried 'Shapes' collection, but it only seems to find some of the pictures, but not all Tag: How set up an interactive date showing today + 7 days? Tag: 57952
  - 14
    - Resize Word's window very small? My code opens and closes documents, causing the documents windows to "flash" rapidly. I thought if there was a way to resize these windows after they open to very small squares, I could minimize the "flashing" effects. Can this be done in VBA? Ed Tag: How set up an interactive date showing today + 7 days? Tag: 57951
  - 15
    - Inserting web-based images into a Word Document Using VBA In WORD VBA, I can use easily open a web-based html file, using: Documents.Open Filename:="http://www.mysite.com/index.html", ConfirmConversions:=False, format:=wdOpenFormatText However, if I try to insert a we-based IMAGE file, using either of these: Selection.InlineShapes.AddPicture Filename:="http://www.mysite.com/myimage.gif", LinkToFile:=False, SaveWithDocument:=True ActiveDocument.Shapes.AddPicture Filename:=:="http://www.mysite.com/myimage.gif", LinkToFile:=False, SaveWithDocument:=True I get an "Invalid File Name" error. How can I insert a web-based image into a document using VBA? -- Ron Pierce localization: www.lucenaturale.com/tran Tag: How set up an interactive date showing today + 7 days? Tag: 57950
  - 16
    - Changing picture layout from vba I am using VB6 to control Word and importing a picture object into Word. When the picture is imported, I cannot move or reposition it without clicking on the Format | Picture menu then selecting the Layout tab and then clicking on the Tight mode (or another mode). After I do this, I can move the object. The problem is that I cannot do this when I start a macro and I do not know how to do this in code. Is there a better way to do this in code? Thanks in advance, WayneM Tag: How set up an interactive date showing today + 7 days? Tag: 57948
  - 17
    - Clearing the 'Undo' memory cache in Word to avoid sluggish behavio Hello, I have to work with approximately 1,000 page Word documents (talk about pushing things to the limit). I often have to make numerous find&replace operations (in fact I have them all saved in macros to run consecutively and automatically). The problem is that Word seems to run out of memory and evens warns of insufficient memory. I do not need the 'Undo' feature of Word in these circumstances. How can I turn off 'Undo"? Will that solve my problem? What I'd like to do is include macro code to clear the 'Undo' memory cache after each find&replace operation. Is this possible? Thanks for any and all expert opinions on this! Tag: How set up an interactive date showing today + 7 days? Tag: 57947
  - 18
    - Delete Picture from Header?? I had no trouble using VBA to add a bitmap picture to a header with ...Shapes.AddPicture "SomeFile" False, True, 8, 5, 380, 90 But I can't figure out how you use VBA to delete a picture from the header. I've tried this (from Helmut) but it has absolutely no effect. Dim oSct As Section Dim oHdr As HeaderFooter Dim oDcm As Document Dim oShp As Shape Set oDcm = ActiveDocument For Each oSct In oDcm.Sections For Each oHdr In oSct.Headers For Each oShp In oHdr.Shapes oHdr.Range.InlineShapes(1).Delete Next Next Next Next I tried this: ActiveDocument.Sections(1).Headers(wdHeaderFooterFirstPage).Range.ShapeRange (1).Delete but I get an error message 5941 about something not being in its collection How exactly do you use VBA to delete a picture from a header?????????????????? Thanks Jim Tag: How set up an interactive date showing today + 7 days? Tag: 57945
  - 19
    - Word "pops up" a message box occassionally..... I'm automating report creation from VB.NET using Word VBA. During this process, I need to embed links into the document at various places. Sometimes, Word pops up a message box as follows: Word is unable to create a link to the object you specified. Please insert the object directly into your file without creating a link. This is all well and good (because sometimes the link *is* invalid!) but I would rather be notified of it in my code than have Word pop up a message box that must be responded to by the user. My report creation process is supposed to go on in the background with Word "invisible", so obviously in this case the user won't be able to respond to the message (err, I don't even want the user to be able to do so!). So my question to you is: Is there any way to prevent Word popping up this message box and having my application handle the error instead? Tag: How set up an interactive date showing today + 7 days? Tag: 57944
  - 20
    - instr function with wildcard I'd like to find a three digit number within a string. It would be much (much) better if it's possible to do this using INSTR rather than Find. ex: mystring = "abcdef789gh" anumber = instr(1, mystring , whatever) What should whatever equal to find digits in mystring ? Thank you! Tag: How set up an interactive date showing today + 7 days? Tag: 57943
  - 21
    - control PowerPoint with Word From Word, I want to be able to display a dialog box prompting users to pick a PowerPoint file. I want to open the PPT file, save the PPT file as JPGs (all slides in the PPT), then close the PPT file, revert back to Word, and do some more stuff in Word. The PPT file will always be in the folder C:\Work. I'd like to be able to build a folder for the JPG slides that would be C:\Work\name_of_the_PPT_file, so users could easily reference the correct folder if they needed to at some future point. Below is some code that gets me part of the way there, but I can't figure out how to get just the name of the PPT file. I tried using something like this: PathOnly = WordBasic.FilenameInfo$(.Name, 5) ...but that only works if I display a second dialog box and write more coding, all of which seems cumbersome for users, plus I want to keep the coding as streamlined as possible. Anyone have any ideas how I can extract just the filename of the PPT file from the variables I have in the code, or do I need to do a major rewrite? = = = = = = = = = Sub Insert_PPT_pics() Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogFilePicker) Dim vrtItem As Variant Dim ppt1 As Variant Dim myFile As String With fd .AllowMultiSelect = False .Filters.Add "PowerPoint files", "*.ppt", 1 .FilterIndex = 1 .InitialFileName = "C:\Work" .InitialView = msoFileDialogViewList If .Show = -1 Then For Each vrtItem In .SelectedItems myFile = vrtItem Next vrtItem End If End With Set fd = Nothing Set ppt1 = CreateObject("PowerPoint.Application") ppt1.Visible = True ppt1.Presentations.Open (myFile) ppt1.Activate ' Here is where I want to save the PPT file as JPGs. ' Need to figure out how to get just the name of ' the PPT file rather than the whole path. ppt1.Quit ' Release object references Set ppt1 = Nothing ' revert to Word Selection.HomeKey Unit:=wdStory ' do some stuff in Word End Sub Tag: How set up an interactive date showing today + 7 days? Tag: 57942
  - 22
    - Change color of Selection indicator Hi, Is it possible to change the color of the Selection indicator. Normally, the selection is indicated by an inverse of the underlying text color and background color. (in a simple document, this would be white text on a black background). I was wondering if you can change these colors (eg...if you do a selection, it would show blue text on a green background). Cheers, Jean Tag: How set up an interactive date showing today + 7 days? Tag: 57940
  - 23
    - Save As I have created a command button that the users can update their Table of contents using the following code: .TablesOfContents(1).Update. Is there VBA code that I can write that will then open the Save as dialog box so users can save their final document. Thanks Tag: How set up an interactive date showing today + 7 days? Tag: 57938
  - 24
    - create hyperlink assigned to word bookmark Hi, I'm having trouble creating a hyperlink to assign to a bookmark in a word doco. Below is the code I'm using. This is giving me a type mismatch. The bookmark is called "hyper". I've tried various other ways with no luck. doc.Hyperlinks.Add Address="http://www.msn.com/", Anchor="This way", SubAddress=doc.Bookmarks("hyper") Any help much appreciated Tag: How set up an interactive date showing today + 7 days? Tag: 57931
  - 25
    - Saving as XML Hello, I have a problem. I open a UTF-8 coded XML-File in Word2003 and save it as UTF-8 in a new XML-File. The XML has the UTF-8 tag but the content isn't not UTF-8 coded. For example the german umlauts are still in the output file. On an other PC it works. What can it be? Thanks Werner Tag: How set up an interactive date showing today + 7 days? Tag: 57930

I need to set up an interactive field, preferably in word which will show me
today + 1 week from now so today + 7 days?

Any help,

Stefan

Top

Re: How set up an interactive date showing today + 7 days? by Bill

Bill
Mon Oct 18 10:47:57 CDT 2004

Try:

Format(DateAdd("d", 7, Now), "d MMMM yyyy")

--
Bill Foley, Microsoft MVP (PowerPoint)
Microsoft Office Specialist Master Instructor - XP
www.pttinc.com
Check out PPT FAQs at: http://www.rdpslides.com/pptfaq/
Check out Word FAQs at: http://word.mvps.org/FAQs/General/index.htm

"stefan" <stefan@discussions.microsoft.com> wrote in message
news:A125CBED-6D71-4D42-94E3-4A43C09E117A@microsoft.com...
> I need to set up an interactive field, preferably in word which will show
me
> today + 1 week from now so today + 7 days?
>
> Any help,
>
> Stefan
>
>

Top

Re: How set up an interactive date showing today + 7 days? by macropod

macropod
Tue Oct 19 04:19:41 CDT 2004

Hi Stefan,

Bill's reply show's you the easy way to do this with vba. If you really want
to do it with a field though (as your post suggests), download the Word
document at:
www.wopr.com/cgi-bin/w3t/showthreaded.pl?Number=249902
(url all one line)
That document will give you a thorough 'tutorial' with examples of how you
can do this and much more than you ever thought you might want to with dates
and times, all using Word fields.

Cheers

"stefan" <stefan@discussions.microsoft.com> wrote in message
news:A125CBED-6D71-4D42-94E3-4A43C09E117A@microsoft.com...
> I need to set up an interactive field, preferably in word which will show
me
> today + 1 week from now so today + 7 days?
>
> Any help,
>
> Stefan
>
>

---
Outgoing mail is certified Virus Free.
Checked by AVG anti-virus system (http://www.grisoft.com).
Version: 6.0.736 / Virus Database: 490 - Release Date: 9/08/2004

Top