Macro not always works

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Document.PrintOut2000() This is a multi-part message in MIME format. ------=_NextPart_000_001E_01C47594.4EE2C2F0 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable HI, I am trying to convert a word document into pdf using the code below. If = i provide the OutputFileName i.e. is my oDestinationPath then the word = document is converted to the pdf, but when i try to open the same i get = a message "Acrobat could not open '_h0071.pdf' because it is either not = a supported file type or because the file has been corrupted". Although = if I provide oMissing to the OutPutFileName then the file is created on = the desktop and opens fine. I want to control where the file is placed. object oDestPath =3D @"c:\ZZZZ\_h0071__.pdf"; wordApp.ActivePrinter =3D "Acrobat Distiller"; // Print wordApp.ActiveDocument.PrintOut2000(ref oBackground, ref oMissing, = ref oMissing, ref oDestPath, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref = oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing); Please tell me what am i doing wrong. Thanks in advance Rahul ------=_NextPart_000_001E_01C47594.4EE2C2F0 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.2800.1400" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY> <DIV><FONT face=3DArial size=3D2>HI,</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>I am trying to convert a word document = into pdf=20 using the code below. If i provide the <FONT=20 size=3D3><STRONG><EM>OutputFileName  </EM></STRONG></FONT><FONT= =20 size=3D2>i.e. is my oDestinationPath then the word document is converted = to the=20 pdf, but when i try to open the same i get a message "<STRONG>Acrobat = could not=20 open '_h0071.pdf' because it is either not a supported file = type  or=20 because the file has been corrupted</STRONG>". Although if I provide = oMissing to=20 the OutPutFileName then the file is created on the desktop and opens = fine. I=20 want to control where the file is placed.</FONT></FONT></DIV> <DIV><FONT face=3DArial size=3D3></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>   object oDestPath =3D=20 @"c:\ZZZZ\_h0071__.pdf";<BR></FONT><FONT face=3DArial=20 size=3D2>   wordApp.ActivePrinter =3D "Acrobat=20 Distiller";</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>    //=20 Print<BR>    wordApp.ActiveDocument.PrintOut2000(ref = oBackground, ref oMissing, ref oMissing, <STRONG>ref oDestPath</STRONG>, = ref=20 oMissing, ref oMissing,<BR>     ref oMissing, = ref=20 oMissing, ref oMissing, ref oMissing, ref oMissing, ref oMissing, ref = oMissing,=20 ref oMissing,<BR>     ref oMissing, ref = oMissing, ref=20 oMissing, ref oMissing);</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Please tell me what am i doing = wrong.</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Thanks in advance</FONT></DIV> <DIV><FONT face=3DArial size=3D2>Rahul</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2> </DIV></FONT></BODY></HTML> ------=_NextPart_000_001E_01C47594.4EE2C2F0-- Tag: Macro not always works Tag: 54143
  - 2
    - Document variables I am having problems assigning the value of document variables to a text box in VBA. It seams that the active document index for a document variable changes every time I create a document variable. For example, when I start creating variables the first one is usually indexed as 1 then the next would be 2 and then I find that it jumps a few, then when I create a few more variables the active document index goes wild and I am unable to access the variables. The question: How do I find out what active document variable index number each of the document variables is at and is there another way of getting the value of the document variables in VBA. Before the document variable idea, I was using the includeText field to map to external files. The problem with the includeText field feature is that it is not portable. What I would like to do is make the path changeable in VBA. If anyone can help, it would be appreciated. Thanks in advance. Tag: Macro not always works Tag: 54137
  - 3
    - Forms On a form is there a way that you could set the tabs to tab in an order that you choose???? Tag: Macro not always works Tag: 54133
  - 4
    - Creating Auto Section Headers I use Word 2000 to create time lines of criminal investigation, which often exceed 50 pages in length. Because of the extensive detail in which each event is described, it is not uncommon for several pages in a row to be without a section heading. This results in reader often loosing track of where they are chronologically in the document. Therefore, I am trying to figure out a way to print the most recent Level 1 section heading, which is the date, as a header atop each page. This would allow the reader to see where they are at anytime, just as one can do by referencing the top of a page in a dictionary and seeing the first and last words listed on the page. Any help would be greatly appreciated. Christian Tag: Macro not always works Tag: 54131
  - 5
    - How to remove AutoOpen macro Hi! Using VBA I try to develop a procedure that will loop a folder and will remove the AutoOpen macro from every file. Due to an error in a template every file built from that template contains the macro. Thank for any help! Aline Tag: Macro not always works Tag: 54127
  - 6
    - How to identify 1st blank row in an Excel spreadsheet? Anyone know how to do this via VBA? I'm using a macro to define a print area by specifying columns but I'm pulling blank rows in the resulting printout. Is there a way to get Excel to ignore blank rows in a print area? In this case, the blanks are at the bottom of the spreadsheet so if I could tell me the last row containing data (or the first blank row), it would work. But I may also need to find a way to skip blank rows within a spreadsheet for another situation. Thanks, JoAnn Tag: Macro not always works Tag: 54125
  - 7
    - The Next Level Hi, I am applying some of my limited skills to create a macro that will tally checkboxes in a Table column. The following is working good. I became interested in the line Sub TallyColumnOfCheckboxes() Dim cTotal As Integer, i As Integer cTotal = 0 For i = 1 To ActiveDocument.Tables(1).Rows.Count On Error Resume Next cTotal = cTotal - ActiveDocument.Tables(1).Cell _ (i,1).Range.FormFields(1).CheckBox.Value On Error GoTo 0 Next i ActiveDocument.FormFields("Total").Result = cTotal End Sub I became interested in the line: (i,1).Range.FormFields(1).CheckBox.Value and was wondering how would I extend this macro to count each checkbox in a cell if the cell contain multiple checkboxes. I deduce that this would require replacing .FormFields(1) with something like .FormFields (j) creating a For j = to .... but I can't get my head around it. Ideas? Thanks Tag: Macro not always works Tag: 54124
  - 8
    - Selecting and Printing Text Across Multiple Bookmarks Let's say I have a document with 6 bookmarks, bm1 through bm6. Between bm2 and bm4 are 2 section markers. I need to print from bm2 up to bm4. How do I select across multiple bookmarks and print that range, which may include multiple sections? Thanks. Tag: Macro not always works Tag: 54121
  - 9
    - Table and Picture in Word Header Using VBA, I insert a file with tab delimited fields into a Word header and then use "ConvertToTable" and it works fine. Now I'd like to have a logo picture ABOVE the table but it keeps putting it INTO a cell of the table. It seems as though the table insists on taking up the entire space of the header no matter what I do. In VBA, How do you get a bmp logo to appear in the header above the header table??? Thanks Tak Tag: Macro not always works Tag: 54117
  - 10
    - Search macro I need the simplest macro in the world -- to do a Find of the next instance of Heading 1 (any character). The following, which was generated by keystrokes and not edited, will not work. The search either does not take place or it is unsuccessful. Can you see what might be wrong with this code? Thanks. Selection.MoveRight Unit:=wdCharacter, Count:=1 Selection.Find.ClearFormatting Selection.Find.Style = ActiveDocument.Styles("Heading 1") Selection.Find.ParagraphFormat.Borders.Shadow = False With Selection.Find .Text = "" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = True .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Selection.MoveLeft Unit:=wdCharacter, Count:=1 Tag: Macro not always works Tag: 54112
  - 11
    - How to disable one of the page from Multipage ? I have such a formula: If CheckBox1 = False Then I'd like to Disable One page from Multipage Form named Page3 I have one Multipage1 (Page1, Page2, Page3). How to do that ? Thanks for your help Peter Tag: Macro not always works Tag: 54107
  - 12
    - updatable link to MS Access field ? Hello, BRIEF DESCRIPTION: How can I insert in Word a 'dynamic' link to a particular field in an Access Database? LONG DESCRIPTION: We're faced with the following issue for a big documentation project. Basically, the project would consist of maintance documentation which would be stored in: - several hundreds of Word files, containing descriptions, removal procedures, etc. - an Access database containing (among other things) a table with 2 fields: ToolNumber and ToolDescription. In the Word documents, we would like to insert one or more tool numbers and tool descriptions, as retrieved from the database. For example, through some Word VBA form, the author would selected tool number "T103" and at the current position in his document this tool number "T103" and corresponding description "Torque wrench M=30 Nm" would be inserted. The problem is that we want this to be 'dynamic': if the description of the tool is changed in the Database, then the description should change in the Word document as well. Either upon opening of the Word document or after some kind of command (e.g. F9 or VBA macro, or ...) My idea is upon inserting in Word to put the tool number text and description text in a specific style (e.g. "ToolStyle") and write a Word VBA application that will: - scan the document for this style, - look up the toolnumber in the Access Database, - retrieve the (new) description, - and (if changed) replace the old description in Word. I'm not sure this is the best possible solution. Does anybody has some easier or/and more bulletproof or/and non-VBA solutions, that will do the job? Maybe a special Word field exist to link Database fields? Really appreciating any thoughts and ideas, Ward Tag: Macro not always works Tag: 54106
  - 13
    - Highlighting, then typing - AND IT DOESN't DELETE!!! Something mad has suddenly happened to my Word - when I highlight a bit of text, then type something else to go over it, it now keeps the highlighted bit. I didn't realise how annoying this is until I realised how much I use the highlight/ delete facility, by not being able to use it. HELP! Tag: Macro not always works Tag: 54105
  - 14
    - Section TOC Hi I am using Word XP. I would like to automate my procedure of inserting a table of contents relating to an individual section. Currently I highlight the section, name it as a boomark, insert a table of contents at the top of the section (underneath the heading)and then modify the field code to only look for data in the bookmark:-see below {TOC \h \z \t "Section Sub Heading,2" \b SectionTwo} Section Sub Heading is the name of my style I wish to be listed in my Section TOC. \b is the switch, followed by the name of the bookmark SectionTwo What I would like to be able to do is automate the whole procedure. Here is my idea, I would really appreciate some advice on whether you think this is a good way to go about it and also some advice on a couple of commands I have been unable to find information about. I have the code for finding the number of sections in my document, I will then loop through each section in the document highlighting each section and naming it as a boomark. I would like the name of the bookmark to be the number of the section (Section2,section7 etc..) How do I find out the number of the section I have highlighted?? I can then insert an extra paragraph after the first paragraph then insert a TOC. How is best to automate the insertion of a TOC and then add the switch \b followed by the name of the current section bookmark. I am really trying to decide whether automating this procedure will be worthwhile. I would be grateful fo any input. Thanks very much for your time. Kerry. Tag: Macro not always works Tag: 54104
  - 15
    - Incrementing an invoice number every time the template is printed Hi all, I was wondering if someone could help me with the below problem I am having. I would like to create a template with an invoice number incrementing. I have the coding to do this via a macro that the invoice number increments every time you open the template. What I would like to do instead is after having created a bookmark for the invoice number, that every time I print the template (for example ... 20 pages), the invoice number increments, saves to the bookmarked area and to a text file. If I was to open and print the template again (for example ... another 20 pages) then the invoice number will continue to increment (I.e. 21, 22, 23 etc) from the previous time the template was opened. I am hoping I can have this problem solved as soon as possible. I thank you in advance for any help you can offer me. Tag: Macro not always works Tag: 54101
  - 16
    - Converting to Number using VBA This is a multi-part message in MIME format. ------=_NextPart_000_0008_01C474AA.9B597510 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable I have a cell which gives the warning "The number in this cell is formatted as text." Using VBA, I change the format of the cell to a number format. However, Excel still shows the warning.=20 I look at the cell using Format | Cells ... which says it has the number format set by my VBA code. Is there some VBA function I have to use on the cell to make it convert to a number? Thank you for your help. ------=_NextPart_000_0008_01C474AA.9B597510 Content-Type: text/html; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN"> <HTML><HEAD> <META http-equiv=3DContent-Type content=3D"text/html; = charset=3Diso-8859-1"> <META content=3D"MSHTML 6.00.2800.1400" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY> <DIV><FONT face=3DArial size=3D2>I have a cell which gives the = warning</FONT></DIV> <DIV><FONT face=3DArial size=3D2>"The number in this cell is formatted = as=20 text."</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV><FONT face=3DArial size=3D2>Using VBA, I change the format of the = cell to a=20 number format.</FONT></DIV> <DIV><FONT face=3DArial size=3D2>However, Excel still shows the warning. = </FONT></DIV> <DIV><FONT face=3DArial size=3D2>I look at the cell using Format | Cells = ... which=20 says it has</FONT></DIV> <DIV><FONT face=3DArial size=3D2>the number format set by my VBA = code.</FONT></DIV> <DIV> </DIV> <DIV><FONT face=3DArial size=3D2>Is there some VBA function I have to = use on the=20 cell to make it</FONT></DIV> <DIV><FONT face=3DArial size=3D2>convert to a number? Thank you for your = help.</FONT></DIV></BODY></HTML> ------=_NextPart_000_0008_01C474AA.9B597510-- Tag: Macro not always works Tag: 54086
  - 17
    - bookmark I'm using Visual Studio 6 to write a Visual Basic app that opens an existing word document template and makes a number of changes and additions to it. I'm having a difficult time in trying to, among other things, move the cursor (the insertion point) to the end of the file or to a bookmark. Here's the code: Set CurrentDoc = GetObject("C:\data\SSATemplate.doc") CurrentDoc.ActiveWindow.Visible = True ' Move cursor to a bookmark CurrentDoc.ActiveWindow.Selection.Goto What:=wdGToBookmark, Name:="PathDataStart" / Move cursor to the end of the document CurrentDoc.ActiveWindow.Selection.Endkey Unit:=wdStory, Extend:=wdMove The document opens with no problems but when I try to move the cursor to the bookmark (the only bookmark in the entire document), I get the error message: Error 5102: You entered multiple destinations for a page, line, footnote, endnote, or comment. When I try to move the cursor to the end of the document, I get the error message: Error 4102: Bad parameter I've tried everything I can think of to fix the problem, to no avail. Any help would be appreciated. Thanks in advance. Tag: Macro not always works Tag: 54082
  - 18
    - How to prevent editing on a merged document based on a dot templa Does anyone know how to prevent the user from editing a merged document created by an application? We use a dot net application to create a mail merge and when the user chose so can view the merged document with all the bookmarks populated with appropriate data. The user does not want to be able to edit the merge document. Is there any way to control that through the word object model in dot net or through IE? After the document is composed it is displayed to the user through a browser redirection. So if we can't disable editing in Word can we do in Internet Explorer? Thanks -- KnowledgeSeeker Tag: Macro not always works Tag: 54075
  - 19
    - Win/Word XP *always* asks for Enable - any help? Ever since I was "upgraded" to Windows XP Pro and Word XP, I've tried unsuccessfully to get Word to recognize my macros on opening. I can not get a digital signature to stick. I've tried various methods from this NG and the KB, but no go. Besides just wanting to hit a custom button without having to enable macros, this really hampers automating from VB6. Any code trying to open Word for the first time gets hit with the Enable Macros box. If I have to be there to hit Enable, I've defeated half my automation! Any suggestions? Ed Tag: Macro not always works Tag: 54074
  - 20
    - Problem with SendKeys and first Capital letter Hi when usign sendkeys in my vba programs I often run into ptoblem that the first capital letter that sendkeys types comes out twice. I suspected many things but my best guess it's somethign to do with AS YOU TYPE options that auto correct soem thigns, since mimics user typing. However I have not been able to find the actual option responsible for this. Has anyone else had simular problem? If it has to do with AS YOU TYPE what should I do so that the program works perfectly in any word no matter the AS YOU TYPE settigns? If that's not what to blame, then what is? Tag: Macro not always works Tag: 54069
  - 21
    - Getting Project name from properties? HI Folks, Can anyone tell me how I can get the Project name from the properties of the project? e.g. say my project is called myproject and I want to add a ref, my current code says Project1.ThisDocument.VBProject.References.AddFromFile RefName Any pointers? Cheers J Tag: Macro not always works Tag: 54062
  - 22
    - Using VB.Net or C#, utilizing the clipboard object, how to copy an MS Excel graphic from the clipboard to an image control and obtain its source reference Hello, Here is what I'm trying to do: -- Make sure both MS Excel and MS Word are running -- Create an Excel chart -- Save the Excel file -- Copy the Excel chart onto the clipboard using Ctrl + C -- Go to Word and look under Edit > Paste Special -- Note there is a source reference and an option to paste the chart as a metafile, etc. -- I would like to take this same information and make it available in a C# or VB.Net app For example, create a simple Windows application with a userform, an image control, a label and a single command button. Let's say that after the Excel chart is on the clipboard, one clicks the Windows application command button and Voila!, the imate control now contains a copy of the Excel chart and the label contains the reference information. I can make this work utilizing older technologies (i.e. WIN API to access the clipboard, etc.). Using the WIN32 API, there is a clipboard format called "OwnerLink". Similarly to the .Net clipboard, one would register this format, check for it on the clipboard and then retrieve using several API calls. There are also clipboard formats called "Link Descriptor" and "Object Descriptor" under WIN32. It appears that, under .Net, there are currently no methods or properties available to extract a source reference when a user places an Office object / graphic on the clipboard. If there is a workaround, by all means, please share. Any assistance would be appreciated. Best Regards, Todd Tag: Macro not always works Tag: 54055
  - 23
    - Form on top I can see how to make a form stay on top in VB, but not in Word VBA (Word 2002). The call might be: Call SetWinPos(SortForm.hwnd, True) wirh the appropriate API code. But VBA does not seem to support the property .hwnd Can anyone help? Tag: Macro not always works Tag: 54054
  - 24
    - Referencing Macros Hi All, Basically my problem is this - I have created a mail merge document from an access database and want to date stamp the records each time they are printed from the mail merge (i.e. some printed one day and stamped with that date, others on another day). The only way I can think of doing this is to create a macro in Access to stamp a field with the current date but how do I reference this from word and can I stamp specific records or will I need to stamp them all? Cheers Dunner Tag: Macro not always works Tag: 54051
  - 25
    - Images are not displayed in Word2003 Running Win2KSP4 & all patches - Word2K3SP1 Since a while now I can't see images anymore in some documents which were generated as WordML (through xslt transformation). I can't remember when this problem exactly occurred for the first time and thus heave no idea what could have caused it. In the near past these documents have been displayed succesfully on my machine. When I open these documents on another machine (same setup) the images are still visible though. Remark1: I have the option show imageplaceholders disabled in Word (checkbox = empty) Remark2: When I make a new document on my machine and put some images in I can see them normally. Thanks for your time. Romain Tag: Macro not always works Tag: 54049
- Next
  - 1
    - STORING VARIABLES UNTIL YOU CLOSE WORD I store values in a Access database (company details) and want to use it throughout word but I do not want to use: activedocuments.variables.add Name:=CompName Value:=CoName Obviously activedocument isn't open as yet when you open word and it must also be available when you create new documents. I have tried the option abovementioned as well as: Thisdocument.variables.add etc but to no avail. Tried placing it in the AutoNew, AutoExec etc. macros but no go. I use the whole template as an add in. All the above options work but not as well as I want it to. What I am trying to find out if it is possible to use a program variable or field instead of a docvariable or perhaps the registry entry but word must keep the values until you exit word. Tag: Macro not always works Tag: 54043
  - 2
    - Workflow designer OnExpire Event I'm using SQL Server 2000 with OfficeXP Developer in order to create workflows. I'm trying to manage expire transition; the OnExpireValidate and OnExpire events work fine, but the OnEnter event on the ending state of the expire transition is never raise. It seems that the expire transition don't cause the status change even if start and end state are configured ok. Anybody can help me? Tag: Macro not always works Tag: 54042
  - 3
    - Word 2003 Temporary macro storage could not be opened. Using W2K- Word2K3 both fully patched Whenever I open a template containing VBA code I get an error message stating that "the temporary macro storage could not be opened" (Isn't the exact message though, I'm using a dutch version of Word so the error message is in Dutch. Exact frase is: "De opslagruimte voor macro's kon niet worden geopend"). - I have thrown away the normal.dot file - I removed all tmp-files I could find. - I put the template on a local drive - I tried to open the template on another Pc (also running Word 2K3) which was succesful. All this didn't solve the problem. Any clue? Thanks for your time. Romain Tag: Macro not always works Tag: 54040
  - 4
    - Using DocVariables I am monkeying around with a template that will let me make documents to show/hide details, instructions, etc. I am using an IF field (e.g., {IF {DOCPROPERTY ShowHide1} = "Show"{Autotext Event1}} It is working OK, but I need some advice on the macros. The basic problem is that as I add events I need to define the docvariables on first use. My first stab was the following without the amplifying directions and the result of course was an error indicating the Object (ShowHide3) had been deleted. The real truth is that it had never been created. The solution was to create it once using hte immediate window as incidcated: (Please read on) Sub ShowHideEvent3() Dim Toggle As String 'This macro is simplified. Create the initial document variable by using the following code 'in the immediate window: 'ActiveDocument.Variables.Add Name:="ShowHide3", Value:="Hide" Toggle = ActiveDocument.Variables("ShowHide3").Value If Toggle = "Show" Then ActiveDocument.Variables("ShowHide3").Value = "Hide" Else ActiveDocument.Variables("ShowHide3").Value = "Show" End If ActiveDocument.Fields.Update End Sub Next, with some earlier help from Dave Lett, I adapted the above to use an error handler: Sub ShowHideEvent1() Dim Toggle As String 'This macro uses a error handler and resume command to create the variable on first use. Dim err_handler On Error GoTo err_handler Toggle = ActiveDocument.Variables("ShowHide1").Value If Toggle = "Show" Then ActiveDocument.Variables("ShowHide1").Value = "Hide" Else ActiveDocument.Variables("ShowHide1").Value = "Show" End If ActiveDocument.Fields.Update End err_handler: ActiveDocument.Variables.Add Name:="ShowHide1", Value:="Hide" Resume End Sub Dave Lett not to settle for such an ugly solution suggested something like: Sub ShowHideEvent2() 'This macro searches for the variable name and if not found creates it. Dim bExists As Boolean Dim Toggle As String Dim oVar As Variable For Each oVar In ActiveDocument.Variables If oVar.Name = "ShowHide2" Then bExists = True End If Next oVar If bExists = False Then ActiveDocument.Variables.Add Name:="ShowHide2", Value:="Hide" End If Toggle = ActiveDocument.Variables("ShowHide2").Value If Toggle = "Show" Then ActiveDocument.Variables("ShowHide2").Value = "Hide" Else ActiveDocument.Variables("ShowHide2").Value = "Show" End If ActiveDocument.Fields.Update End Sub Each method seems to work, but doesn't feel right. Am I looking for something that just isn't there?Please advise. -- Greg Maxey A peer in "peer to peer" support Rockledge, FL To e-mail, edit out the "w...spam" in gmaxey@whamspammvps.org Tag: Macro not always works Tag: 54030
  - 5
    - Automatically running a macro when printing Hi, folks. In WORD XP Microsoft has disabled the function that had allowed the user to automatically update links and fields in a document before printing. The option seems to be available (it is included in the tools/options/print screen) but it does not work. After an exhaustive session with Microsoft support, it transpires that this function has been disabled as a security measure. The workaround is to create a macro (eg AutoOpen) that updates links and fields when you open a template. However, I want to update links and fields as I print. Is there a VBA command that will automatically run a macro prior to printing? Tag: Macro not always works Tag: 54028
  - 6
    - Need a Macro-Removing Check Boxes I have a spec sheet that is very long but below is just an example of it. What I am in need of is a macro that will automatically remove any check box that is uncheck along with its label. And then remove any spaces between the check boxes. This is first an example with everything: (The " 0 " are checkboxes but that is how it pasted) Interior Frames: 0 No; 0 Yes; 0 Standard; 0 Custom Steel; Construction: 0 Welded; 0 Knocked-Down; 0 Knocked-Down Now this is how I want it to look if the "Standard" and "Knocked-Down" check boxes are the only ones checked. Interior Frames: 0 Standard; Construction: 0 Knocked-Down; Can anyone help with this macro text. Thank you, Sean Tag: Macro not always works Tag: 54024
  - 7
    - macro to save doc as contents of a specified field I would like to save my doc named as the contents of a bookmark which will change with each use. Tag: Macro not always works Tag: 54021
  - 8
    - F1 (help) does not work for ADODB in Object Browser Problem: F1 (help) does not work for ADODB in Object Browser Office 2003, Windows XP Professional ADODB is contained in MSADO15.DLL. It appears in the References dialog box (available from the Project menu) as "Microsoft ActiveX Data Objects 2.7 Library". I have it checked and its' functions are working. However, when I am in the Object Browser and use F1 on any of the ADODB objects, the Help window comes up but is blank. The F1 works fine on other library modules like VBA, Excel, etc.. Is there something somewhere that needs to be installed using the References dialog box to make the help work for ADODB. Thank you for your help. Tag: Macro not always works Tag: 54016
  - 9
    - Answering a MsgBox with VBA code? The following recorded keystroke macro: Sub Macro1() ' ' Macro1 Macro ' Macro recorded 7/27/2004 by xxxxx ' Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "^p" .Replacement.Text = " " .Forward = True .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute Replace:=wdReplaceAll End Sub Fails to record the last user action, clicking on the "No" option of the MsgBox that inquires "Word has finished searching the selection, would you like to search the remainder of the document?" Is there a vba statement that I can manually add that will automatically answer "No" to that MsgBox? Thanks, Fred Holmes Tag: Macro not always works Tag: 54014
  - 10
    - Field code: NumPages I did this once before in Word '97, but can't remember exactly how! When inserting the Page and NumPage fields into a header or footer, how do I have the NumPage field show something other than the "real" total number of pages, in other words, I don't want it to count the two pages preceeding it. I used something like: "Page {PAGE} of {= (StartingNumber -2) + {NUMPAGES}} in a Word 97 proposal and it worked, but only get an error message in my 2000 document. Any assistance would be greatly appreciated as always...best regards Tag: Macro not always works Tag: 54006
  - 11
    - Current page number How can I define a variable (zz) equal to the page number of the current page of the document in VBA. I already in the macro place the cursor on a specific page and now I need that the macro determine the page number to compare it to no if it's a odd or event page with Mod fonction. Thanks for help Mario Tag: Macro not always works Tag: 54005
  - 12
    - Counter/Invoice Number How can i produce a counter in Microsoft Word, that adds 1 to the previous printed copy. Thanks Tag: Macro not always works Tag: 53996
  - 13
    - Find and Replace Paragraphs - better explanation I have to loop through numerous documents in a directory and find and replace paragraphs. I plan on having one open documnet with two paragraphs, the first paragraph is the one to find, the second is the one to replace. Next I need to open the other documents and iterate through the paragraphs. If the paragraph text equals the first paragraph in the original document, I would like to replace it with the second paragraph in the original document. Does anybody have an example of searching for one paragraph and replacing the text of it with the text of another paragraph? Tag: Macro not always works Tag: 53995
  - 14
    - Find and Replace Paragraphs I have a requirement to loop through all Word documents in a directory and if they contain a certain paragraph, replace it with a new paragraph. Selection.Paragraphs(1).Range returns the text I am looking for. I need to take this and replace paragrahs in a document. Any help appreciated. Tag: Macro not always works Tag: 53990
  - 15
    - Couldn't delete tabs using ^t? I was trying to create a macro to delete a leading tab from a selection. It worked fine, iterating through each paragraph of the range - except it did not see the tab at the beginning of a paragraph. I used: Dim objP As Paragraph Dim rngThis As Range Set rngThis = Selection.Range For Each objP In rngThis.Paragraphs If objP.Range.Characters(1) = "^t" Then objP.Range.Characters(1).Delete End If Next objP I resolved it using Asc: If Asc(objP.Range.Characters(1)) = 9 Then objP.Range.Characters(1).Delete End If What was I missing trying to use "^t"? Ed Tag: Macro not always works Tag: 53989
  - 16
    - Compare and Merge Documents When I do a Tools | Compare and Merge Documents via the GUI in Word 2003, the default is to always check "My Documents". I'd prefer that the current directory be the default. So, I modified AutoOpen to set the current directory and the current drive appropriately. However, "My Documents" still is the default. Any workaround? -- http://www.standards.com/; See Howard Kaikow's web site. Tag: Macro not always works Tag: 53988
  - 17
    - How to insert a symbol into a Word text through the VBA code ? I'd like to use such a formula: 'If txtzak1.Value = "" Then txtzak1.Value = symbol sign where symbol sign = infinity sign' How to make it ? Who could help me ? Thanks Peter Tag: Macro not always works Tag: 53984
  - 18
    - Importing Modules Hi guys Is there a way to replace a module using VBA? I have about 20 templates that all have the same module (GenerateTable.bas) which has a bug in it. Rather than remove the old and import the new manually I want code to do it (coz I'm lazy). I'm running Word97. Also all the template projects are password protected. I'm guessing VBA can't unprotect then re-protect. Cheers Carl Tag: Macro not always works Tag: 53979
  - 19
    - The best to Excel-Word data export free tutor ? Do you know good, easy free tutor connected with exporting data from Microsoft Excel to Microsoft Word ? I'm looking forward to your suggestions. Thanks Peter Tag: Macro not always works Tag: 53971
  - 20
    - Text Box disappear when open Word 2002 document Hi, I have a sticky problem here. Thanks in advance if anyone can help. I have created Word 2002 documents in Window XP with 3 text boxes grouped. Then, I open it in Word 97 in NT 4, the grouped text boxes disappear. It is weired. I went in to search the KB articles and it mentioned something about the import converter. Is anyone encounter this type of problem and what is the solution? Thanks. Tag: Macro not always works Tag: 53970
  - 21
    - compile error message I recently installed Word on win xp os. Since installation I have gotten the message: compile error in hidden module: main. How do I get rid of this? Tag: Macro not always works Tag: 53967
  - 22
    - Insert Logo in Section Header I have a document with Section Headers which consist of a logo and some text below it. The logo remains the same but the text differs from section to section. I've been going crazy trying to figure out a way to use VBA to just insert the bmp logo in one spot and have it appear in all the section headers. Next I tried just Adding it to the Section Headers one at a time but still nothing appears. The differing text I can insert into the Section headers with no problem (it is currently just putting some test text in Sections 1,2 and 3). its the damn logo ... Here is the code I am using. Thanks J Dim oRng For i = 1 To objWord.ActiveDocument.Sections.count With objWord.ActiveDocument.Sections(i) .Headers(wdHeaderFooterEvenPages).LinkToPrevious = False .Headers(wdHeaderFooterFirstPage).LinkToPrevious = False .Headers(wdHeaderFooterPrimary).LinkToPrevious = False If i = 1 Then ' Add the Logo to the header and insert the header text in the header 'tried various ways of getting cglogo.bmp into header - InLineShapes?? or AddPicture? .Headers(wdHeaderFooterFirstPage).Range.Collapse wdCollapseEnd ' Set MyInlineShape = .Headers(wdHeaderFooterFirstPage).Range.InlineShapes.AddPicture "H:\CGLogo.bmp",False,True,.Headers(wdHeaderFooterFirstPage).Range Set oRng = objWord.ActiveDocument.Sections(1).Headers(wdHeaderFooterPrimary).Range objWord.ActiveDocument.Fields.Add oRng,wdFieldIncludePicture,"h:\CGLogo.bmp",True .Headers(wdHeaderFooterFirstPage).Range.Collapse wdCollapseEnd 'THE REST OF THE CODE WORKS FINE .Headers(wdHeaderFooterFirstPage).Range.InsertFile "H:\header1.txt" 'use C:\header.txt For testing ' Set MyRange = objWord.Selection.Sections(i).Headers(wdHeaderFooterPrimary).Range .Headers(wdHeaderFooterFirstPage).Range.Font.Bold = True .Headers(wdHeaderFooterFirstPage).Range.Font.Size = 12 .Headers(wdHeaderFooterFirstPage).Range.Font.Name = "Times New Roman" End If If i = 2 Then .Headers(wdHeaderFooterFirstPage).Range.Text = "Some 222 Other Text" End If If i = 3 Then .Headers(wdHeaderFooterFirstPage).Range.Text = "Some 3333 333 Other Text" End If End With Next Tag: Macro not always works Tag: 53966
  - 23
    - Mailmerge and template Hello, Please forgive my poor english, I'm having a problem with mailmerge function used by macro : when I create the new file resulting of the mailmerge, I would like to indicate on which template it had to be created. Exemple : - A had built a template file, called "A.DOT", in which there is two macros named autoopen and autoclose. (Those macros do all the automations I need : open the data source file, do some work on it, launch the mailmerge, and delete the source data). - All my main mailmerge documents (like "B.DOC") are based on the "A.DOT" template. - My problem is : when the result file (like "C.DOC") is created by the mailmerge, it's also based on the "A.DOT" template, so the two macros are also active in "C.DOC" and this is creating mess. How can I say to the mailmerge fuction to use NORMAL.DOT as the template of the result file ? Thanks in advance for any help. Tag: Macro not always works Tag: 53965
  - 24
    - Keyboard assignment stops responding I've recorded a macro to insert the current date into a Word document. I then assigned it to a Function key and all worked fine for a while but then it stopped responding. I've tried re-assigning it and all appears to be correct, until I come to test it, and it still doesn't work! The macro itself, if run from the drop down menus works. Anyone know what hidden setting seems to have changed? -- "If everyone followed my method of deleting all but the snippet of an earlier message they were replying to then these newsgroups would be a hell of a lot easier to read" Tag: Macro not always works Tag: 53960
  - 25
    - Re: Mac, Visual Basic Compatability I am posting this again because I do not see the first posting. "Howard Kaikow" <kaikow@standards.com> wrote in message news:... > Depends on Mac version and what version of VBA you are using. > > I do not know what version of VBA is used in Mac Office 2004, but all prior > versions of Mac Office were using a subset of the Office 97 VBA, which is > VBA version 5. > > So, check what version of Mac is being used. > If prior to Office 2004, then you will have to restrict your Windows Word > VBA to a subset of Word 97 VBA, and may need to use Mac specific VBA for > some things. > > If Office 2004, keep your fingers crossed, check and hope that Office 2004 > is based on at least VBA 6. If so, then you have more flexibility in what > you can do with Word VBA in Windoze. > > Windows versions of Office since 2000, use VBA 6 (or a variant). > > -- > http://www.standards.com/; See Howard Kaikow's web site. > "Blake" <anonymous@discussions.microsoft.com> wrote in message > news:429901c4731f$23c770b0$a301280a@phx.gbl... > > I have a template I have automated with VB. Somebody in > > our marketing department wants to use the template to > > create a report. However, our marketing department uses > > Macs. Will my template work on a Mac? > > > > Thaks for any help. > > Tag: Macro not always works Tag: 53957

I have a macro in a Word document, which works okay except that the last 2 lines sometimes execute and sometimes don't.
They are
ActiveDocument.Save
ActiveDocument.Close
What might the reason for this be, since the rest of the macro always works!
--
Les

Top

Re: Macro not always works by Jezebel

Jezebel
Fri Jul 30 00:25:54 CDT 2004

Word sometimes gets a little confused about whether or not the document is
saved.

Save does nothing if .Saved = TRUE (Word thinks the document is saved
already). However sometimes Close still thinks the document DOES need
saving, so it fails too.

One solution is:

ActiveDocument.Saved = FALSE
ActiveDocument.Save
ActiveDocument.Close SaveChanges:=FALSE

"Les" <Les@discussions.microsoft.com> wrote in message
news:4043D7C3-00D5-42E4-B35D-C4287B7CA951@microsoft.com...
> I have a macro in a Word document, which works okay except that the last 2
lines sometimes execute and sometimes don't.
> They are
> ActiveDocument.Save
> ActiveDocument.Close
> What might the reason for this be, since the rest of the macro always
works!
> --
> Les

Top