Setting a Path in Word VBA

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - In Word: LIX-calculation A suggestion: make a LIX-calculation as part of the document-statistic in Word. Many years ago I was user of a danish text-program, which had this facility. Sometimes it was very usefull to get a quick caracteristic of the text-level in order to match it to the readers it was ment for. I think it would be a supreme extension of the Document statistic, if this facility was biuld-in. ---------------- This post is a suggestion for Microsoft, and Microsoft responds to the suggestions with the most votes. To vote for this suggestion, click the "I Agree" button in the message pane. If you do not see the button, follow this link to open the suggestion in the Microsoft Web-based Newsreader and then click "I Agree" in the message pane. http://www.microsoft.com/office/community/en-us/default.mspx?mid=9721380e-6800-4940-95e5-31a546f0bf92&dg=microsoft.public.word.vba.general Tag: Setting a Path in Word VBA Tag: 75760
  - 2
    - Disable protection ? I need to disable the protection of a Word document. It is a template and contains several macros. I forgot the password. Please help. Tag: Setting a Path in Word VBA Tag: 75757
  - 3
    - VBA - opening files with Shell command I'm writing a macro in Excel which finds other files (not Excel files) with a given name and then opens them. I'm using the Windows registry to find the programs associated with the files and then using the Shell command to open the files with the given program. My problem is that for some programs the Shell command opens a new instance of the program for each additional file, i.e. each AutoCAD file opens into its own instance of AutoCAD even if AutoCAD is already running. So my question is, is there a switch for the Shell command that tells it to check to see if an instance of a program is already running before starting a new one, and, if the program is already running, opens the file with the existing instance? Or is there another way of doing this without getting into the API of each program in question? Here's a snippet of my code: strCmd = appWord.System.PrivateProfileString("", _ "HKEY_CLASSES_ROOT\" & regType & "\shell\Open\command", _ "") If Len(strCmd) > 0 Then strCmd = Replace(strCmd, "%1", fileWithPath) 'for pdf & dwg files strCmd = Replace(strCmd, "/dde", "/one " & """" & fileWithPath & """") 'for solidworks files Shell strCmd, vbNormalFocus Else MsgBox prompt:="Could not find an application" & vbCr & _ "registered to display file.", _ Buttons:=vbCritical + vbOKOnly, _ Title:="Not Registered" End If Thanks! Eric Tag: Setting a Path in Word VBA Tag: 75751
  - 4
    - Opening a tab page from a command button Hi, this sounds like a simple question, but I can't find the answer anywhere. I have a userform with a front page and some tab pages that are not visible to the user. There is a command button on the front page. When this is clicked, tab page 2 becomes visible, as planned. However, the focus remains on the front page. I want the tab page 2 to become visible and also become the main displayed page, rather than leaving page 1 as the main displayed page. I've tried various things with "show" and "load" etc, but I get errors every time. If someone can put me right, I'd be very grateful. Regards, Will Tag: Setting a Path in Word VBA Tag: 75746
  - 5
    - Opening a tab page from a command button Hi, this sounds like a simple question, but I can't find the answer anywhere. I have a userform with a front page and some tab pages that are not visible to the user. There is a command button on the front page. When this is clicked, tab page 2 becomes visible, as planned. However, the focus remains on the front page. I want the tab page 2 to become visible and also become the main displayed page, rather than leaving page 1 as the main displayed page. I've tried various things with "show" and "load" etc, but I get errors every time. If someone can put me right, I'd be very grateful. Regards, Will Tag: Setting a Path in Word VBA Tag: 75745
  - 6
    - Method 'SaveAs' of object '_Document' failed We have a application that initializes a word instance to perform a mail merge. After the merge while executing the following line objWordApp.ActiveDocument.SaveAs txtOutputfile.Text We receive the Error message â??Method 'SaveAs' of object '_Document' failedâ?? We are not sure why it does that. Does the template have any issues? If so how do we correct it? Any help will be appreciated Thanks Naga Tag: Setting a Path in Word VBA Tag: 75744
  - 7
    - How can I customize a word template so ALL users use the same sett In researching what settings are saved where, I found that some Word settings are saved in normal.dot, others in the user profile, while still others are stored in the registry. I need to include a macro used by all users as well as have all of the settings in Tools, options set the same for all users. I also have a customized dictionary to be used. In lieu of going through multiple steps per pc of importing registry settings, running macros on startup, restoring a normal.dot and possibly running additional macros, is there a component in Office that I can use to customize everything I need for use for ALL my users? Tag: Setting a Path in Word VBA Tag: 75735
  - 8
    - TOC and Figures .. PLEASE HELP I have a 160 page document with over 120 different pictures with figure captions. Some of my graphics are inline and other are text flowing around. All of my figure numbers show and figure auto count works correctly but when I create my figure table only the my inline figures show up in the figures table. How can I fix this problem? I also tried using frames and that was a big mess and major headache!!! Why does this thing not work? Thank you in advance, Mike Tag: Setting a Path in Word VBA Tag: 75729
  - 9
    - ClearForm using a button Hi! I have some address blocks in my form...I used bookmarks in order to repeate data in all of them...usually all of these address blocks must show the same data but in some cases one of them must be different... In this case I would like to populate all of them with the same data but create a button that clear only one of this REF fields...when user click the button, the address blocks is cleared and he can type in other information without modify the other REF fields... Could anybody please help me ?? Thank you in advance !! Tag: Setting a Path in Word VBA Tag: 75727
  - 10
    - Delete command button, but not other shapes in document Hi, I need a macro to delete a command button, but not other shapes in the document. How can I delete only the command button? And this must be a solution that works in several different documents, some with other shapes, some with the command button being the only shape. The following code deletes all shapes: For Each oShp In ActiveDocument.Shapes oShp.Delete Next oShp I understand I must be able to identify the command button somehow. Thanks! Tag: Setting a Path in Word VBA Tag: 75722
  - 11
    - each time I clear the clipboard the same two items reappear I can't clear the clipboard. each time the same items reappear. When I do try to paste some text, the entire document inserts itself in a box within the document ratehnrt than just the line of text required. Tag: Setting a Path in Word VBA Tag: 75716
  - 12
    - execute macro for all documents in the folder I have the macro which I want to execute for all files in the folder - open each file, execute macro, close the file. Can I do it without creating the table with file names ? If yes, how ? Thanks for help. Tony Tag: Setting a Path in Word VBA Tag: 75705
  - 13
    - Create a toggle button for restart/continue list Hi Folks, I am using Word 2000, which seems to have no easy method of restarting/continuing lists without entering the Bullets & Numbering Box. I am trying to create a toggle macro that will restart/continue numbering or return an error if the text has no number. But as I have no programming experience at all, I'm getting a bit lost! From my travels through VBA Help, I've patched together something that will restart numbering, but will not continue it and I can't quite work out how to include the error message for no numbering. Here's my (attempt at) code: Sub testlistrestart() ' ' testlistrestart Macro ' Macro recorded 28/10/2005 by COE ' Toggle macro for button on toolbar to continue/restart list numbering Dim CurrentLT Dim temp Set CurrentLT = Selection.Range.ListFormat temp = CurrentLT.CanContinuePreviousList(ListTemplate:=CurrentLT.ListTemplate) If temp <> wdContinueDisabled Then CurrentLT.ApplyListTemplate ListTemplate:=CurrentLT.ListTemplate, _ ContinuePreviousList:=False Exit Sub If Not temp <> wdContinueList Then CurrentLT.ApplyListTemplate ListTemplate:=CurrentLT.ListTemplate, _ ContinuePreviousList:=True End If Else MsgBox "The current text has no numbering!" End If End Sub Any help/pointers for someone just beggining to use VBA would be appreciated. I tried to use a Not statement for the toggle because from the examples I've seen it looks much tidier, but I don't know how I would use it for this macro. Cheers, COE Tag: Setting a Path in Word VBA Tag: 75704
  - 14
    - Try to find letters that are good and put them in the samples ---------------- This post is a suggestion for Microsoft, and Microsoft responds to the suggestions with the most votes. To vote for this suggestion, click the "I Agree" button in the message pane. If you do not see the button, follow this link to open the suggestion in the Microsoft Web-based Newsreader and then click "I Agree" in the message pane. http://www.microsoft.com/office/community/en-us/default.mspx?mid=c7aed7b6-c78f-4ecf-abcc-9ca505978e60&dg=microsoft.public.word.vba.general Tag: Setting a Path in Word VBA Tag: 75701
  - 15
    - Iterating through XML tags in word is slow. Hi, I have a word template with approx 550 checkbox form fields and some textbox form fields. I need to save this as XML data. Since word does not store the checkbox values in the XML data while doing a save as XML data, I am trying to iterate through the XML tags and create the XML data myself. This is slow (takes about 2 mins). I am including the code below. UnProtectDocument(); object o = 1; foreach(XMLNode myXmlNode in m_Document.XMLNodes) { if(!myXmlNode.HasChildNodes) { Range range = myXmlNode.Range; FormField formField = range.FormFields.get_Item(ref o); if (formField.Type == WdFieldType.wdFieldFormCheckBox) { if (formField.CheckBox.Value == true) { Trace.WriteLine(formField.Name + " value = Checked"); } } } } ProtectDocument(); Thanks. Tag: Setting a Path in Word VBA Tag: 75693
  - 16
    - Copy Paste Macro Hi, From within a Word document how do I write a macro that will open an Excel file say c:\Info.xls copy range A1:C20 and paste special as a picture into the word document. All help is appreciated -- _______________________ Naz, London Tag: Setting a Path in Word VBA Tag: 75679
  - 17
    - Test for End of Section I can't tell all of you how much help you have been to me in learning how to create VB code. I would truely be lost without you all. In my code, I select the page and then test to see if my selection is at the end of the document by testing with: If Selection.Type = wdSelectionIP And Selection.End = _ ActiveDocument.Content.End - 1 Then ... Now I need to test if the selected page is the last page of a section or if there are more text / manual pages following the selected page. Is there a way to test if the current selected page is the end of a section? Thanks again!!! -- Debra Ann Tag: Setting a Path in Word VBA Tag: 75678
  - 18
    - Anyway to get Preferredwidth for a table with merged columns? Is there ANYWAY to determine the width of a table that has merged columns? Jean-Guy showed a way to get the table width for a table without merged columns, however I have many users that like to create tables with merged columns. The preferredwidth property returns 99999 if the table is merged and the column width returns an error. I am copy and pasting the merged table as a nested table and I need to know if the table is wider than 1 column in page layout to auto size the new table to either fit in 1 column or spread it across the whole page. Jerry Tag: Setting a Path in Word VBA Tag: 75673
  - 19
    - How do I set up a macro in a word doc. w/ an imported excel table I am setting up a template in Word that I have imported a table from Excel. I need to set the macro to save the margins, but it won't do it for some reason. I looked at the court document article, which helped me to understand, but now the excel table is posing a problem that won't let the macro run. Please help! Or please let me know if you need more clarification on my problem to help! Tag: Setting a Path in Word VBA Tag: 75672
  - 20
    - Protected Forms and VBA events I've got a VC++ component that opens Word and creates a new document based on a user specified document template. The DDE fields in the document template are then merged with data from our database. With one customer they use protected forms which won't allow the updating of the document. To be able to do this I need to turn protected fields off when the document is created (I've used AutoNew which works), then turn protection back on after the document is updated and displayed. However with out making a Hotfix to our software I can't see a way in VBA (an event probably) to allow me to turn this protection on after the update. Any ideas gratefully received. Tag: Setting a Path in Word VBA Tag: 75668
  - 21
    - table object in word I've written some VBA to work in word. I'd like to create a table object, similar to a form object, that is only accesible from the VBA editor. I want to be able to load this table into a recordset that I can then search through in code. Is this possible, and if so, can someone point me to directions for doing so? Tag: Setting a Path in Word VBA Tag: 75665
  - 22
    - Adding a drop-down programmatically I'd like to be able to add 2 drop downs to 2 cells of a table in word, but I'd like to do it programmatically. I'd like to be able to do this off of the add-row event in word (the event that adds a table row); Is this possible, and if so, can you provide direction? Thank you very much in advance! MikeD Tag: Setting a Path in Word VBA Tag: 75664
  - 23
    - Putting an image in a table cell I have some code (below) that creates table rows and writes data from a database, and symbols to the new cells. I have a small image that needs to go into each row too, If I have the image in the first row is there anyway to put it into each new row created ? Thanks hals_left ActiveDocument.Tables(3).Rows.Add With ActiveDocument.Tables(3).Rows(ActiveDocument.Tables(3).Rows.Count - 1) .Cells(1).Select Selection.Text = objRS("ID") .Cells(2).Select Selection.Text = objRS("Name") If objRS("Selected") = "1" Then .Cells(3).Select Selection.End = Selection.End - 1 Selection.InsertSymbol Font:="Wingdings", CharacterNumber:=-3844, Unicode:=True End If ' How to do this part ? .Cells(4).Select Selection.Contents = Copy a gif image from another table cell or import it from file ? Tag: Setting a Path in Word VBA Tag: 75656
  - 24
    - Selection.HeaderFooter.LinkToPrevious To shut off my link to previous for the current page and then the next page, I did the following but it only shuts off the headers, not the footers. I get the same code when I follow my keystrokes. Why is this nor working? ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.HeaderFooter.LinkToPrevious = Not _ Selection.HeaderFooter.LinkToPrevious ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageFooter Selection.HeaderFooter.LinkToPrevious = Not _ Selection.HeaderFooter.LinkToPrevious ActiveWindow.ActivePane.View.NextHeaderFooter Selection.HeaderFooter.LinkToPrevious = Not _ Selection.HeaderFooter.LinkToPrevious ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.HeaderFooter.LinkToPrevious = Not Selection.HeaderFooter.LinkToPrevious ActiveWindow.ActivePane.View.PreviousHeaderFooter -- Debra Ann Tag: Setting a Path in Word VBA Tag: 75654
  - 25
    - How do I include a "blank" choice in a drop down list? I am creating a form letter. in the RE: section, there are several drop down lists but not all need to be filled out with every letter. How do I designated a "blank" choice on those lists so an unused drop down list will not show on the letter. Tag: Setting a Path in Word VBA Tag: 75650
- Next
  - 1
    - Accessing cells in an 'uneven' table Hi, I know that you can use cell(row, col) to access a particular cell in a table. But what if some cells have been merged and others have been split, which makes the definition of row and col tricky. Is there still a way to access individual cells? Thanks, Jay Tag: Setting a Path in Word VBA Tag: 75642
  - 2
    - Remove all contents from the Header of a document I have some documents that are being inserted into an exhisting document. Some of the documents have headers that are changing my template. Is there a macro to get rid of all contents in a header. Including any tables that might be in there? I mean anything that is in there. Please advise. thanks in advance. Tag: Setting a Path in Word VBA Tag: 75633
  - 3
    - Insert Generic text starting from a bookmark Greetings, I have a document (template) where i need the user to be prompted for how many entries of some information will be appended (inserted) into there document. I need to spell it out for them where the heading is and where to insert the file. So for example if the user needed to insert 5 seperate files into this document the user would type in the number "5" and then the macro would return the following 5 times. Tab 1 - INFO Insert File Here Tab 2 - INFO Insert File Here Tab 3 - INFO Insert File Here Tab 4 - INFO Insert File Here Tab 5 - INFO Insert File Here I should also mention that i would need it to be started on a specific page or rather i think since the first pages will be so dynamic and could change i guess it would start at a specific bookmark. May be the First Tab1. Thoughts? Tag: Setting a Path in Word VBA Tag: 75631
  - 4
    - Paste inline as link Hello I have my simple macro to paste an Excel chart linked to source file and in line with text partly working, but I cannot get it all to work. Here are the lines I have tried: Selection.PasteAndFormat (wdChartLinked) And InlineShapes.Add LinkToFile:=True What code can I use to ensure that a chart just copied from Excel will always poste linked and inline with text. Thanks for any help Sol Tag: Setting a Path in Word VBA Tag: 75627
  - 5
    - Trying to simulate a pause in VBA I have looked at the article: http://support.microsoft.com/?kbid=212711 It appears to me that there is a bug in this code. When my BEFORE code is Selection.TypeText("1") and my AFTER code is Selection.TypeText("2") then repeat executions of the macro gives this result: 122122122122122122122122122122122122122122 If it were conducted properly, the result would be: 1212121212121212121212121212121212121212 For some reason it is taking two executions of the macro to clear the keyboard assignation. Any idea why this is? Also, I am interested in knowing if others have a similar result with the repeating 122122122. Thanks for your help. Tag: Setting a Path in Word VBA Tag: 75626
  - 6
    - Using application.visible When I use application.visible = false and then turn it back on when the macro has finished, the following occurs: The window screen that appears is fine. However, there is another document that is created at the same time. When I change windows to look at that document, its view is messed up (the narrow print view bar at the bottom of the document screen disappears and the document window cannot be scrolled). When I click the print preview button and close it, the view is then "repaired." I attempted to print preview it programmically at the end of the code, but it makes no difference. Any suggestions? By the way, there are a lot of changes being made in the headers and footers, so turning off screen updating doesn't make any difference - the headers automatically turn it back on (and no, I cannot use the header range object here - dealing with a lot of replacement of text and graphics - thanks). Tag: Setting a Path in Word VBA Tag: 75622
  - 7
    - Program to Automatically Save Word File I have a program that saves as excel and word file with the same filename (see program below). The excel file is being saved without problem, however, the word file it is not working at all. Could you please help me with this matter?.. I think that even the description I wrote under the word program are completely wrong. Thanks. Maperalia â??*****Start of Program********* Option Explicit Public Sub OpenWordAndUpdateLinks() SaveExcelTemplateAsSaveAs SaveWordTemplatelAsSaveAs End Sub Sub SaveExcelTemplateAsSaveAs() Dim WO As String Dim grdprp As String Dim sFilename As String Dim Progname As String Dim Filename As String Dim myDateTime As String WO = Worksheets("summary BLR").Range("M10") myDateTime = Format(Worksheets("summary BLR").Range("M9").Value, "yyyymmdd") Filename = "" & WO & "_" & myDateTime & "" Progname = "C:\Form\" & Filename & ".xls" ActiveWorkbook.SaveCopyAs Progname End Sub '***********OPEN THE TEMPLATE WORD FILE AND SAVE AS**************************** Sub SaveWordTemplatelAsSaveAs() Dim wordApp As Object Dim fNameAndPath As String Dim Filename As String Dim WO As String Dim myDateTime As String WO = Document("Page 1,Section 1",At 2.1").Range("ln 1,col 2 to ln 1, col 19") myDateTime = Document("Page 1,Section 1",At 2").Range("ln 2,col 7 to ln 2,col 19") fNameAndPath = "C:\Word\Template.doc" Set wordApp = CreateObject("Word.Application") wordApp.Documents.Open (fNameAndPath) wordApp.Visible = True wordApp.Activate Filename = "" & WO & "_" & myDateTime & "" Progname = "C:\Form\" & Filename & ".doc" ActiveDocument..SaveCopyAs Progname End Sub '********************************************************** â??*****End of Program********* Tag: Setting a Path in Word VBA Tag: 75615
  - 8
    - Header and Footer Margins I have a document that I open up and import data from a Sql Database. I perform this with VBA code. I make an adjustment to the margins that changes text entered into the document. It also changes the width of the headers and footers which is something that I dont want to happen. How do I keep that from happening with VBA code. Tag: Setting a Path in Word VBA Tag: 75607
  - 9
    - Form Field Suggestion using date entries I think it would be valuable to incorporate a small calendar to enter a date in a form field in Word. ---------------- This post is a suggestion for Microsoft, and Microsoft responds to the suggestions with the most votes. To vote for this suggestion, click the "I Agree" button in the message pane. If you do not see the button, follow this link to open the suggestion in the Microsoft Web-based Newsreader and then click "I Agree" in the message pane. http://www.microsoft.com/office/community/en-us/default.mspx?mid=f6cf00d6-fc89-4856-b710-06ddb8b04748&dg=microsoft.public.word.vba.general Tag: Setting a Path in Word VBA Tag: 75605
  - 10
    - Outlook 2003 Addressbook Can anyone provide code for Word 2003 that will prompt to pull name/address info from the Outlook Contacts folder -- specifically from another users Outlook Contact folder that I have access to. Thank you in advance for your help. Tag: Setting a Path in Word VBA Tag: 75601
  - 11
    - fillable documents how do I create fillable documents in microsoft word 2003 Tag: Setting a Path in Word VBA Tag: 75592
  - 12
    - why message: Do you want to save the changes you made to xxx.doc? I am running some code in Excel to print all Word .doc files in a particular folder. With one particular user there is a message popping up when he runs this in Word 2002, but fine in Word 2003: Do you want to save the changes you made to xxx.doc? at the following code. I presume it is the third line, but I can't reproduce it: wd.Documents.Open filename:=arrFiles2(i, 2), ReadOnly:=True wd.ActiveDocument.PrintOut Background:=False wd.ActiveDocument.Close wdDoNotSaveChanges Then whether he clicks No or Yes he gets an Error somewhere in a Word messagebox. Not sure now what the error is. Word is declared like this: Dim wd As Word.Application Set wd = New Word.Application Just no idea why this message and error possibly could occur and grateful for any suggestions. RBS Tag: Setting a Path in Word VBA Tag: 75589
  - 13
    - Passing String parameter from Access to Word Macro Here is what I have: I created an Access database that is used to import text file data from Novell server configuration text file. In the first step of the process I've set the "Path" that I want all macros to use using a global string parameter(Global strString As String): strString = "I:\Configs". What I would like to do is pass the "Path" from the Access call to the Word Macro: 'This command runs the referenced Macro in the Word Aplication ObjWord.Run MacroName:="Normal.NewMacros.Stepa_CreateServerTextFiles" Does anyone know how this could be done???? Tag: Setting a Path in Word VBA Tag: 75587
  - 14
    - Conditional drop down list I'm using code that Doug Robbins provided to a previous post. I'm very fortunate to have stumble across that little gold nugget. Thanks Doug. The code is using a table in word to fill in the drop down boxes on a user form. I'm having a problem when I try to show my user form. I get the error message "Run-time error '4198': Command failed." It appears that I am losing the focus on my template/document and the focus is now on the table document. Any ideas on how I can work around this? Thanks. Amy Tag: Setting a Path in Word VBA Tag: 75583
  - 15
    - How to determine width of tables I need to determine the width of tables prior to copy them into a 2 column document using VBA. I looked at the columns width property but not all the tables have simple columns, some have nested or merged columns. Is there an easy way to detemine the width of any table regardless of the columns? Thanks! Jerry Tag: Setting a Path in Word VBA Tag: 75581
  - 16
    - Batch process to change security of Word docs? (also posted in Word General) Is there a way to automate changing the security option of standard Word documents to make them read only or password protected? It's easy enough to do one by one (Tools --> Options --> Security) but I'd go crazy having to do this for several hundred. I'm using Word 2003 on a Windows XP platform. Thanks. pjs Tag: Setting a Path in Word VBA Tag: 75579
  - 17
    - delete style and if style not found what to do.... i am trying to delete few style from activedocument. The macro is in one of the template and people create new document from there. At the end of tabulation etc. people delete unwant styles. It's always style a, b and c to delete. The macro deletes this a, b and c style but what coding I should write if they hit button again. Basically, I would like to run a macro and if style is not found it should gives a pop up saying styles are been deleted instead of run time error which says "styles not found" Any help Tag: Setting a Path in Word VBA Tag: 75576
  - 18
    - export picture shape Anyone knows if there's a way to export a picture shape into a file? If possible without using the clipboard. Thanks for any hints! Luc Tag: Setting a Path in Word VBA Tag: 75567
  - 19
    - Check if Word is already active? I pulled up an Excel macro I wrote in my absolute newbie days (not that I'm too much farther down the road!) that opens a Word doc. It still works, but now I can see that it needs some tweaking. I use Dim WD As Object doc = Fpath & "\" & Fname & ".doc" Set WD = CreateObject("Word.Application") WD.Documents.Open doc WD.Visible = True Set WD = Nothing (doc, Fpath, and Fname are all declared as well.) Besides being late binding, this opens an entirely new instance of Word, which can do some strange things to me, depending on what I'm doing in Word at the moment. What I'd really like to do is check to see if Word is running first; if it is, then open the new doc within the current instance - if not, then open a new instance. What's the best way to check if Word is already running? Ed Tag: Setting a Path in Word VBA Tag: 75564
  - 20
    - can you add automatic sequential numbering to a word template? I would like to create a word template that will automatically enter a serial number on the page that will increase by 1 each time the template is used Tag: Setting a Path in Word VBA Tag: 75563
  - 21
    - how do I repeat heading row in a word table by code Tag: Setting a Path in Word VBA Tag: 75562
  - 22
    - Can anyone help with a little math problem? the following code fails with "invalid procedure call or argument". Can you see why? Sub test() cosh = 1.5009 myAnswer = Atn(-cosh / Sqr(-cosh * cosh + 1)) + 2 * Atn(1) MsgBox myAnswer End Sub It calculates the aCos (inverse cosine) of cosh, and uses the nonintrinsic math formula given in Word 2003 help. cosh is normally variable but 1.509 is typical for it. ---- Stephenc Tag: Setting a Path in Word VBA Tag: 75560
  - 23
    - page break if statement I would like to add a page break if a certain Field condition exist? Is it possible Tag: Setting a Path in Word VBA Tag: 75556
  - 24
    - Link to Macro in word document Hi I have recorded a simple macro in word to copy and paste an extra section of a table if required. I would like to have a button or link in the actual document that one could click on which would then simply paste the table. This will be a shared document so would really need to be embedded. Does anyone hav eany idea how I would do this, and if I have explained properly?! Many thanks Tag: Setting a Path in Word VBA Tag: 75554
  - 25
    - looping through variables I have the following problem. I have several tables in a document and I need to work with the tables in a certain style. So I wrote a piece of code that loops through the tables, checks te style and if it is a match creates a variable in the variable collection of which the name is a counter for the matches and the value is a counter for the tables. This works fine, but when the matches exceed 10 the following occurs: While looping through my variables by itemnumber the order is changed. I use the following code: For i = 1 To ActiveDocument.Variables.Count iTmp = ActiveDocument.Variables(i).value and now expect to see my matches from 1,2,3,....,9,10,11... and so on... however I get: 1,10,11,12,..,2,3,4... Am I doing something wrong? Tag: Setting a Path in Word VBA Tag: 75552

I found the following macro on the internet (from someone else's
question)and it is working for me, except that it is saving the documents all
to my C drive.
How can I program a path eg. C:\A_Data\Word\Merge

Dim x As Long
Dim Sections As Long
Dim Doc As Document

Application.ScreenUpdating = False
Application.DisplayAlerts = False

Set Doc = ActiveDocument

Sections = Doc.Sections.Count
For x = Sections - 1 To 1 Step -1
Doc.Sections(x).Range.Copy
Documents.Add
ActiveDocument.Range.Paste
ActiveDocument.SaveAs (Doc.Path & "\" & x & ".doc")
ActiveDocument.Close False
Next x

Application.ScreenUpdating = True
Application.DisplayAlerts = True

End Sub
Hoping someone can help me with this.
--
PaulineC

Top

Re: Setting a Path in Word VBA by macropod

macropod
Sat Oct 29 02:34:19 CDT 2005

Hi Pauline,

Simply change the 'Doc.Path' reference to your preferred path. So, instead
of:
ActiveDocument.SaveAs (Doc.Path & "\" & x & ".doc")
use:
ActiveDocument.SaveAs ("C:\A_Data\Word\Merge" & "\" & x & ".doc")

Cheers

"paulinec" <paulinec@discussions.microsoft.com> wrote in message
news:50FD6328-1B0A-4F5E-90C6-9501BC5D80CB@microsoft.com...
> I found the following macro on the internet (from someone else's
> question)and it is working for me, except that it is saving the documents
all
> to my C drive.
> How can I program a path eg. C:\A_Data\Word\Merge
>
> Dim x As Long
> Dim Sections As Long
> Dim Doc As Document
>
> Application.ScreenUpdating = False
> Application.DisplayAlerts = False
>
> Set Doc = ActiveDocument
>
> Sections = Doc.Sections.Count
> For x = Sections - 1 To 1 Step -1
> Doc.Sections(x).Range.Copy
> Documents.Add
> ActiveDocument.Range.Paste
> ActiveDocument.SaveAs (Doc.Path & "\" & x & ".doc")
> ActiveDocument.Close False
> Next x
>
> Application.ScreenUpdating = True
> Application.DisplayAlerts = True
>
> End Sub
> Hoping someone can help me with this.
> --
> PaulineC

Top