Save as... something in my document...

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Supress Headings I am using word XP. I am trying to apply headings (legal type) to a document of paragraphs based upon styles and would like to be able to skip paragraphs which should be grouped under specific headings without numbers as they are not independent. I am trying to do this withing a vba. Applying the paragraph format value to supress the numbers does not work even if I try this manually. Long ago there was a feature in the old word basic that allowed one to specify which paragraphs got numbers by assigning a number to the desired paragraphs prior to applying the heading formatting. Does any such method exist now? Tag: Save as... something in my document... Tag: 43710
  - 2
    - Enter key replacement is it possible to change the behavior of the Enter key in Word 2002? I want 3 modes of operation. In one mode i want to invoke a macro and move to the next paragraph without inserting a newline. Tag: Save as... something in my document... Tag: 43702
  - 3
    - Button Properties I want to be able to change the properties of a toolbar button depending on the current state the document is in. For instance, when the user clicks on a button i want it's state (and its appearance) to change, and other controls to be enabled or disabled on the toolbar. This would be easy with button events but i have no idea how to find the name of a custom macro button on a custom toolbar... Another thing, is it possible to place a spinbutton or other control on a Word toolbar? Tag: Save as... something in my document... Tag: 43691
  - 4
    - Hiding the looping calculations I have an application where I am calculating the average of columns in a form table. The calculation works fine but it is somewhat slow and it causes the monitor to blink for about a minute as it loops through all the cells. Is there a way to hide the calculation, to turn the "echo" off so it went peacefully through the loop and then presented the result? I am hoping that this may speed it up a little. Here is the code I am currently using, based on help from Doug Robbins. I am not sure it works on the multiple columns with the numbered mysum and counter variables. I would welcome comments on that also. Thanks - Steve Dim i As Integer, mysum As Long, Counter As Integer ActiveDocument.Unprotect mysum1 = 0 counter1 = 0 mysum2 = 0 counter2 = 0 mysum3 = 0 counter3 = 0 mysum4 = 0 counter4 = 0 mysum5 = 0 counter5 = 0 mysum6 = 0 counter6 = 0 ' Carpet For i = 155 To 191 mysum1 = mysum1 + Val(ActiveDocument.FormFields("dropdown" & i).Result) If Val(ActiveDocument.FormFields("dropdown" & i).Result) <> 0 Then counter1 = counter1 + 1 End If Next i ActiveDocument.FormFields("Text374").Result = mysum1 / counter1 ' Tile For i = 192 To 228 mysum2 = mysum2 + Val(ActiveDocument.FormFields("dropdown" & i).Result) If Val(ActiveDocument.FormFields("dropdown" & i).Result) <> 0 Then counter2 = counter2 + 1 End If Next i ActiveDocument.FormFields("Text380").Result = mysum2 / counter2 ActiveDocument.Protect _ Type:=wdAllowOnlyFormFields, NoReset:=True End Sub Tag: Save as... something in my document... Tag: 43686
  - 5
    - Run time error 52 Hi all - Could use some help on this one. I've got a module and two userforms. When I try to show the second userform I get an error message of "runtime error '52' bad file name or number" and it highlights my form2.show command. When I run the same code on my home machine it works, but on my office machine I get the error message. Any suggestions on what can be causing this and how to fix it? If it helps, here are the two ways I've tried to show the second form based on some previous posts: In module Sub StartMyForm() Form1.show End Sub In Form1 CmdButton1_Click Displays a dialog box CmdButton2_Click Displays another dialog box CmdButton3_Click Me.Hide Function1 Function2 Form2.Show (This is the line highlighted after the error message) I've also tried this method but got the same error message: In module Sub StartMyForm() Form1.Show Form2.Show Unload Form1 Unload Form2 End Sub Again, both methods worked on my home machine, neither works on the office machine. Any help would be greatly appreciated. Thanks in advance. Tom Tag: Save as... something in my document... Tag: 43685
  - 6
    - Run time error 9118 Parameter value was out of acceptable range Hi all, Using: VB6, SP5 Referencing: Microsoft Word 8.0 Object Library. Call .ConvertToTable(vbTab, , , , wdTableFormatElegant, , , , , , , , , True) I use the above on a range object to create a table in a word document generated by pure VB code. When I have Word97 installed on my machine - its working fine. However, when I install Word2000 the RTE happens. The RTE happens only when I have Word 2000. I already tried to change the True value to 1 as suggested in some articles in the web. I also tried to remove all the parameters but the first vbTab and it did not help as well :( Please advise TIA Guy Tag: Save as... something in my document... Tag: 43682
  - 7
    - Word menu item Iâ??ve got a task, where I have to implement a Word template for about 45 people in a department. The template is on a server disc I would like every single pc to have a menu item that calls a new document based on this template. How do I implement a menu item that works general from Word. I want it to be easy to implement and modify on every pc. It could be something with the normal.dot but I would rather not modify this file because every user has his own way to use this file I hope someone can and will help me out Happy new year to you all!!! Rudy Madse Tag: Save as... something in my document... Tag: 43674
  - 8
    - document_new May i start by wishing everyone here a happy new year. And now, my question. We have a document management system which produces Word documents for us. This process involves a user inputing data into the application which then performs a merge from a template provided by us to produce the document. However, any code provided by me within the template gets ignored & stripped out by the merge. What i've been trying to do is produce some automation functions to be fired off within the Document_New event of the template, but these get ignored. So my question is this...Can anybody suggest a way of working around this? I'd like to avoid having to train users to click something once their doc is produced and would like to keep things as automated as possible. I'm guessing maybe something in Startup/Addins but i'm unsure. Any help gratefully recieved Tag: Save as... something in my document... Tag: 43673
  - 9
    - Persistant variables in word 2002 I've got a fairly large macro in word 2002 that needs to store document state variables inside a doc without them being accessible to regular users. is this possible and if so, where? Tag: Save as... something in my document... Tag: 43666
  - 10
    - Let user click in doc while macro runs? I have a macro which requires the user to select where the action will happen. I have two issues to deal with: (a) I'm making this a Private Sub, dependent on the running of a previous macro, because I need to pass a total count variable from the previous macro into this one. (b) This is a repeated action, so this macro will update a counter every time it's run and compare it with the passed-on variable to know when to stop. The macro will find a generic label statement and replace it with a user-chosen label (input earlier via InputBox) that includes a number (the counter which increments each time the loop is run). Is there any way I can break out of the loop to ask the user to "Place the cursor where you want the text to be", then let the macro continue? If not, what might be the best way to handle this? Ed Tag: Save as... something in my document... Tag: 43660
  - 11
    - lockaspectratio for inlineshapes I'm trying to programmatically change the width of an inline shape, after setting lockaspectratio=true. When i click on the picture i see that the lockaspectratio box is indeed checked, but it doesnt seem to work... the width changes independently of the height. if i manually doubleclick on the picture and change the size, it works. does anyone know how i can make it work through vba? ------------------------------------------------ ~~ Message posted from http://www.ExcelTip.com/ ~~View and post usenet messages directly from http://www.ExcelForum.com/ Tag: Save as... something in my document... Tag: 43647
  - 12
    - A procedure to write a procedure - shareware time limit I am trying to write a procedure (procedure A) that will 1) check if another procedure (procedure B) exists 2) if that procedure does not exist create it hardcoding the date on which is first run 3) and resave the template then run procedure B 4) if procedure B exists, run procedure B Specifically, I am trying to write an AutoExec or AutoNew procedure that notes the current date the first time it is run and saves it in the code (rather than as a doc variable or a doc property). Once that has been done, the newly created code will check the current date each time it is run and compare it to the saved date. Once a certain number of days have passed, the code will be disabled. TIA Happy New Year! -- Charles Kenyon Word New User FAQ & Web Directory: <URL: http://addbalance.com/word/index.htm> Intermediate User's Guide to Microsoft Word (supplemented version of Microsoft's Legal Users' Guide) <URL: http://addbalance.com/usersguide/index.htm> See also the MVP FAQ: <URL: http://www.mvps.org/word/> which is awesome! --------- --------- --------- --------- --------- --------- This message is posted to a newsgroup. Please post replies and questions to the newsgroup so that others can learn from my ignorance and your wisdom. Tag: Save as... something in my document... Tag: 43643
  - 13
    - Set Copies in Word from VB Application using VBA I can't find a way to set the default number of copies for the printer dialog using VBA in my VB application. Is there a way to do this with out running a macro? The user's of my application are in a corporate environment and only have networked printer drivers, not locally installed printer drivers. Tag: Save as... something in my document... Tag: 43639
  - 14
    - how to test if the word document is closed Hi I'm using a vb.net program to automate functions in Word. Suppose I have a variable WordDoc, which is pointed to a word document. How would I be able to test to see if the WordDoc is still open Thanks Tag: Save as... something in my document... Tag: 43636
  - 15
    - Print Macro Can there be some script created so that word would print all the documents that are open? Tag: Save as... something in my document... Tag: 43632
  - 16
    - Word Printing - suppressing the "Printing" pop up box. This is a multi-part message in MIME format. ------=_NextPart_000_0022_01C3CF87.AB2A0C20 Content-Type: text/plain; charset="iso-8859-1" Content-Transfer-Encoding: quoted-printable I'm printing several documents in one go from within vb.net. I'm = creating a Word Object using Active-X and printing using the following = line of code: objWord.ActiveDocument.PrintOut(Background:=3DFalse, = Range:=3DWord.WdPrintOutRange.wdPrintAllDocument, Copies:=3D1) This works fine, but pops up an annoying box saying "Document [docname] = printing on [printer name]" =20 Is there any way of suppressing this pop up ?? Many thanks in advance. Simon ------=_NextPart_000_0022_01C3CF87.AB2A0C20 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.1276" name=3DGENERATOR> <STYLE></STYLE> </HEAD> <BODY> <DIV><FONT face=3DArial size=3D2>I'm printing several documents in one = go from=20 within vb.net.  I'm creating a Word Object using Active-X and = printing=20 using the following line of code:</FONT></DIV> <DIV><FONT face=3DArial size=3D2></FONT> </DIV> <DIV> <P><FONT face=3DArial = size=3D2>objWord.ActiveDocument.PrintOut(Background:=3DFalse,=20 Range:=3DWord.WdPrintOutRange.wdPrintAllDocument, = Copies:=3D1)</FONT></P> <P><FONT face=3DArial size=3D2>This works fine, but pops up an annoying = box saying=20 "Document [docname] printing on [printer name]"  </FONT></P> <P><FONT face=3DArial size=3D2>Is there any way of suppressing this pop = up=20 ??</FONT></P> <P><FONT face=3DArial size=3D2>Many thanks in advance.</FONT></P> <P><FONT face=3DArial size=3D2>Simon</FONT></P></DIV></BODY></HTML> ------=_NextPart_000_0022_01C3CF87.AB2A0C20-- Tag: Save as... something in my document... Tag: 43619
  - 17
    - Clipboard Woes Word 2000 I have a macro that passes data to and from the clipboard. I have a problem in that the contents of the clipboard seem to be changing unexpectedly. In the code below I've marked the lines where the change seems to happen. If I put a watch on cbLocate and step through the code, it contains one value the first time CheckClipboard is run, and a different value the second time CheckClipboard runs. The subroutines below are shown in their entirety. **************** Sub RemoveLocate() SelectLocate <<< This calls a subroutine that just selects text in the document. Selection.MoveRight Unit:=wdCharacter, Count:=1, Extend:=wdExtend > CheckClipboard > Selection.Delete Unit:=wdCharacter, Count:=1 <<< This command seems to change the clipboard contents. > CheckClipboard NextLocate <<< This calls a subroutine that goes to the next block of text in the document. End Sub Sub CheckClipboard() ReadFromClipboard If InStr(1, cbLocate, "LOCATED RECORD NOTIFICATION", vbBinaryCompare) Or _ InStr(1, cbLocate, "$L", vbBinaryCompare) Then PasteLocate End If End Sub Sub ReadFromClipboard() Set cbValue = New DataObject cbValue.GetFromClipboard cbLocate = Trim(cbValue.GetText) End Sub **************** As indicated above, it seems to be the Selection.Delete command that is changing the clipboard contents. This makes a certain amount of sense if the block of text is being cut from the document. Is there a way to delete blocks of text without the data landing on the clipboard? Is there something about the clipboard that I don't understand that might be causing this problem, like maybe the clipboard is storing multiple blocks of text and my code isn't handling that properly? Also, I understand that data objects can hold multiple pieces of information. Could the data object be the problem? I apologize if this is all too vague, but I thought that trying to post my complete set of macros, or explain the fine details of everything that I'm doing, would be too confusing, so I've tried to boil it down to the section of code where I'm seeing the problem (although, I know this might just be a symptom, and the real problem might be elsewhere in my code). Any help you can offer will be greatly appreciated. --Tom Tag: Save as... something in my document... Tag: 43618
  - 18
    - Finding Login Information on XP I had a program that listed and deleted files in my cookie folder, but with XP the folder is no longer C:\Cookies or C:\Windows, etc. Does anyone know how to get the login name of a user in word. The path looks like this: "C:\Documents and Settings\User Name\Cookies\" And I'm hardcoding username. But isn't there aoms api function or application properties other than username that will tell me who logs onto a windows session? spammastergrand@aol.com Tag: Save as... something in my document... Tag: 43617
  - 19
    - Faster Calculation Needed I'm having a speed issue that I think could be eliminated with a little more knowledge. I am creating a template form in Microsoft Word with 28 dollar amounts. Each dollar amount is split into two text form fields (one for the dollar portion of the amount and the other for the cents portion of the dollar amount). I have set the name of each field (DollarAmt_01 to DollarAmt_28 and CentsAmt_01 to CentsAmt_28). I have also created a macro that gets run when the focus exits the text form field for both the dollar and cents fields. This macro cycles through each dollar amount adding them up. Then it cycles through the cents amount, adding them up, multiplying them by 0.01 and adding the result to the dollar amount total. Here's a snippet of my code for the macro: Sub CalcDepositTicketTotals() Dim dollarTotal, centsTotal As Double dollarTotal = 0 dollarTotal = dollarTotal + Val(ActiveDocument.FormFields("DollarAmt_01").Result) dollarTotal = dollarTotal + Val(ActiveDocument.FormFields("DollarAmt_02").Result) .. dollarTotal = dollarTotal + Val(ActiveDocument.FormFields("DollarAmt_28").Result) centsTotal = 0 centsTotal = centsTotal + Val(ActiveDocument.FormFields("CentsAmt_01").Result) centsTotal = centsTotal + Val(ActiveDocument.FormFields("CentsAmt_02").Result) .. centsTotal = centsTotal + Val(ActiveDocument.FormFields("CentsAmt_28").Result) centsTotal = centsTotal * 0.01 dollarTotal = dollarTotal + centsTotal ' US Dollar Amount ActiveDocument.FormFields("USD_Total").Result = Str(dollarTotal) End Sub ===================== I'm sure that I am going about this the wrong way because this is taking way too long to process (about 16-18 seconds). Certainly, you can tell that I am not experienced with programming in Word. Any suggestions on what I can do to speed things up? Thanks! Jason ------------------------------------------------ ~~ Message posted from http://www.ExcelTip.com/ ~~View and post usenet messages directly from http://www.ExcelForum.com/ Tag: Save as... something in my document... Tag: 43616
  - 20
    - Print Control in Word/Excel Hello I want to place a 'Button' Control in Excel and Word files. I want the button to bring up the Print dialogue, just the same way as going to FILE --> Print would do How do I do this? Thank you Tag: Save as... something in my document... Tag: 43606
  - 21
    - VBAKey by Pathologist question A few months ago someone in this group suggested to recover a lost VBA password using the free VBAKey by Pathologist. I tried and it displayed the recovered password using a series of chachacters which can not be entered from the keyboard. Has anyone else tried this program? Do you know how to convert this characters into a readable text sequence? Tag: Save as... something in my document... Tag: 43605
  - 22
    - VBA with Word Tables I have a few Word documents that are generated by some third party software. The software pulls its data through a Word 2000 template, drops data into Word tables, and then saves off as a .rtf file. Two things that I would like to do: 1. Is there a way for VBA to get to the value that's in the cells of the tables? and 2. If I can get to that, is there a way to use VBA from within Word to take those values and put them into a database using ADO (.NET?), DAO, ODBC, ...? Thanks! Ken Tag: Save as... something in my document... Tag: 43603
  - 23
    - Word UNDO hi, I=B4m Roby E Martins, VB Developer. I=B4m trying to make my own screen with Word Undo=20 properties. Something like: what kind of UNDO are there, how many=20 UNDO are available and where in the document it make=20 changes. the same to RENDO too. Please, I only found Undo event and canUndo property. Thank you, Roby E Martins Tag: Save as... something in my document... Tag: 43598
  - 24
    - =?iso-8859-1?Q?Word_don=B4t_display_selection_when_lost_focus?= Hi, I=B4m Roby E Martins, vb Developer. I =B4m having a problem with word selection. When Word lost focus, The selection continues in the=20 document but it is not drawing in the screen. Is there a way to keep the selection draw? Thank you, Roby E Martins Tag: Save as... something in my document... Tag: 43597
  - 25
    - Detecting when document becomes longer than one page I'm trying to create a fairly simple memo template. when the mem becomes longer than one page, I'd like to be able to create the foote for page two and beyond (which happens to include a logo that's not i the first page footer). Is there such an event I can trap? I do realize I may be approaching this the wrong way. I can see how t set the page layout to "different first page," but is it possible t create the second (and beyond) page footer without actually having mor than one page (eg when document is created but before it becomes mor than one page long)? Jen ----------------------------------------------- ~~ Message posted from http://www.ExcelTip.com ~~View and post usenet messages directly from http://www.ExcelForum.com Tag: Save as... something in my document... Tag: 43588
- Next
  - 1
    - Command line start... I may be in the wrong newsgroup with this query, if so I apologize. Here's my problem. To open a Word document from a MS/Access application I use a statement similar to the following (the directory specs are OK): Call C:\Microsoft Office\Winword\winword.exe C:\Data\Myfile.doc It works great with Word 6 and Word 97, on Win95 & 98 but I get a "file not found" with word 2k on NT. The files are indeed in the specified directories. It seems to be looking for Myfile.doc because winword opens if I remove the file specification. Any idea why it should fail on Word 2K under NT? -- Wesley Tag: Save as... something in my document... Tag: 43584
  - 2
    - Obtaining multiple values from registry I want to determine the names of users on a particular computer that are using Word. I have discovered that about the only place one might look is in: "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Doc FolderPaths" I can obtain the value of a known user (let's say me, Roy) by this formula aName = System.PrivateProfileString("", _ "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Doc FolderPaths", "Roy") (the above actually gives me much more than I need--its the full path to the MyDocs folder under my settings, but I can parse the extraneous stuff out.) I would like to know if there is a routine that would identify each of the users in that registry item, something along the lines of: For Each oUser in Registry aName = System.PrivateProfileString("", _ "HKEY_LOCAL_MACHINE\Software\Microsoft\Windows\CurrentVersion\Explorer\Doc FolderPaths", oUser) Any ideas as to how this might be done would be greatly appreciated. Thanks. Roy Tag: Save as... something in my document... Tag: 43583
  - 3
    - password recovery Hi all, I have a word file that I password protected a while ago. But i've forgotten the password and therefore is unable to open that file. Is there a way to break that password or retrive it using vba code? If yes, kindly help. Thanks. SS Tag: Save as... something in my document... Tag: 43582
  - 4
    - enabling macros Hi, I have a macro in a button and I cannot enable the document so that it can be used. There is no option to enable macros when I open it. Can anyone help Thank Chris Tag: Save as... something in my document... Tag: 43574
  - 5
    - Some Word Programming Questions Hi Everyone. I have few questions 1) Can we have fields in ms word document where we can populate data from database depending on conditions. e.g., I want to have wizard like thing in word and populate those fields depending on what the user select at runtime. Plz tell me how can i achieve this functionality. I know i can open database connection in and selects the data but how can i know where to populate the data. I mean is there a label/textbox like mechanism from which i can know what to update. 2) Can I include or exclude text that's already in the document on the basis of checks. e.g. i have 3 people resume in my template and i show user to select if he wants to include all the resume or not. if he say 2 then include two resume and if he selects three then include three resume. Plz .. provide me answers to these questions. Noor Tag: Save as... something in my document... Tag: 43568
  - 6
    - Auto List Entries are Deleted from Auto Text Hi I have written an VB Add-in that creates a Menu on the Menu bar of word. The application works fine all events are handled. The problem that arises is 1.) My custom Menus appear in place of Auto-Text entries 2) All AutoText is cleared from the Menu and the AutoText Tool bar after i delete my custom menus. I would like to know if i can restore the AutoText Menu without replacing Normal.dot (which is what i do now to get my AutoText back) via code that is or Is there any work around that will prevent my custom menus appearing in Auto-Text Thanks Prasanna Tag: Save as... something in my document... Tag: 43564
  - 7
    - Pass class reference Hi I open a word document from my vb.net app. Now I want to pass reference to one of the classes in my vb.net app to word so it can access procedures in the vb.net class. How can I pass the class reference to word from a vb.net app? Thanks Regards Tag: Save as... something in my document... Tag: 43560
  - 8
    - hyperlink properties and or methods Office 2003 I have a couple of word documents that contain a few hundred hyperlinks. I have need to edit these links and have worked out a procedure to loop through them in the manner needed. The two properties I need to edit are the 'text to display' and the 'address' I can't seem to find the correct VBA method and or property to do so. Anyone can help? -- Regards, Dave Patrick ....Please no email replies - reply in newsgroup. Microsoft MVP [Windows NT/2000 Operating Systems] http://www.microsoft.com/protect. Tag: Save as... something in my document... Tag: 43559
  - 9
    - Word Takes Unacceptable Length of Time to Close Why does Microsoft Word take an unacceptably long length of time to close after running the following code snippet from Microsoft Word (as a Microsoft Word macro)? Is there a more efficient way to access the documents which . does not expose (display) the document . avoids the Word closing issue I've tried a number of workarounds unsuccessfully, but I welcome any suggestions. Please advise. Sub MAIN() Dim Document as Document Dim temp00 As Long Dim thedocs(145) As String thedocs(0) = "c:\thedoc000.doc" ' Initialization of thedocs(1-144) removed for brevity thedocs(145) = "c:\thedoc145.doc" For temp00 = 0 to UBound(thedocs) Set Document = GetObject(thedocs(temp00)) Set Document = Nothing Next temp00 End Sub Tag: Save as... something in my document... Tag: 43555
  - 10
    - wordperfect dialog editor I want to convert a macro and dialog that I created to word. How do I do it? I can't copy the dialog that I created in wp, so where is the file to convert? Thanks. Tag: Save as... something in my document... Tag: 43547
  - 11
    - Passing value to word Hi How can I do this from within a vb.net app; 1. Create a word document from a word template and, 2 Pass a value to a variable defined within the document's VBA module? Thanks Regards Tag: Save as... something in my document... Tag: 43543
  - 12
    - Passing value to word Hi I am trying to open a word document and pass a value to a public variable declared in word document, from my vb.net app. The code is given at the end. The problem is that I can not access either the variable or a sub who (both declared as public) in word to accomplish the above. What am I doing wrong? Thanks Regards WordDoc = WordApp.Documents.Add("C:\Fax03.dot") With WordDoc .Caller = WordEventHandler '<-This variable is not visible .setcaller(WordEventHandler) '<- and so is this sub WordApp.Activate() End With In word template Fax03.dot, in a module, I have the following; Public Caller As EventHelper.EventHelper Public Sub SetCaller(x As EventHelper.EventHelper) Caller = x End Sub Tag: Save as... something in my document... Tag: 43541
  - 13
    - '.bas' -how to open and read Does anyone know how I can open and read a .bas attachment? I have Windows XP and Office XP. Thank you. Tag: Save as... something in my document... Tag: 43536
  - 14
    - Word 2003 new document on top Thanks to anyone who can help me solve this problem! I have an application that pops up a new document next to an existing document, critiquing the existing one. I started with Word '97, made modifications to make it work in Word 2000 when that came out and likewise when Word XP came out. Works fine in those releases. The critique is displayed on top (overlaps) of the document being analyzed. In Word 2000 and greater, I use Word.Application.Visible = False to hide the processing then Word.Application.Visible = True to display the Word Docs after the critique is prepared. In Word 2003, sometimes the document comes up on top of the critique. Other times, it works just fine (critique on top). This is confusing for the user. I use ActiveDocument.ActiveWindow.Caption = "Critique" I've tried: Windows("Critique").Activate ActiveWindow.ActivePane.Activate ActiveDocument.Activate Documents("Critique").Activate Windows("Critique").SetFocus 'Word XP & 03 in assorted orders to no avail. I've also tried grabbing the document number of the critique to setfocus and activate with no consistent luck. This problem appears to be a bug introduced in Word 2003. Any ideas would be very much appreciated. I've searched high and low Tag: Save as... something in my document... Tag: 43533
  - 15
    - Insert several pictures into one document Hello, I could really use some help. I am trying to create a document that will allow my Mother-in-law to insert several pictures in a Word document. The number of pictures range from 3 to 5 and beside each picture she likes to type some notes. I am trying unsuccessfully to create a macro that will ask how many pictures she would like to insert into the document then space out the pictures so that they are evenly spaced on the document. I thought maybe I should do a table so if there are three pictures the table would be 2 columns and 3 rows. If there are 4 pictures there would be 2 columns and 4 rows and if there are 5 pictures there would be 2 columns and 5 rows. The pictures would be on one side and the words on the other side. One of the problems I am running into is the spacing. How do you space it out so it's evenly spaced between the top and bottom and left and right of the document? The next problem is how do I set up the macro to put the pictures into the cells in the table? Any and all help would be greatly appreciated. Thanks, Lee Tag: Save as... something in my document... Tag: 43532
  - 16
    - network name How do i find out the name of the pc from within a vba pgm? TIA -- --------------------------------------------------------------- In Christ's matchless name 73 ted & colleen n6trf kc6rue Tag: Save as... something in my document... Tag: 43531
  - 17
    - I also tried to use AutoNew macro I refer you to the message at http://www.microsoft.com/office/community/he-il/default.mspx?dg=microsoft.public.word.vba.general&mid=53e7e5bc-f3bc-44d6-a1ce-8f9b8fbf47ed I've Written there Hello I also tried to activate AutoNew and Document_New macros. the macros indeed executes when making a new document except it executes only for new documents which I make from the WordApplication->File->New option but if i start a new document by pressing the WordApplication icon on my desktop AutoNew and Document_New macros dont excecute I hope U understand my problem and thanks in advance Tag: Save as... something in my document... Tag: 43530
  - 18
    - Pass variables from Outlook to Word I am calling a word macro from an Outlook macro, and want to pass a couple of variables as shown below. I think the variables need to be defined inside the Outlook function, as the variables are generated from the date the e-mail message was created. I am calling it with a "message rule". Not sure what methods are available; could I call the macro directly and pass the variables directly; or write the variables to a text document, call the word macro, and have it check the document? Any suggestions would be welcome. Matthew Complete Outlook code below. Variables I want to pass are Folder and fName. Sub SaveAttachment(Item As Outlook.MailItem) On Error GoTo GetAttachments_err 'MsgBox "Script is running. " & Item.SenderName Dim ns As NameSpace Dim Inbox As MAPIFolder 'Dim Item As Object Dim Atmt As Attachment Dim FileName As String Dim Folder As String Dim fName As String Dim i As Integer Set ns = GetNamespace("MAPI") Set Inbox = ns.GetDefaultFolder(olFolderInbox) Set fName = Format(Item.CreationTime, "yyyy mm dd") & Right(Atmt.FileName, 4) i = 0 If Item.SenderName = "Operator Account" Then Set Folder = "Wood Magazine\" ElseIf Item.SenderName = "Lisa Stram" Then Set Folder = "CWB\" ElseIf Item.SenderName = "LEADlink" Then Set Folder = "American Woodworker\" 'ElseIf Item.SenderName = "Alycia Schulz" Then 'Folder = "Alycia Schulz\" Else MsgBox "You need to install user " & Item.SenderName Set Folder = "" End If For Each Atmt In Item.Attachments ' This path must exist! FileName = "C:\My Documents\Sales Leads\" & Folder & fName Atmt.SaveAsFile FileName i = i + 1 Next Atmt MsgBox "Script has run." & vbCrLf & "I found " & i & " attached files.", vbInformation, "Message" Set WordApp = CreateObject("Word.Application") ' Create a new, empty document. Set WordDoc = WordApp.Documents.Open("C:\Documents and Settings\Matthew Osborne\Desktop\Doc1.doc") WordDoc.Application.Visible = True 'Word Macro set to Auto_Open ' Clear memory GetAttachments_exit: Set Atmt = Nothing Set Item = Nothing Set ns = Nothing Exit Sub ' Handle errors GetAttachments_err: MsgBox "An unexpected error has occurred." _ & vbCrLf & "Please note and report the following information." _ & vbCrLf & "Macro Name: GetAttachments" _ & vbCrLf & "Error Number: " & Err.Number _ & vbCrLf & "Error Description: " & Err.Description _ , vbCritical, "Error!" Resume GetAttachments_exit End Sub Tag: Save as... something in my document... Tag: 43524
  - 19
    - Revisions programming can be made to work?? I need a procedure that will print out all of the revisions in a document along with their "parent" paragraph and sentence numbers. Here is the code I've used (thx Helmut Weber for cmts): For I = 1 To ActiveDocument.Paragraphs.Count Set rngPara = ActiveDocument.Paragraphs(I).Range For J = 1 To rngPara.Sentences.Count Set rngSent = rngPara.Sentences(J) Debug.Print "Paragraph " & Format(I, "00") & " Sentence " & Format(J, "00") & " #Deletions= "; Str(cntDeletions) & " #Insertions= " & Str(cntInsertions) If rngSent.Revisions.Count > 0 Then cntDeletions = 0 cntInsertions = 0 For Each Revn In rngSent.Revisions If Revn.Type = wdRevisionDelete Then cntDeletions = cntDeletions + 1 strRevnType = "Deletion:" ElseIf Revn.Type = wdRevisionInsert Then cntInsertions = cntInsertions + 1 strRevnType = "Insertion:" End If Debug.Print strRevnType; Revn.Range.Text Next Revn End If Next J Next I The problem is that the revisions in the range rngSent.Revisions includes _all_ of the revisions in the document rather than just the revisions in pargraph, I, and sentence, J, as the code specifies should be the case. Prior to iterating to the first paragraph _and_ sentence containing a revision, the count of revisions rngSent.Revisions is 0, which is correct. At the first _sentence_ containing a revisions, the count of revisions (and the print out of revisions) jumps to all revisions in the document. What is wrong here? I am using the 9/2/2003 Word Patch, which contains repairs to Revisions (see kb824936 thx ejlskov) John Wirt Tag: Save as... something in my document... Tag: 43522
  - 20
    - Set Focus I am doing a mail merge, and wanted to put some info in the header. I have the code to put the info in the header of the active window: ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.TypeText Text:="American Woodworker" ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument How can I apply this to make changes to the correct document? I don't know how to set the focus. Thanks! Matthew Mail merge macro: Private Sub MailMerge() Dim oApp As Word.Application Dim oDoc As Word.Document 'Start a new document in Word Set oApp = CreateObject("Word.Application") Set oDoc = oApp.Documents.Add With oDoc.MailMerge 'Insert the mail merge fields temporarily so that 'you can use the range containing the merge fields as a layout 'for your labels -- to use this as a layout, you can add it 'as an AutoText entry. With .Fields .Add oApp.Selection.Range, "FirstName" oApp.Selection.TypeText (" ") .Add oApp.Selection.Range, "LastName" oApp.Selection.TypeParagraph .Add oApp.Selection.Range, "Company" oApp.Selection.TypeParagraph .Add oApp.Selection.Range, "Address1" oApp.Selection.TypeParagraph .Add oApp.Selection.Range, "Address2" oApp.Selection.TypeParagraph .Add oApp.Selection.Range, "City" oApp.Selection.TypeText ", " .Add oApp.Selection.Range, "State" oApp.Selection.TypeText " " .Add oApp.Selection.Range, "ZipPostalCode" End With Dim oAutoText As Word.AutoTextEntry Set oAutoText = oApp.NormalTemplate.AutoTextEntries.Add("MyLabelLayout", oDoc.Content) oDoc.Content.Delete 'Merge fields in document no longer needed now 'that the AutoText entry for the label layout 'has been added so delete it. 'Set up the mail merge type as mailing labels and use 'a tab-delimited text file as the data source. .MainDocumentType = wdMailingLabels .OpenDataSource Name:="C:\My Documents\Sales Leads\American Woodworker\2003 12 24.csv" 'Specify your data source here 'Create the new document for the labels using the AutoText entry 'you added -- 5160 is the label number to use for this sample. 'You can specify the label number you want to use for the output 'in the Name argument. oApp.MailingLabel.CreateNewDocument Name:="5160", Address:="", _ AutoText:="MyLabelLayout", LaserTray:=wdPrinterManualFeed 'Execute the mail merge to generate the labels. .Destination = wdSendToNewDocument .Execute 'Delete the AutoText entry you added oAutoText.Delete End With 'Close the original document and make Word visible so that 'the mail merge results are displayed oDoc.Close False oApp.Visible = True 'Prevent save to Normal template when user exits Word oApp.NormalTemplate.Saved = True End Sub Tag: Save as... something in my document... Tag: 43503
  - 21
    - UserControl in Word Hi, In Word when I open a document containing a UserControl the Word reads the saved custom properties of the control, then immediately fires the WriteProperties event of the control; however if I change any of these properties later, WriteProperties event does not occur again, unless I change some of the standard control's properties like Height or Width. Is this a bug in Word? I tried it in both Word 97 and 2002 with the same result. Thanks, Alex. Tag: Save as... something in my document... Tag: 43502
  - 22
    - Att: Malcolm Smith Hi Thanks for the Web lesson which I'm working my way through. I've noticed that when I open my .dot, (saved as per your instructions) the program runs and the VB userform appears. But when I copied it elsewhere as a simple .doc, it doesn't run. (I copied it for ease of access) Since the VB instructions don't make reference to .dot, I don't understand why the program runs when opened from .dot but not from .doc as the two documents are exactly the same otherwise. Also, Inspite of your explanations, I still haven't really got my head around 'code' yet and I was wondering if you could explain it again in other words. (mailnly the oForm and the Oform.Tag = cancel Private Sub Document_New() Dim oForm As frmMemo Set oForm = New frmMemo oForm.Tag = "Cancel" oForm.txtDate.Text = Format$(Date, "d mmmm yyyy") oForm.Show End Sub Finally, I'd also like to ask the same question as a few days ago. What is the relationship between the active document and ThisDocument in VBA? Thanks Tag: Save as... something in my document... Tag: 43499
  - 23
    - Selecting a graphic Hi, Is there any way my addin knows when a user has clicked on a graphic Ann ----------------------------------------------- ~~ Message posted from http://www.ExcelTip.com ~~View and post usenet messages directly from http://www.ExcelForum.com Tag: Save as... something in my document... Tag: 43488
  - 24
    - Exposing vb.net procedures Hi How can I expose procedures (function or sub) in my vb.net app to vba in word? Thanks Regards Tag: Save as... something in my document... Tag: 43486
  - 25
    - Calling back vb.net app Hi I am opening word from my vb.net app. Is there a way to call a procedure in the vb.net app from a word macro? Thanks Regards Tag: Save as... something in my document... Tag: 43483

Hi,

I'm quite ignorant in VBA... and I've got a problem...

I've got this Word file, which I use to generate about 80 (different
but alike) HTML-files by merging it with an Excel-file...

The result: one big Wordfile. This should be cut into pieces, each page
in a different file, saved as a .txt-file.

In each page of the 'mainfile' I've made myself a remark: save this
file as 'whatever.txt'.

I've made a macro already that cuts the content of one 'subfile' and
pastes it into a new file which I then have to save by hand. I'm sure
it should be possible to let a macro determine (from the text) what the
filename should be, and save the file with the right filename... but
how...

Anyone?

TIA,
Joost

------------------------------------------------
~~ Message posted from http://www.ExcelTip.com/
~~View and post usenet messages directly from http://www.ExcelForum.com/

Top

Re: Save as... something in my document... by Perry

Perry
Sat Jan 03 04:43:25 CST 2004

How can an automation process determine which part of
your text should be considered as 'would-be' filename?

Is this the text of the first paragraph?
Is this the text of the last paragraph?
Is the text prefixed?
Is the text suffixed?

Kindly elaborate.

Krgrds,
Perry

"Yoast1970" <Yoast1970.zfz2e@nospam.WordForums.com> wrote in message
news:Yoast1970.zfz2e@nospam.WordForums.com...
>
> Hi,
>
> I'm quite ignorant in VBA... and I've got a problem...
>
> I've got this Word file, which I use to generate about 80 (different
> but alike) HTML-files by merging it with an Excel-file...
>
> The result: one big Wordfile. This should be cut into pieces, each page
> in a different file, saved as a .txt-file.
>
> In each page of the 'mainfile' I've made myself a remark: save this
> file as 'whatever.txt'.
>
> I've made a macro already that cuts the content of one 'subfile' and
> pastes it into a new file which I then have to save by hand. I'm sure
> it should be possible to let a macro determine (from the text) what the
> filename should be, and save the file with the right filename... but
> how...
>
> Anyone?
>
> TIA,
> Joost
>
>
> ------------------------------------------------
> ~~ Message posted from http://www.ExcelTip.com/
> ~~View and post usenet messages directly from http://www.ExcelForum.com/
>

Top