Problem in VBA with opening Word templates.

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Static Macro Variable I have a macro that I run once per document. The macro pulls in a text report file and changes the font and orientation, then asks the directory I want to save the new document in and then the document name. These reports are downloaded from a mainframe and then saved as archive reports for users to refer to at a later date. I usually am processing 200-300 reports at a time every 3-4 months. This is a highly repetitive task which is why I created the macro. On my previous computer, using Word 2000, I was able to keep the directory name and the filename from instance to instance; only changing when I need to change the output directory or the filename. On my new computer running Word 2002 I have been unable to get the variables to be static. What am I doing wrong? Static Sub report() ' ' report Macro ' Macro recorded 10/30/2003 by Mike Wood ' Static dirname As String Static filname As String Selection.Delete Unit:=wdCharacter, Count:=1 Selection.Delete Unit:=wdCharacter, Count:=1 With ActiveDocument.PageSetup .LineNumbering.Active = False .Orientation = wdOrientLandscape .TopMargin = InchesToPoints(0.5) .BottomMargin = InchesToPoints(0.5) .LeftMargin = InchesToPoints(1) .RightMargin = InchesToPoints(1) .Gutter = InchesToPoints(0) .HeaderDistance = InchesToPoints(0.5) .FooterDistance = InchesToPoints(0.5) .PageWidth = InchesToPoints(11) .PageHeight = InchesToPoints(8.5) .FirstPageTray = wdPrinterDefaultBin .OtherPagesTray = wdPrinterDefaultBin .SectionStart = wdSectionNewPage .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .VerticalAlignment = wdAlignVerticalTop .SuppressEndnotes = False .MirrorMargins = False .TwoPagesOnOne = False .GutterPos = wdGutterPosLeft End With Selection.WholeStory Selection.font.Name = "Courier New" 'Selection.font.Name = "Courier New" Selection.font.Size = 8 dirname = InputBox("Please supply directory name for save", "Enter Directory Name") ChangeFileOpenDirectory ("K:\FINSRV\BILLING\reports\" & dirname) filname = InputBox("Please supply file name for save", "Enter Document Name") ActiveDocument.SaveAs filename:=filname, FileFormat:= _ wdFormatDocument, LockComments:=False, Password:="", AddToRecentFiles:= _ True, WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:= _ False, SaveNativePictureFormat:=False, SaveFormsData:=False, _ SaveAsAOCELetter:=False End Sub Tag: Problem in VBA with opening Word templates. Tag: 53362
  - 2
    - Closing Word Programatically I have the following snippet of code that works to print a documet programatically to a Amyuni PDF Converter Printer. The problem is that while the doc prints fine, the app hangs on the wordApp.Quit() call since the call to quit is ambiguous across the classe word.application and word.application.events2. Also,Word, the app, is running in the task manager and consuming precious memory. Since I added the call to Quit(), the interface becomes visible to the user after the printing is completed. This was not happening before and I must ensure that visibility is supress. Does anybody has any idea on how to tackle this two issues? That is suppressing visibility of the program interface and closing the program so the memory resources are free and returned to the OS. Dim wordApp As New Word.Application() Dim Documents As Word.Documents Documents = wordApp.Documents Documents.Open(RptFile, False, True) wordApp.ActivePrinter = "crPrinter" wordApp.PrintOut(False) Documents.Close() wordApp.Quit() Thanks for your help. Tag: Problem in VBA with opening Word templates. Tag: 53348
  - 3
    - Replacing "tag" with a picture Hi - I have a number of Word documents that contain delimited text strings with the path and filename of a picture. For example: <#c:\temp\picture1.jpg#> I'd like to search the document, find the picture references (based on the <#...#>) and replace the text with the picture. Before I open my first VBA book could someone let me know if this is worth looking into doing? If so, a little push in the right direction would be greatly appreciated! Thanks- Pete Tag: Problem in VBA with opening Word templates. Tag: 53347
  - 4
    - Any way to use file path as SaveAs name? I would like to save a doc with a name something like "Files in "C:\<whole filepath>" ". Is there any way in a VBA macro to format the <filepath> so it isn't rejected because of the "\" character? Ed Tag: Problem in VBA with opening Word templates. Tag: 53343
  - 5
    - High Performance Programming in MS Word Hello, I am new to MS Word programming, currently, I am planning to do a project in which aims to 1. Read every words in a word document and parse it and analyze it using multiple data mining algorithms (they are very CPU intensive algorithm!) 2. Bold and highlight the analyzed words in the same document I have really no idea where to start with, the main concern is to choose an efficient method to implement the system. After some searching in google, there are some suggestions: 1. Pure VBA implementation 2. C++/COM + VBA Some people said C++/COM + VBA is even slower than pure VBA implementation. Is it true? I would like to hear more suggestions on high performance programming in Win Word. Thanks Nick Tag: Problem in VBA with opening Word templates. Tag: 53337
  - 6
    - What is an empty template Hi; If a template is created as empty, does it still have all of the normal.dot formatting and override normal.dot? If so, on install my installer needs to make the special template as a copy of the user?s normal.dot. thanks - dave Tag: Problem in VBA with opening Word templates. Tag: 53332
  - 7
    - Can i access chartacter formatting properties? Can i use the Word COM API or VBA macro to read and update formatting data such as font colour on individual colours? TIA Pat Long Tag: Problem in VBA with opening Word templates. Tag: 53327
  - 8
    - menu objects disappearing - if 2nd Word, close 1st Word, close document Hi; First off, this is a C# IDTExtensibility2 (not VSTO) add-in - under Word 2003. Ok, here's the really weird bug. Start Word From Word select new document so I get a second instance of Word. Close the first Word application. Close the document in the second instance of word. Now my CommandBarControl objects from the menu I created throw an exception when I try to access their Enabled property. The menu is still there. This does not happen if the first instance of word is the one I close the document in. Any ideas? thanks - dave Tag: Problem in VBA with opening Word templates. Tag: 53326
  - 9
    - Can't use Office 10 instead of Office 11 Hi all; I have a C# Word add-in I have written that works great with Office 11. I added the Office 10 interops as described in http://msdn.microsoft.com/library/default.asp?url=/library/en-us/dnoxpta/html/odc_oxppias.asp. And in the GAC I have the Word 10 dll. But it won't show it in the references, add, COM list. And I can't browse to it because it's in the GAC. Any ideas? thanks - dave Tag: Problem in VBA with opening Word templates. Tag: 53325
  - 10
    - Getting an object cast exception - on just one machine Hi; First off this is a .NET/C#/IDTExtensibility2 application. The following code works fine on two computers: public void OnConnection(object application, ext_ConnectMode connectMode, object addInInst, ref Array custom) { applicationObject = application; } public void OnStartupComplete(ref Array custom) { ApplicationClass app = applicationObject as ApplicationClass; app.ApplicationEvents3_Event_DocumentOpen += new ApplicationEvents3_DocumentOpenEventHandler(Event_DocumentOpen); } But on a third computer, while app comes back as a System.__ComObject, the attempt to get the document open event throws a "Object reference not set to an instance of an object" exception. This third computer has Office 2003 installed on it. However, the other 2 computers have VisualStudio installed and this one does not - if that makes any difference. Any ideas? thanks - dave Tag: Problem in VBA with opening Word templates. Tag: 53324
  - 11
    - Retrieve caller I need to write a macro which is called when a form checkbox is checked (or unchecked) and determines what the name of the checkbox is that triggered the macro. For example, if the user checks Checkbox1, the macro needs to be able to load that name into a variable. Is anyone aware of how I could do this, or more importantly does anyone have a code example that would work for this? -Thanks much, Jon Tag: Problem in VBA with opening Word templates. Tag: 53322
  - 12
    - Form Fields within IF Field not saving data I have a protected Word Form with form fields and many layers of IF and other Fields. Many of the IF Fields TrueText and FalseText have form fields inside them. The problem arises when a user of the form saves the document to their computer using save as, the data entered inside the form fields that were located within the IF Field TrueText or FalseText is not saved. Looking for a way to fix this. Tag: Problem in VBA with opening Word templates. Tag: 53314
  - 13
    - Word Macro I am trying to run a macro in Word. Part of the macro, is supposed to change my print settings for a LaserJet 8100dn. After going into VB, and debugging the macro, I noticed that VB did not support the commands that I needed. Does anyone know how I can work around this, or possibly get an Add In, so I can use the settings I want. Thanks! Keith Sylvester IT Department, MMS ksylvester@funddrive.com Tag: Problem in VBA with opening Word templates. Tag: 53309
  - 14
    - FormField String too large I'm inserting a very large string into a formfield typing: FormFields("txtdesPrimerApellido").Result = "very large string". Why is word telling me that the string is too large if I set the MAX LENGTH of the form field as unlimited? TIA Tag: Problem in VBA with opening Word templates. Tag: 53308
  - 15
    - show label dialog box Per my last request, this is for Word 2002. THANKS. Kurt Tag: Problem in VBA with opening Word templates. Tag: 53305
  - 16
    - show label dialog box Hi, I would like to create a macro that displays the envelope/label dialog box, but on the label tab. (I have created a custom envelope macro, and therefore don't need the Word envelope feature.) Any help on the macro language to show the label dialog box? THANKS! Kurt Tag: Problem in VBA with opening Word templates. Tag: 53304
  - 17
    - Macro to eliminate mutiple blank lines. Hi, just wondering if anyone has made one already (Please dont waste your time writing it unless you have it), I need a macro that will go through a document and spot places where there is more than one blank line between lines with text and leave only one line. I'm looking for a simple recursive function. I can write a big function to do it but I think there is a simpler way I'm unfamiliar with. NOTE: I tried lookign for consecutive line breaks replacing them with one line break but that didn't really work. Tag: Problem in VBA with opening Word templates. Tag: 53301
  - 18
    - Is it possible to do this using VBA in MS Word Hi, I am a newbie to MS Word Programming, I would like to know if VBA is possible to do the following jobs for me: 1. When type a typo in word, the word will be underlined, is it possible to do this using VBA? 2. When you right click the underlined word, a list of suggestions will be shown, is it possible to program it using VBA? Since I am just a newbie, I don't know if VBA can do this or not, if this cannot be done using just VBA, pls point me to the right direction... Thanks and hope for reply. Regards, Johnny Tag: Problem in VBA with opening Word templates. Tag: 53297
  - 19
    - Checkbox Macro on Exit I've created a form template with "x" boxes. I'd like for the "xed" box to become red in color when the user clicks on it. I've tried assigning a macro to do this, but the message I get upon use is that the macro cannot be performed because the document is protected (which it would be, being a form!) Anybody have an idea for a work-around? (My experience w/ Visual Basic is minimal, but I think I can plug in a macro.) Thanks! Jenny Tag: Problem in VBA with opening Word templates. Tag: 53296
  - 20
    - 2003 best Help for dim OOP-er Does there appear to be some reason why this code returns a No. 4160, 'bad file name' error: Set docCurrentDocument = Documents(strFileName) or Documents(strFileName).BuiltInDocumentProperties(wdPropertyAuthor) where strFileName looks perfect, returned from: strFileName = Application.FileSearch.FoundFiles(index) ? -- Jim Shores Tag: Problem in VBA with opening Word templates. Tag: 53294
  - 21
    - Styles automatically renamed ... Word XP --------------- Problem: Step 1: - "Heading 1" is defined with certain formats Step 2: - User changed formats for "Heading 1" - The text parts that were "Heading 1" are automatically renamed to f.e. "Heading 1 + 11 pt" by Word Step 3: - I try to change formats for all text parts in the document that were originally formated as "Heading 1". Because they were renamed automatically, my changes do not affect those text parts. How can I get them back under control? Thanks for any help Best Regards, George Tag: Problem in VBA with opening Word templates. Tag: 53289
  - 22
    - Opening a Web Page I've got a word document that under certain conditions opens then creates an internetexplorer.application then immediately navigates to a web page, is there anyway of maximizing the internet explorer window through the word macro. Help!!! Stewart Tag: Problem in VBA with opening Word templates. Tag: 53288
  - 23
    - Removing Metadata Greetings. I'm trying to find a way to automate the removal of metadata (author info, etc.) from Word documents. Can someone recommend a good way to proceed? Ideally I would be able to "clean" docs with a single click from within Word, drop files onto an application icon, run the cleaner from the context menu, or script the process for multiple files. Is VBA the best way to accomplish this? Many thanks in advance for any tips, Michael Tag: Problem in VBA with opening Word templates. Tag: 53287
  - 24
    - Doc name and page # in header I have a few hundred or so word doc's. I'd like a macro to open each one and insert the document name and page numbers (ie: NameOfDocument.doc page 1 of 5) into the header. Then, save and close the file, open the next, etc. This would take forever if done by hand. Any suggestions? Thanks! C Tag: Problem in VBA with opening Word templates. Tag: 53278
  - 25
    - Problem populating a formfield with multiline text from Userform. I have a text form field called "bmAddress" and use a userform with a multiline text box to populate (ActiveDocument.FormFields("bmAddress").Result = userform.txtaddress). For some reason when the information populates into form field Â? (a square) appears on every new line. Â?Address 1 Â?Address 2 Â?Address 3 Â?Post Code On Windows XP it displays as a space, so I can't use a find and replace to remove the squares. Unfortunately i do need this to populate into a form field and not just a normal bookmark. Appreciate any help. Thanks Caro Tag: Problem in VBA with opening Word templates. Tag: 53264
- Next
  - 1
    - VC++ Automation Word 2000 Error : Unable to Disable "Cntrl-C" Hi, I am automating Word 2000 and I want to disable the "Ctrl C" keyboard functionality. (Using VBA I am successful in disabling the "Ctrl-C" by doing this - "Application.FindKey(BuildKeyCode(wdKeyControl, wdKeyC)).Disable") I am using the following C++ automation code which gives me the DISP_E_EXCEPTION error code on IDispatch::Invoke for "Disable" method ("AutoWrap" function below is a wrapper around IDispatch::Invoke). Here is my C++ code: parm1.vt = VT_I4; parm1.lVal = wdKeyControl;//::SysAllocString(L"^"); parm2.vt = VT_I4; parm2.lVal = wdKeyC;//::SysAllocString(L"c"); VariantClear(&result); AutoWrap(DISPATCH_METHOD, &result, pWdApp, L"BuildKeyCode",2,parm2,parm1); parm1.vt = VT_I4; parm1.lVal = result.lVal; VariantClear(&result); AutoWrap(DISPATCH_PROPERTYGET , &result, pWdApp, L"FindKey", 1,parm1); pWdKey = result.pdispVal; AutoWrap(DISPATCH_METHOD, NULL,pWdKey , L"Disable", 0); I will appreciate any help on this. Thanks. Vishal ---------------------- Here is the code for the AutoWrap Function if it helps: HRESULT AutoWrap(int autoType, VARIANT *pvResult, IDispatch *pDisp, LPOLESTR ptName, int cArgs...) { // Begin variable-argument list... va_list marker; va_start(marker, cArgs); if(!pDisp) { MessageBox(NULL, "NULL IDispatch passed to AutoWrap()", "Error", 0x10010); _exit(0); } // Variables used... DISPPARAMS dp = { NULL, NULL, 0, 0 }; DISPID dispidNamed = DISPID_PROPERTYPUT; DISPID dispID; HRESULT hr; char buf[200]; char szName[200]; EXCEPINFO pExcepInfo; // Convert down to ANSI WideCharToMultiByte(CP_ACP, 0, ptName, -1, szName, 256, NULL, NULL); // Get DISPID for name passed... hr = pDisp->GetIDsOfNames(IID_NULL, &ptName, 1, LOCALE_USER_DEFAULT, &dispID); if(FAILED(hr)) { sprintf(buf, "IDispatch::GetIDsOfNames(\"%s\") failed w/err 0x%08lx", szName, hr); MessageBox(NULL, buf, "AutoWrap()", 0x10010); //_exit(0); return hr; } // Allocate memory for arguments... VARIANT *pArgs = new VARIANT[cArgs+1]; ZeroMemory(pArgs, (cArgs+1)* sizeof (VARIANT)); // Extract arguments... for(int i=0; i<cArgs; i++) { pArgs[i] = va_arg(marker, VARIANT); } // Build DISPPARAMS dp.cArgs = cArgs; dp.rgvarg = pArgs; // Handle special-case for property-puts! if(autoType & DISPATCH_PROPERTYPUT) { dp.cNamedArgs = 1; dp.rgdispidNamedArgs = &dispidNamed; } // Make the call! hr = pDisp->Invoke(dispID, IID_NULL, LOCALE_SYSTEM_DEFAULT, autoType, &dp, pvResult, &pExcepInfo, NULL); switch(hr) { case S_OK: break; case DISP_E_BADPARAMCOUNT: MessageBox(0,"1","",0); break; case DISP_E_BADVARTYPE: MessageBox(0,"2","",0); break; case DISP_E_EXCEPTION: MessageBox(0,"3","",0); break; case DISP_E_MEMBERNOTFOUND: MessageBox(0,"4","",0); break; case DISP_E_NONAMEDARGS: MessageBox(0,"5","",0); break; case DISP_E_OVERFLOW: MessageBox(0,"6","",0); break; case DISP_E_PARAMNOTFOUND: MessageBox(0,"7","",0); break; case DISP_E_TYPEMISMATCH: MessageBox(0,"8","",0); break; case DISP_E_UNKNOWNINTERFACE: MessageBox(0,"9","",0); break; case DISP_E_UNKNOWNLCID: MessageBox(0,"10","",0); break; case DISP_E_PARAMNOTOPTIONAL: MessageBox(0,"11","",0); break; default: MessageBox(0,"Default","",0); break; } if(FAILED(hr)) { sprintf(buf, "IDispatch::Invoke(\"%s\"=%08lx) failed w/err 0x%08lx", szName, dispID, hr); MessageBox(NULL, buf, "AutoWrap()", 0x10010); //_exit(0); return hr; } // End variable-argument section... va_end(marker); delete [] pArgs; return hr; } Tag: Problem in VBA with opening Word templates. Tag: 53263
  - 2
    - Conditional compilation on Word version Hi anybody know how to get a conditional compilation based on the version of word ?? This bit of code doesnt work but illustrates what i need #if Val(Application.Version) > 8 Then ' 8 = Word97, 9 = Word2000 blahblah #endif Actually what i need is way of telling whether the Assistant(clippy) is loaded that works in both Word97 and Word2000, unfortunately the assistant appears to behaves slightly differently in each so i need different code. thanks Dave Tag: Problem in VBA with opening Word templates. Tag: 53262
  - 3
    - Word as report engine?? Hi: I'm new to word and am having some trouble figuring out how to create a report template of several pages and loading data from my SQL Server database into the appropriate sections of my report. The report requires that individual columns from individual records be used in specific portions of the report. There are often in excess of 20 records used for a report. I've tried the mailmerge which doesn't work because I must either select a form letter or a label. Any help or suggestions greatly appreciated. TIA, Cathy Tag: Problem in VBA with opening Word templates. Tag: 53260
  - 4
    - Automating change link source in Word document I created a master Word document, which has 115 links to a master Excel file. For each new client of mine, I need to save both the Word document and the Excel file under new names. This means that I have to change the links source manually for all 115 links. This becomes a rather tedious task, as I add new clients daily. Can someone help me with a macro that will change the link source? I use Word 2002 and Excel 2002. Tag: Problem in VBA with opening Word templates. Tag: 53256
  - 5
    - Conversion of VBA script for Word95 to Word 2002 The following is a script I developed years ago for Word 95 - it still works fine and is the reason my typist uses WORD 95 (no real need to upgrade). However, as I need to go to ACCESS2002/03 - I am thinking of moving on to WORD 2002/03 as well. Am I better off staying with VB Script or will the new macros in the latest versions of WORD be better? ___The code script basically collects the text from a group of letters puts/archives it into one file of template "pcopy" tagging each with a date and then saving the file with a name that includes the current date. ________ Dim wd,n Dim fso, f, f1, fc, s,h,nn, y, m, d dim sh, snn, sn, sy, sm, sd Set wd = CreateObject("word.basic") wd.FileNew ("pcopy") Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder("\\p266\c\my documents\practice letters\") Set fc = f.Files For Each f1 in fc n=n+1 s = f1.name wd.Insert Left(s, Len(s) - 4) + " .. " ' line16 wd.InsertDateTime "d MMM yy .. hh:mm:ss", 0 wd.ParaUp wd.RightPara wd.ParaDown wd.InsertPara wd.InsertFile "\\p266\c\my documents\practice letters\" + s, , , 0 wd.InsertBreak Next wd.editclear -1 y=datepart("yyyy",now) m=datepart("m",now) d=datepart("d",now) h=datepart("h",now) nn=datepart("n",now) sy=right(formatnumber(y,0),2) if m<10 then sm="0"+ formatnumber(m,0) else sm=formatnumber(m,0) end if if d<10 then sd="0"+ formatnumber(d,0) else sd=formatnumber(d,0) end if if h<10 then sh="0"+ formatnumber(h,0) else sh=formatnumber(h,0) end if if nn<10 then snn="0"+ formatnumber(nn,0) else snn=formatnumber(nn,0) end if if n<10 then sn="0"+ formatnumber(n,0) else sn=formatnumber(n,0) end if wd.FileSaveAs "\\p266\c\my documents\archive\" + sy + sm + sd + "_" + sh+snn + "_" + sn + ".doc" wd.FilePrintSetup "Photocopier on Lexnet" __________ -- John jrg_REM_SPAM@bigpond.net.au Tag: Problem in VBA with opening Word templates. Tag: 53245
  - 6
    - Word & Excel MVP code problem http://www.word.mvps.org/faqs/interdev/ControlXLFromWord.h tm I have been attempting to use this code on two PCs using Office 2000 and a friend has tried on Office XP, but in neither case was the code able to open Excel where it was not already running, just open the named file when it was already running. The code ran with no errors reporting, but nothing actually happened whenExcel was not running. The code was copied and pasted, with only the file pathname being changed. I managed to select the Microsoft Excel Object 9 ( 10 in XP) Library - although this option was not present for selection in the references until the code had run and failed at least once. Is there a problem with this code? Tag: Problem in VBA with opening Word templates. Tag: 53244
  - 7
    - Document not displayed properly I created a word template and the top half of the page is 2 columns wide - the bottom half of the page is a text box and the document text is written over top of the text box. The template executes a VBA macro that inserts the text that the user enters into text boxes and places the text at the appropriate bookmarks. When the VBA macro is done and the document is displayed in normal view it indicates where the column breaks are but it shows the 2nd column under the 1st in a single column width. If I click View-Print Layout the document is shown correctly 2 columns wide with the text box below. I am using Word 2003. What is the best way to correct this? Thanks Mike Tag: Problem in VBA with opening Word templates. Tag: 53235
  - 8
    - Damaged word files? After a power outage and a corporate upgrade to word 2003 (we don't now which is responsible for al the problems) we have problems with opening word files. It sometimes takes up to 5 minutes to open a simple word file. When it finally opens we save the content to a different word file (by hand). Now the question is can this task be automated? We don't just want to loop true al the files in VBA and do a save document. It must be some kind of a copy al content and save that as a new document function but how can we do this? What is the best way to select al of the content? Thanks in advance. Kevin Bronsdijk Tag: Problem in VBA with opening Word templates. Tag: 53232
  - 9
    - how to make a document password protected on closing Hello - I hope this is the right forum. I am not a programmer but think I need a programmer's help for this. I would like a Word form to be password protected upon closing. This is to allow a survey result to remain confidential until opened by the correct person. Security level doesn't need to be very high. Is there a macro that can do this? thanks. Tag: Problem in VBA with opening Word templates. Tag: 53231
  - 10
    - FAQ - frequently asked questions - vba - Please Read Before Posting - unofficial FAQ = Frequently Asked Questions - brief - vba - unofficial This FAQ is posted weekly.- more or less Please save us all some time by reading it before posting to the news group. This newsgroup is about VBA - Visual Basic for Applications - which is the programming language for Word 97-2003 (macros). There is a longer FAQ with more questions and links that is regularly posted in the non-VBA Word newsgroups. You may want to check that out as well. --- BEFORE POSTING ANYTHING PLEASE READ THESE --- http://www.mvps.org/word/FindHelp/Posting.htm http://www.dts-l.org/goodpost.htm Reading these articles will help you get a quick and meaningful response to your question rather than just more questions for you. It may keep your message from being screened or bounced. A few basics, though: (1) Be nice; everyone answering questions here is a volunteer. (2) Post a question in only one newsgroup generally. If you _have to_ post in more than one, post a _single_ message and put both newsgroups in the header for that _single_ message. (3) Do not attach anything to a message. (4) The only really stupid question is the one you don't ask. (5) Do not use your real email address unless you want spam. (See bottom for sample.) The reasons for the requests are spelled out on the web page. A longer version of this FAQ is also on the Internet at http://addbalance.com/word/index.htm Newsgroup Archives: http://groups.google.com/advanced_group_search MVPs FAQ site: http://www.mvps.org/word/ To the extent there is any "official" FAQ, this is it. --- Also, before posting, you may want to look at the following questions to see if yours is among them. ---------- ---------- ---------- ---------- ---------- ---------- 1. I see a macro in a newsgroup I would like to try. How do I add it to my template? http://addbalance.com/word/macrosfromnewsgroup.htm or http://www.mvps.org/word/FAQs/MacrosVBA/CreateAMacro.htm 2. What are some good books for me to read about Word? http://addbalance.com/word/wordbooks.htm and http://www.mvps.org/word/Tutorials/BookRecommendations.htm 3. How can I run a macro automatically when a document opens, closes, is created? http://www.mvps.org/word/FAQs/MacrosVBA/DocumentEvents.htm 4. What is an MVP? http://www.mvps.org/word/AboutMVPs/index.html and http://addbalance.com/word/mvp.htm 5. I need to make a form to... Userforms are custom dialog boxes written using vba. If you want a fill-in-the-blanks form you want what Word calls an online form. Look in Word's help for that, and for more info on online forms follow the links at: http://addbalance.com/word/wordwebresources.htm#Forms especially Dian Chapman's series of articles If you want a custom dialog box that you code with VBA commands you want a UserForm. Take a look at: http://www.mvps.org/word/FAQs/Userforms.htm 6. Where can I find more information on the Web? http://addbalance.com/word/wordwebresources.htm#webvba http://www.mvps.org/word/FAQs/MacrosVBA.htm http://www.mvps.org/word/FAQs/Userforms.htm http://www.mvps.org/word/FAQs/Customization.htm http://www.mvps.org/word/FAQs/OfficeInterdev.htm Comments / corrections / additions may be sent to wordfaq@no.spam.addbalance.com. Remove no.spam from the address. (This is a "proofed" email address, I hope.) Posted 5 July 2004 Charles Kenyon (the editor) Tag: Problem in VBA with opening Word templates. Tag: 53229
  - 11
    - Macro to Wrap Selected Text with Brackets Hi, Is there a way to wrap pre-selected text with brackets using VBA? To explain, the user types text (can be numbers, dates, one or more words), selects the text to be wrapped with brackets and kicks off a macro to insert open bracket at the beginning ([) and a closing bracket (]) at the end of the selection. Thanks in advance. Tag: Problem in VBA with opening Word templates. Tag: 53224
  - 12
    - Adding reference without UNC When I use "ActiveDocument.AttachedTemplate.VBProject.References.AddFromFile" and add a reference to something like "X:\xxx\xxx.dot" it adds a reference to "\\Servername\xxx\xxx.dot". I have a global template started from the Word Startup directory. At the beginning of my code I add a reference in the above mentioned way to be able to access methods in my global module. When I now look in the Tools-Add Ins dialog I now have two references to the same template (and double menu bars from my template). One reference with UNC-path and one without. I use Word 2003. In earlier Word versions it works fine Does anyone have any idea how to get rid of these double references? Is the only way to set the path to the Startup directory using UNC notation? Thanks in advance, Siim Tag: Problem in VBA with opening Word templates. Tag: 53223
  - 13
    - open Excel from Word 2000 I am sure I am probably missing something silly, but I have copied code from the MVP site to open an instance of excel where one is not already open. Unfortunatley I get a "user type not defined" error when I try to run it. What have I missed? (best point it out simply unless I also missed it from the MVP site- it mentions adding a reference, but not sure if th code is doing that or i was supposed to have done something?) Sub WorkOnAWorkbook() Dim oXL As Excel.Application Dim oWB As Excel.Workbook 'Dim oSheet As Excel.Worksheet 'Dim oRng As Excel.Range Dim ExcelWasNotRunning As Boolean Dim WorkbookToWorkOn As String 'specify the workbook to work on WorkbookToWorkOn = "C:\CONTRACT\CONTRACTnew.xls" 'If Excel is running, get a handle on it; otherwise start a new instance of Excel On Error Resume Next Set oXL = GetObject(, "Excel.Application") If Err Then ExcelWasNotRunning = True Set oXL = New Excel.Application End If On Error GoTo Err_Handler 'If you want Excel to be visible, you could add the line: oXL.Visible = True here; but your code will run faster if you don't make it visible 'Open the workbook Set oWB = oXL.Workbooks.Open(FileName:=WorkbookToWorkOn) 'Process each of the spreadsheets in the workbook 'For Each oSheet In oXL.ActiveWorkbook.Worksheets 'put guts of your code here 'get next sheet 'Next oSheet If ExcelWasNotRunning Then oXL.Quit End If 'Make sure you release object references. 'Set oRng = Nothing 'Set oSheet = Nothing Set oWB = Nothing Set oXL = Nothing 'quit Exit Sub Err_Handler: MsgBox WorkbookToWorkOn & " caused a problem. " & Err.Description, vbCritical, _ "Error: " & Err.Number If ExcelWasNotRunning Then oXL.Quit End If End Sub Tag: Problem in VBA with opening Word templates. Tag: 53220
  - 14
    - VBA Macro for adding resized photos Dear all I would like to add a resized photo to a word document and have the following code. Unfortunately it fails! Please can you help me with it! Cheers John P North Yorkshire UK Sub AddPicturefromdirectory() If Selection.Information(wdWithInTable) Then Dialogs(wdDialogInsertPicture).Show With Selection.Cells(1).Range.InlineShapes(1) .LockAspectRatio = msoTrue .Width = InchesToPoints(1.4) .Height = InchesToPoints(1.8) .Range.Copy linktofile:=False, savewithdocument:=True End With Else ' Error Message and Quit End If End Sub Tag: Problem in VBA with opening Word templates. Tag: 53213
  - 15
    - emailing saved doc from the template using non-microsoft/web clien Hi all, Template is ready now! But one more question! I want to add a "send" button to this template, so that when clicked, a save dialog box pops up to save as a file (.doc) on a local hard-drive in a pre-determined folder for my records, and simultaneously email this file (.doc) only (without "send" button) to a my manager (to a specified email address/addresses) using non-Microsoft default email client (Lotus Notes) as an attachment with an auto-populate subject line (where account number, date and time taken from the fields in document). i.e. - "Incoming call for ABC funds received: <account number> @ <date/time>".. Any suggestions? Thanks in advance Nirav Tag: Problem in VBA with opening Word templates. Tag: 53201
  - 16
    - Advice/Help Can anyone recommend any good websites or books regarding learning VBA? Thanks in advance Barry Tag: Problem in VBA with opening Word templates. Tag: 53191
  - 17
    - Can one save a reference added to project when automating Word Can one SAVE a reference added to a project when automating Word using a Word object? I want to do this from within VB 6, but I find that I cannot do this even from within Word itself? For example, using the code below (obvious pieces of code are omitted), one gets the desired result, i.e., all of the following are executed. Debug.Print "Found(1): " & ref.Name Debug.Print "Found(2): " & ref.Name Debug.Print "Found(3): " & ref.Name However, if I instead use the Word object, say: dim appWord as Word.Application set appWord = New Word.application and use, e.g., Set docNew = appWord.Documents.Add(NewTemplate:=False, DocumentType:=wdNewBlankDocument, _ Template:=strTemplate) instead of Set docNew = Documents.Add(NewTemplate:=False, DocumentType:=wdNewBlankDocument, _ Template:=strTemplate) The 3rd test fails and the following is executed: Debug.Print "Not Found(3): " & strReference, Err.Number, Err.Description Is this behavior documented? Is there a way to SAVE a project after adding a Reference when automating Word? ----------------------------------------------- Dim docWord As Word.Document Dim docNew As Word.Document Dim ref As VBIDE.Reference Set docNew = Documents.Add(NewTemplate:=False, DocumentType:=wdNewBlankDocument, _ Template:=strTemplate) Set docWord = docNew.AttachedTemplate.OpenAsDocument With docWord ' add a reference here, then do the following For Each ref In .VBProject.References Debug.Print ref.Name Next ref If .VBProject.Saved Then Debug.Print "Project was not modified" Else Debug.Print "Project was modified" End If On Error Resume Next Set ref = .VBProject.References(strReference) If Err.Number = 0 Then Debug.Print "Found(1): " & ref.Name Else Debug.Print "Not Found(1): " & strReference, Err.Number, Err.Description End If .Save .Close savechanges:=wdSaveChanges End With With docNew For Each ref In .AttachedTemplate.VBProject.References Debug.Print ref.Name Next ref On Error Resume Next Set ref = .AttachedTemplate.VBProject.References(strReference) If Err.Number = 0 Then Debug.Print "Found(2): " & ref.Name Else Debug.Print "Not Found(2): " & strReference, Err.Number, Err.Description End If .Close End With Set docWord = Documents.Add(NewTemplate:=False, DocumentType:=wdNewBlankDocument, _ Template:=strTemplate) With docWord For Each ref In .AttachedTemplate.VBProject.References Debug.Print ref.Name Next ref On Error Resume Next Set ref = .AttachedTemplate.VBProject.References(strReference) If Err.Number = 0 Then Debug.Print "Found(3): " & ref.Name Else Debug.Print "Not Found(3): " & strReference, Err.Number, Err.Description End If .Close End With -- http://www.standards.com/; See Howard Kaikow's web site. Tag: Problem in VBA with opening Word templates. Tag: 53186
  - 18
    - Adding a counter in a document I need to create an invoice with a counter for the invoice number. Program will be opened and closed through out the day and the counter needs to keep up with the number of times the invoice is printed. Can any one give me some tips on just how to do that? -- No Bush in 2004!!!!!! Tag: Problem in VBA with opening Word templates. Tag: 53177
  - 19
    - Find and replace with lower case Is there any (easy) way to do a global search using wildcards and then replace the found text with its lower case equivalent? E.G. <index1>MAPLE</index1> with <index1>maple</index1>? It seems obvious but I can't find it in the program. Thanks, Jon. Tag: Problem in VBA with opening Word templates. Tag: 53174
  - 20
    - This File is in use by another Application or User (Normal.dot) in Word 2003 I have read many, many posting on this subject but none come close to my scenario, which is: 1) I have this code snuipped from an Access 2003 application that creates documents mased on templates and inserts values from an Access table: 'Start of Code Snippet. ... (some code) Set objWord = New Word.Application With objWord ' open a new templat instance. .Documents.Add Template:=(strDocPath) ' save the document in the default dir. .ActiveDocument.SaveAs FileName:=stNewDocName, FileFormat:=wdFormatDocument .Documents(stNewDocName).Activate End With ... (some code that sets the bookmarks in the document(s) to appropriate values With objWord ' close the document and save the change. .Documents(stNewDocName).Close SaveChanges:=wdSaveChanges ' quit word .Quit End With End of code snippet Under Windows 2000 and Office XP this worked fine, but under Windows 2003 & Office 2003 the .Close statement generates the "This file is in use by another application or user" message citing Normal.Dot. I am stumped. Any ideas? Thanks, Brad Marshall Tag: Problem in VBA with opening Word templates. Tag: 53167
  - 21
    - Keyboard shortcut question I suspect there is not a way to do this but I'll ask anyway. I'm working on a large application in Word that among other things, inserts SGML tags. I have a list of 432 standard tags that can be inserted into the document. So far I have avoided having to hard code the list of tags into the code by having a text file with the list of tags. That way I can retrieve the names of the tags and pass them as arguments to the different subroutines that insert the tags. I was able to do this when applying tags using toolbar buttons (by setting the parameter of the toolbar button and retrieving it in the sub that applies the tag) and also in a user form that presents the user with a listbox with all the tags in it. However, I've now hit a wall. They need to be able to apply tags using keyboard shortcuts. There are the issues I've found: 1. I can't assign a macro that takes an argument (even if it's optional) to a keyboard shortcut. 2. I can't seem to discover which keyboard shortcut fired the subroutine. 3. There is a CommandParameter argument when adding a keybinding, however, it doesn't appear to do what I need. (It's used when assigning a command such as FontSize to a shortcut to specify what size.) At this point the only way I can see to do this would be to create a subroutine for each tag (all 432 of them) that would simply call the macro that inserts the tag passing the name of the tag to it. What is particularly annoying is that I've given the users the ability to create custom tags on the fly for those rare cases where there is not an appropriate standard tag. They want to be able to assign shortcut keys to these also but if I can't use a generic macro to insert the tag by passing the tag name, this isn't going to happen. Thanks for your time! KathyK Grand Rapids, MI -- Kathy ***** "Use what talent you possess: the woods would be very silent if no birds sang except those that sang best." -Henry Van Dyke (1852-1933) American scholar, educator, lyricist Tag: Problem in VBA with opening Word templates. Tag: 53164
  - 22
    - create a table within a table in vba? hi, in a word doc., i have 3 tables. in vba for word xp, how can i create a table within one of the tables? thanks, william. -- -- Tag: Problem in VBA with opening Word templates. Tag: 53163
  - 23
    - create shortcut to active document and place in a folder This is really a vba question yet I neglected initially to send it to the vba group.. I've cancelled the original messages, which had some mistakes, and I'm starting over. Is there a command that I could run through VBA that would create a shortcut to the active Word document and place that shortcut in a particular folder? Let's say the folder is: C:\Documents\Work The manual equivalent of this, which I already have, is to add to the Windows/SendTo folder a shortcut to a .vbs file which sends a shortcut of the document to the folder. But I want to automate this from within Word. Here is the code of the .vbs file. A shortcut to this .vbs file is in my Windows\SendTo folder. : Dim fso, Package, PkgName, Destination, link, Top, I Destination = "C:\Documents\Work" Set shell = CreateObject("WScript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") Top = WScript.Arguments.Count For I = 0 To (Top-1) Package = WScript.Arguments.Item(I) PkgName=fso.GetBaseName(Package) Set link = shell.CreateShortcut(Destination&"\"&PkgName&".lnk") link.TargetPath = (Package) link.Save Next ' MsgBox "Shortcuts to the file(s) or folder(s) are being created at:"&vbCRLF&Destination Set shell = Nothing Set fso = Nothing Also, in addition to placing a shortcut in the folder, would there be a command I could run through VBA that would delete the shortcut of the active document from the C:\Documents\Work folder? I'm basically trying to come up with a more powerful equivalent of Word's Work menu. I'm working with Word 97, on Windows 98. Thanks, Larry Tag: Problem in VBA with opening Word templates. Tag: 53160
  - 24
    - Do I need to use VBA? I am hoping to make a template such as the following:- On [insert date] at [insert time], I was at [insert location] with [insert friends]. We visited [insert places you visited] and did [insert activites]. Now, what I would like is for when I open the document, for a serious of questions to pop up in MS Word, for example, "insert date," "insert time," "insert location" etc..... and then all these fields fill in automatically. It's similar to those website you can go to where you get asked a serious of questions and it then automatically personalises a story for you! I am using Office 2000. Thanks all Tag: Problem in VBA with opening Word templates. Tag: 53155
  - 25
    - Template with checkbox and textbox - how to code Hello, I'm not not a programmer, so thought of pitching my question here. In this template,there is a series of check boxes and only one would be selected at any given time, and a textbox where additional comments will be added. I have inserted objects (check boxes and a text box) - how to make it functional? In properties or in VBA subroutines? Thanks - Tag: Problem in VBA with opening Word templates. Tag: 53150

When using a VBA program, I have a pop up box that appears
on the screen and allows the user to enter information.
After I input all the specific information on a person and
click OK, it should load a series of word documents that
will mailmerge information into different templates.
However, when I click OK, I get a pop-up message that says
Word cannot Open teh Exisiting (box symbol). I click OK
and then it loads up anyway. Then, when I try to close
after the templates have loaded, I get a pop-up screen
entitled "Templates". I have to click OK several times
before the program will end the calcuation on that
person.

Any help or assistance to guide me to where the problem is
would be greatly appreciated.

Top

Re: Problem in VBA with opening Word templates. by Word

Word
Mon Jul 12 19:17:16 CDT 2004

G'day "tbankston21" <tbankston21@yahoo.com>,

You arent setting one of your variables correctly - please post code
samples for correction. My psychic powers are a bit dim today :-)

Steve Hudson - Word Heretic
Want a hyperlinked index? S/W R&D? See WordHeretic.com

steve from wordheretic.com (Email replies require payment)

tbankston21 reckoned:

>When using a VBA program, I have a pop up box that appears
>on the screen and allows the user to enter information.
>After I input all the specific information on a person and
>click OK, it should load a series of word documents that
>will mailmerge information into different templates.
>However, when I click OK, I get a pop-up message that says
>Word cannot Open teh Exisiting (box symbol). I click OK
>and then it loads up anyway. Then, when I try to close
>after the templates have loaded, I get a pop-up screen
>entitled "Templates". I have to click OK several times
>before the program will end the calcuation on that
>person.
>
>Any help or assistance to guide me to where the problem is
>would be greatly appreciated.

Top