Find and use a user's template directory path

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Any way to insert .............. till end of line via shortcut ? Hi, is there a way to have a line completed till its end with dots ............... ? ( not exceeding to next line, nor too short). Number of characters on the line can be variable, so inserting just a fixed number of dots wouldn't be appropriate. Any help ? Word XP & Word 2k3 TIA Phil Tag: Find and use a user's template directory path Tag: 113421
  - 2
    - Macro to select ALL tables (with different styles) in a word docum sorry if it is a repost(?) How to select ALL the tables (with different Table styles) in a word document (by exemple to apply a "table formatting macro" or a new table style to all the tables in the document at once). I cannot select all the tables at once using the Styles and Formatting pane because the documents have several table with different table styles. I would like to avoid scrolling in the document and hold the CTL key + click in every tables. I have looked for selecting all the tables using the the Find (F5) function in word, but I found "tables" nowhere in the options list. Is there is a solution with the Find function or/and with a Macro? Not sure if I explain well, so ask me if you need further precisions. Thanks Tag: Find and use a user's template directory path Tag: 113417
  - 3
    - Hyperlink in clipboard for Outlook Email Is it possible to create a hyperlink and place this in the clipboard so you can paste it into an Outlook email. I know i can do something like this "<file:///E:\Profile\Desktop\dropbox\sharepoint.docx>" And then after a return it will hyperlink. But i would like the link and the text to be different. Tag: Find and use a user's template directory path Tag: 113414
  - 4
    - Cannot access VBProject object I wanted to remove a VBA Form in a Word template. The following is the code. I have set the Word application property of "Trust Access from Visual Basic Project", but it seems that the VBProject object I got is somehow invalid. Dim wordApp As Microsoft.Office.Interop.Word.Application Dim doc As Microsoft.Office.Interop.Word.Document Dim vbProj As Microsoft.Vbe.Interop.VBProject Dim name As String wordApp = New Microsoft.Office.Interop.Word.Application doc = wordApp.Documents.Open(FileName:="C:\\Temp\\Test.dot") vbProj = doc.VBProject name = vbProj.Name //This line throws exception Tag: Find and use a user's template directory path Tag: 113410
  - 5
    - Renaming bookmarks when inserting file I would like to be able to rename the bookmarks on a document that I am inserting into a template new doc. The template has the abilitiy to add this document many times and I will run sql statements to populate some of the fields on the inserted file. Let's say I'm inserting test1.doc which has 5 formfields, text1 - text5. How can I rename these upon inserting the file? That way I can maintain 1 insertable doc rather than having multiple Thanks, Bryan Tag: Find and use a user's template directory path Tag: 113397
  - 6
    - Index I want to index a book in word - and there are already hundreds of exisiting index entries in the text, produced an older programm. There are two forms (both nomal text in the file): - <$Imainentry> - <$mainetry;subentry>. Can this be achieved in VBA? Replace these existing text fields with word index fields {XE }? Thanks for every answer/help! Matthias Tag: Find and use a user's template directory path Tag: 113395
  - 7
    - Need to Add reference fields to a blank document I have a template with the following hidden reference field. { ASK MyField \* MergeFormat} I use a {REF MyField \*MergeFormat} statement within my document to pull the data where it needs to go. I have a macro that Selects ALL and then saves all reference fields as regular text before the document is distributed online. However, I would like to restore the ASK statements at the top of the document in case further edits are needed. So, what I would like to know is how to create a macro that automatically inserts the ASK statement at the beginning of a document. Thanks so much for any guidance with Word 2000 fields!!! Tag: Find and use a user's template directory path Tag: 113390
  - 8
    - Extract data from Word Table Hey all, I have a large document with hundreds of word tables that I would like to extract into Excel with VBA. The MSDN example I found doesn't work so I'm not sure how to proceed. I don't know the Word Object model at all so any pointers or URLs would be greatly appreciated. Thanks, Cliff Tag: Find and use a user's template directory path Tag: 113387
  - 9
    - Office 2007 Add-in Designer There used to be an Add-In designer in Office XP ( 2002) which you could quickly make add-in DLL's by choosing File -> New Project -> Add- In Project. Is this possible in 2007 or is the only way to do this through visual studio now? Tag: Find and use a user's template directory path Tag: 113385
  - 10
    - delimiter settings recorder a macro no problem. when run it stops on delimiter screen. What can be put in code to set delimiter ="," never been here befor. My recorded code following This is all in 2000 word.I tried all I can think of and my books don't show this. Thanks Selection.Range.InsertDatabase Format:=0, Style:=0, LinkToSource:=False, _ Connection:="", SQLStatement:= _ "SELECT Name_of_Entry, Contact_Person, Address, CityState, Zip_ FROM C:\Parade\ZZZ.txt WHERE ((Name_of_Entry IS NOT NULL ) AND (Contact_Person IS NOT NULL ) AND (Address IS NOT NULL ) AND (CityState IS NOT NULL ) AND (Zip_ IS NOT NULL ))" _ & "", PasswordDocument:="", PasswordTemplate:="", WritePasswordDocument _ :="", WritePasswordTemplate:="", DataSource:="C:\Parade\ZZZ.txt", From:= _ -1, To:=-1, IncludeFields:=True ChangeFileOpenDirectory "C:\Parade\" ActiveDocument.SaveAs FileName:="Ztable.doc", FileFormat:=wdFormatDocument _ , LockComments:=False, Password:="", AddToRecentFiles:=True, _ WritePassword:="", ReadOnlyRecommended:=False, EmbedTrueTypeFonts:=False, _ SaveNativePictureFormat:=False, SaveFormsData:=False, SaveAsAOCELetter:= _ False CommandBars("Stop Recording").Visible = False End Sub Tag: Find and use a user's template directory path Tag: 113383
  - 11
    - Inserted Pictures I have documents that were converted from WordPerfect to Word. I created a macro the Resets the outline numbering, page setup and other things. A lot of the documents have inserted pictures and AutoCad drawings in them. Is there a way to over look these when the macro is running? Tag: Find and use a user's template directory path Tag: 113376
  - 12
    - Setting Cursor Position How can I position the cursor at a certain bookmark upon opening a new protected document? Thanks, Bryan Tag: Find and use a user's template directory path Tag: 113375
  - 13
    - Table 1st col Insert Word I want to insert Dr^s (non breaking space) as 1st word in Column 1 of a table (the rows already exist). I just want it to run down the 1st column and insert the above word with a nonbreaking space before the text already inserted? Is anyone able to help with VBA please? Much appreciated. Tag: Find and use a user's template directory path Tag: 113371
  - 14
    - Word 2007 letter template - open saved document are missing vba code I have build a template with some vba-code to handle userinput with at userdefined dialogbox. After the dialogbox is closed the data is placed in the document. I have also added a button to the ribbon, so the userdialogbox can be showed again, with the data from the document in the userdefined dialobox. It works fine. Then I save the document as xxxx.docm (document with macro). Now the problem: When the document is open again the macrocode and then button in the ribbion is missing! I have tried to add trusted locations where the template and the document are saved, (also remembered Subfolders) but that was not the solution. If the document is saved as Word 97-2003 format, it works as expected (is works fine). But why is it a problem with the Word 2007 format? I will be very happy if someone can solve this problems for me. Tag: Find and use a user's template directory path Tag: 113367
  - 15
    - Word's Dialog Boxes are too small! Some dialog boxes in Word are too small to display sufficient information. Is there some way to make them larger? (Same goes for some Windows XP dialogs, too) Tag: Find and use a user's template directory path Tag: 113366
  - 16
    - Delete default custom file properties? My Office 2003 version of Word appears to contain the following UNWANTED values in the Custom File Properties window. How do I clean these pesky items out? The Delete button is greyed out for all of them! Checked by Client Date completed Department Destination Disposition Division Document Number etc., etc. Tag: Find and use a user's template directory path Tag: 113365
  - 17
    - mail merge macro or script I have a mail merge document and need a macro or script that will go through all the mail merge records and save each record as it's own document using one of the mail merge fields as the document name. Is this possible? Tag: Find and use a user's template directory path Tag: 113362
  - 18
    - Self-deleting macro button? I have a macrobutton embedded in a line of hidden 'instruction' text. The macrobutton works fine - But the hidden instruction line is no longer needed as soon as the macro executes. What syntax can I add to the macro button's macro, that will delete the entire hidden line, macro button and all, as the macrobutton executes? Tag: Find and use a user's template directory path Tag: 113357
  - 19
    - if chkbox is ticked then un-strikethrough textbox text Hi, I want to make a word document into a form that I can both protect and also allow users to input data into, but I don't know if I'm going about it the right way. I'm using the control toolbox to create several checkboxes and adjacent textboxes on my document. I have put some default text into the control boxes which I want to make strikethrough format out by default. I don't know how to do this. Essentially, I want to allow the users to select the checkbox beside the text to unstrike it, thus enabling the text to be shown normally. So that the user is picking specific clauses that they want to form part of their contract. I don't know where to put the code. For example, if I was using a userform the code would be part of the form. In this case, is the code part of the thisdocument object and if so what event should I use e.g. click, change, gotfocus? If my textbox is called txt1 and my checkbox is chk1 can you give me some example code on how I do this. Kind regards Dylan Dawson Tag: Find and use a user's template directory path Tag: 113355
  - 20
    - Normal.dot default Everytime I open Word 2003, my toolbars, macros, etc. are changed. I have saved a copy of the Normal.dot (the correct one) on my desktop and up until now I have just closed all the programs and deleted the old Normal.dot and replaced it with the copy of the desktop and it has worked just fine. Somehow, ALL of the instances of Normal.dot have defaulted to an OLD version and all of my toolbars, macros, and settings are gone. This is not the first time this has happened, but no one is able to tell me why and how to stop this from happening. Thanks. -- S Tag: Find and use a user's template directory path Tag: 113350
  - 21
    - Replacing Nested Text Hi there, i wonder how fast the normal word replace function (Edit->Find/ Replace) is able to replace nested text in text boxes or tables. i want to automatically do this for text in tables within text boxes (Textbox->Table->TableCell->Text). the only approach i had so far is to - iterate through each Shape (and if it's a textbox) - select the table within and - replace the text and this costs me a lot of time. the macro recorder function didn't show me the exact find/replace method. do you have any idea? regards, matthias Tag: Find and use a user's template directory path Tag: 113342
  - 22
    - document template How do I lock certain bits of text in a new template i am making? And does anyone know how to create a shaded field where users can insert text? Tag: Find and use a user's template directory path Tag: 113339
  - 23
    - showing only some parts of a document IÂ´m not sure how to explain my problem. IÂ´m making a contract with different paragraphs and parts in it. It is a general contract but it would be used to many purposes. I would like it to be so that you can choose in the beginning wich parts and paragraphs of the contract you want to use and it the document would be automatically biuilt according to those wishes. Is this possible and if it is, how? Tag: Find and use a user's template directory path Tag: 113338
  - 24
    - How to make it search from the beginning of the document? Hi, Somebody gave me the following code to search words in red in a document: With Selection.Find .ClearFormatting .Forward = True .Wrap = wdFindStop .Format = True .Font.Color = wdColorRed End With While Selection.Find.Execute MsgBox (Selection.Text) Wend May I know how to force it to seach from the beginning of a document? Thanks. Mike Tag: Find and use a user's template directory path Tag: 113336
  - 25
    - Force Saving Document with New Name I am opening a document with Set DocB = Word.Documents.Open(DocA.Path & "\Intro.doc") I would like the file to show as "Document1" (or whatever the next new document would be) so that the user is forced to save it with a new name. Is this possible? thanks, dave Tag: Find and use a user's template directory path Tag: 113332
- Next
  - 1
    - macro for displaying section field +1 digit? The Section field, when added into a document, displays an arabic numeral showing the section number where it resides. What syntax would cause display of the section number, incremented by one digit? (ie, the Section field, if placed in section 2, displays a "2" but with this new syntax, would display a "3"; if positioned in section 12 it would display a "13", etc.) Tag: Find and use a user's template directory path Tag: 113327
  - 2
    - "Probable VIRUS Detected" message I create a very short macro for a particular form document and get this message whenever I open the document. It is a very simple macro that turns off the document protection when the user reaches the last Text form field. How do I stop this from appearing? Tag: Find and use a user's template directory path Tag: 113326
  - 3
    - TOC Question Iâ??m trying to format my TOC as Follows: 1.0 text 2.0 text 2.1 text 2.2 text 2.3 text 3.0 text 3.1 text 3.2 text 3.3 text and so onâ?¦ My macro gives me this: 1.0 text 2.0 text 2.1 text 2.2 text 2.3 text 3.0 text 3.1 text 3.2 text 3.3 text and so on... My question is how do I get a return between 2.3 and 3.0? Hereâ??s my Macro: With ActiveDocument.Styles("TOC 1") .AutomaticallyUpdate = True .BaseStyle = "Normal" .NextParagraphStyle = "Normal" End With With ActiveDocument.Styles("TOC 1").ParagraphFormat .LeftIndent = InchesToPoints(0) .RightIndent = InchesToPoints(0) .SpaceBefore = 0 .SpaceBeforeAuto = False .SpaceAfter = 0 .SpaceAfterAuto = False .LineSpacingRule = wdLineSpaceDouble .Alignment = wdAlignParagraphLeft .WidowControl = True .KeepWithNext = False .KeepTogether = False .PageBreakBefore = False .NoLineNumber = False .Hyphenation = True .FirstLineIndent = InchesToPoints(0) .OutlineLevel = wdOutlineLevel1 .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 End With ActiveDocument.Styles("TOC 1").NoSpaceBetweenParagraphsOfSameStyle = False With ActiveDocument.Styles("TOC 2") .AutomaticallyUpdate = True .BaseStyle = "Normal" .NextParagraphStyle = "Normal" End With With ActiveDocument.Styles("TOC 2").ParagraphFormat .LeftIndent = InchesToPoints(0.5) .RightIndent = InchesToPoints(0.4) .SpaceBefore = 0 .SpaceBeforeAuto = False .SpaceAfter = 0 .SpaceAfterAuto = False .LineSpacingRule = wdLineSpaceSingle .Alignment = wdAlignParagraphLeft .WidowControl = True .KeepWithNext = False .KeepTogether = False .PageBreakBefore = False .NoLineNumber = False .Hyphenation = True .FirstLineIndent = InchesToPoints(-0.5) .OutlineLevel = wdOutlineLevelBodyText .CharacterUnitLeftIndent = 0 .CharacterUnitRightIndent = 0 .CharacterUnitFirstLineIndent = 0 .LineUnitBefore = 0 .LineUnitAfter = 0 End With ActiveDocument.Styles("TOC 2").NoSpaceBetweenParagraphsOfSameStyle = False ActiveDocument.Styles("TOC 2").ParagraphFormat.TabStops.ClearAll ActiveDocument.Styles("TOC 2").ParagraphFormat.TabStops.Add Position:= _ InchesToPoints(0.5), Alignment:=wdAlignTabLeft, Leader:=wdTabLeaderSpaces ActiveDocument.Styles("TOC 2").ParagraphFormat.TabStops.Add Position:= _ InchesToPoints(6.88), Alignment:=wdAlignTabRight, Leader:= _ wdTabLeaderSpaces With ActiveDocument .TablesOfContents.Add Range:=Selection.Range, RightAlignPageNumbers:= _ True, UseHeadingStyles:=True, UpperHeadingLevel:=1, _ LowerHeadingLevel:=2, IncludePageNumbers:=True, AddedStyles:="", _ UseHyperlinks:=False, HidePageNumbersInWeb:=True, UseOutlineLevels:= _ True .TablesOfContents(1).TabLeader = wdTabLeaderDots .TablesOfContents.Format = wdIndexIndent End With Tag: Find and use a user's template directory path Tag: 113319
  - 4
    - removong 'blank' pages hi, I have code that produces various documents. Now, in the main, the documents are printed on a duplex printer and so the document contains extra page breaks to ensure that certain pages dont print on the reverse of the previous page (ie it inserts 2 page breaks instead of 1) However, sometimes i'll be printing on a single sided printer and as such i end up getting a load of 'blank' pages (apart from the header and footer). Is tehre a way i can loop thru all pages in the doc and if there is nothing in the main body of a page then it removes the page? Thanks. Tag: Find and use a user's template directory path Tag: 113318
  - 5
    - Hiding open document Hi, is it possible to write code that hides the open word document from view (but doesn't actually close it) and vice versa. I know you can hide workbooks in excel, but i cant see that you can do the same in Word so cant even begin to try and code it. Cheers. Tag: Find and use a user's template directory path Tag: 113317
  - 6
    - Removing text boxes while preserving the text inside them There are several macros around to remove text boxes from a document, but I cannot find a way to preserve the text inside them. Can anybody point me to one which actually works? Thanks a lot -- John Doue Tag: Find and use a user's template directory path Tag: 113307
  - 7
    - Adding multiple files I have a template which has the ability to add additional files that has form fields which I update from a query (driver info). What users would like is the ability to add this same file (document) multiple times and have it updated accordingly. I figured I could add a textbox to the template for users to input the driver numbers and add according to this. Let's say the insertable document has 5 form fields, text1 - text5. ActiveDocument.FormFields("Text1").Result = strDriver ActiveDocument.FormFields("Text2").Result = strVehicle etc. My question is this: How can I add this same document multiple times and have my query update the one just added ? Assume I added form for driver 1 and updated fields, and now I add for driver 2, how can I update the second form added with driver 2 info when the form fields are the same ? Or is my only solution to have the same document saved multiple times (ie Driver1.doc, Driver2.doc, etc) with the form fields named different in each? Thanks, Bryan Tag: Find and use a user's template directory path Tag: 113299
  - 8
    - SEQ field and grouped textboxes not working right. I'm editing a document with quite a few embedded images and captions in Word 2003. For ease of use, I've been grouping the floating images and the captions so they don't get separated as text gets added. However, when I group two different images and the associated captions, the SEQ field in the caption starts acting wonky. It'll number them properly throughout the document, but the two text boxes that contain the SEQ fields will have the same value for them. For example: Group: Image 1 & Caption 1. SEQ displays 1. Group: Image 2 & Caption 2. SEQ displays 2. Group: Image 3, Image 4, Caption 3 & Caption 4. SEQ for both captions displays 4. Group: Image 5, Image 6, Image 7, Caption 5, Caption 6 & Caption 7. SEQ for all captions displays 7. Group: Image 8 & Caption 8. SEQ displays 8. Is there a way around whatever is causing this issue? Tag: Find and use a user's template directory path Tag: 113298
  - 9
    - change the style formatting on the new word doc Hi, I have a question in regards to autotexts for word 03. I have an autotexts that has contents of style "Section Heading 1" in it. Then, i have a template that has macro to call that autotexts. In the template, i have also set up a style "Section Heading 1". After running the template, a new word document is produced with that autotext. I noticed that there were two styles in that word document, one is "Section Heading 1" and the other one is "Section Heading 1 + Justified". I don't know how to keep this two the same as just "Section Heading 1". This is my intention but i guess word works differently. The trouble here is that we're talking about two different style when there should be only one style sheet formatting namely "Section Heading 1". My question is how can i change those content from the autotexts whose style's "Section Heading 1 + Justified" to just "Section Heading 1" onn the new created word document? Thank you in advance Tag: Find and use a user's template directory path Tag: 113282
  - 10
    - Resetting Window back to Word at end of Macro Hi there - I have two issues I would like to resolve for this macro: 1) I would like to reset the Window back to Word (from Outlook) after the macro runs. It currently stays in Outlook after it is run. This would be confusing to the user. 2)I would like to know if I can make the .CC property a variable that can always retrieve and copy the current user email address in the cc field of the email. Below is the the code I am using: Sub SendDocumentAsAttachment() Dim bStarted As Boolean Dim oOutlookApp As Outlook.Application Dim oItem As Outlook.MailItem On Error Resume Next If Len(ActiveDocument.Path) = 0 Then MsgBox "Document needs to be saved prior to running this step. Use MS Word Menu: File->Save As." Exit Sub End If Set oOutlookApp = GetObject(, "Outlook.Application") If Err <> 0 Then Set oOutlookApp = CreateObject("Outlook.Application") bStarted = True End If Set oItem = oOutlookApp.CreateItem(olMailItem) With oItem .To = "somebody@mail.com" 'Set the recipient for a copy .CC = "currentuseremail@mail.com" .Subject = "New Document" 'Add the document as an attachment, you can use the .displayname property 'to set the description that's used in the message .Attachments.Add Source:=ActiveDocument.FullName, Type:=olByValue, _ DisplayName:="New Document.doc" 'The content of the document is used as the body for the email .Body = ActiveDocument.Content .Send End With If bStarted Then oOutlookApp.Quit End If 'Clean up Set oItem = Nothing Set oOutlookApp = Nothing End Sub Tag: Find and use a user's template directory path Tag: 113278
  - 11
    - Macro for Auto Table of Contents Any ideas on a macro that will automatically build a table of contents? I am trying to avoid having to manually tag each page. Is there a way I can tag the a certain part of each page, which will be updated when pages are added to the document. Let me know if I'm not being clear. Any help is appreciated. Tag: Find and use a user's template directory path Tag: 113273
  - 12
    - Adding different style text to the same range Hi all, I'm trying to create a new document, add a range, then add heading 1 text followed by normal text for each of several sections I'm trying to insert. The code for the insertion of the headers is as follows: Set listDoc = Documents.Add sourceDoc.Activate Dim o As Range For Each i In colStyles listDoc.Range.InsertAfter CStr(i) & vbCr listDoc.Range.Style = "Heading 1" ExtractByStyle CStr(i), listDoc.Range Next i The ExtractByStyle code is here: Sub ExtractByStyle(sStyle As String, ByRef myRange As Range) myRange.Collapse wdCollapseEnd If StyleExists(sStyle) Then Selection.HomeKey Unit:=wdStory Selection.Find.ClearFormatting Selection.Find.Style = sStyle Do While Selection.Find.Execute(findText:="", MatchWildcards:=True, Wrap:=wdFindStop, Forward:=True) myRange.InsertAfter Selection.Range & vbCr Selection.Collapse wdCollapseEnd Loop Else myRange.InsertAfter "Style " & sStyle & " doesn't exist!" & vbCr End If myRange.InsertAfter vbCr myRange.Style = wdStyleNormal End Sub The first heading and all following text comes out as Heading 1; the second heading seems to work. It is Heading 1, and subsequent text is normal. Help! Tag: Find and use a user's template directory path Tag: 113271
  - 13
    - Completely Copying Styles How can I use vba to create new style, using an existing style as a model - but NOT using "based on". In other words, I want to copy EVERYTHING possible about a style into a new style, with a new name. Does anybody have any idea how to do this completely, thoroughly, and accurately? (This applies to paragraph styles as well as character styles.) I would greatly appreciate any help you can provide. Thanks! :) Tag: Find and use a user's template directory path Tag: 113270
  - 14
    - inserting a file I am using the following code to insert a file into a template which has letterhead and footer. " Dim myDoc As Document Dim docrange As Range Set myDoc = ActiveDocument With myDoc .Unprotect Set docrange = .Range docrange.Collapse wdCollapseEnd docrange.InsertBreak wdSectionBreakNextPage Set docrange = .Range docrange.Collapse wdCollapseEnd docrange.InsertFile "W:MN Collective Bargaining Letter.doc" .Protect wdAllowOnlyFormFields, NoReset End With The template has letterhead, so this code adds a section break with the letterhead and footer (Company address, emial, etc). What I want to do is just add a word file next page as it is (no letterhead or footer). I have tried different things , even manually, like insert > Break > Page break and I don't get the header but, still get the footer. Any thoughts.. Thanks, Bryan Tag: Find and use a user's template directory path Tag: 113265
  - 15
    - Call to Excel from Word keeps active XL process I have a VBA macro in Word that pulls a list of information from an Excel spreadsheet. I'm using the following code: Set xlApp = CreateObject("Excel.Application") With xlApp .Visible = False .Workbooks.Open FileName:=strFileName End With Then at the end of my module: xlApp.Quit Set xlApp = Nothing Problem is that Excel continues to run. I have to go into Task Manager and end the process. If there a way to have the Excel process programmatically? Tag: Find and use a user's template directory path Tag: 113263
  - 16
    - INSERTFILE fails when importing EXCEL worksheet using Word2003 can not use insert file to import EXCEL worksheet range using Word2003 . This post http://groups.google.com/group/microsoft.public.word.vba.general/browse_thread/thread/3edf845d81957845/4d2aef2cb0a04e7f?lnk=st&q=InsertFile+word+range+excel+2003#4d2aef2cb0a04e7f says to download oconvpck.exe from microsoft website, but after install it i still i can't import it. Some suggestions ? Thanks Tag: Find and use a user's template directory path Tag: 113259
  - 17
    - to: Jay Freedman re: macro to get initials and go to bookmark Many thanks for your help with my recent question. I'm hoping you have time to answer one more: you had said in your reply: "Storing the names and addresses directly in the code this way is acceptable if there are only a few, and if they don't change very often. If that isn't the case, you don't want to have to edit the macro every time there's a change. Then you want to store the names and addresses somewhere else -- in a Word document, an Excel worksheet, a database, etc. -- and read that source when the macro runs. " In the case of the macro I asked about, storing the code in the macro should be fine...but for future reference, how would I store the names & address in a Word document and have the macro 'call' that info? thanks again! Ruth Tag: Find and use a user's template directory path Tag: 113258
  - 18
    - Help: Need to send active document as attachment via Outlook I need a macro that automatically sends the current active document via email to one specific user. It sounds easy, but I have not found anything that meets this exactly. Options I have found include: MsoEnvelope Object and SendForReview Method. They provide the following hurdles: MsoEnvelope does not send document as attachment, only the document content as the body of the email. SendForReview sends the document with the Tracking status ON, which I do NOT want. Any help overcoming this or any other options to solve my issues would be great. I will take anyway to send an attachment to a specified user. I have tried using: Sub SendMail With Application.ActiveDocument.MailEnvelope .Introduction = "Please read this and send me your comments." 'Return a Microsoft Outlook MailItem object that 'you can use to send the document. With .Item .Recipients.Add "somebody@misc.com" .Subject = "Here is the document." 'The body of this message will be 'the content of the active document. .Send End Sub OR Sub WebReview() ThisDocument.SendForReview _ Recipients:="someone@example.com; amy jones", _ Subject:="Please review this document.", _ ShowMessage:=False, _ IncludeAttachment:=True End Sub Tag: Find and use a user's template directory path Tag: 113249
  - 19
    - Word. VC++6.0. How I can retrieve current number row? Hello, I have an application in VC++ 6.0. This application creates a .DOC file for Word2007. In this file I insert text and image (.bmp) This is my problem: When I insert text and/or image how I can retrieve current row? I need to get current number row. Someone can help me with sample code in VC++? Thanks Tag: Find and use a user's template directory path Tag: 113248
  - 20
    - macro help please Hello all this is my first post. I could do with your advice. I have a 20 similar documents which share many repeating comments of 1 sentence long. I have to update these old comments with new edited comments. I have created a table with two columns, containing the old comments and the corresponding new comments that I have edited. I plan to make a macro in Msword to find and replace the old comments for new, then run the macro on all 20 documents. However the process of creating the macro in itself is likely to take considerable time due to the number of comments (approx 250- 500 in total). And hereâ??s the question: Is there a way to make the macro use the table to change the old comments for the new? Or is there an easier way to do this? Any help would be greatly appreciated. If you require any other clarifications, please let me know, thanks in advance, Den. Tag: Find and use a user's template directory path Tag: 113247
  - 21
    - Problem deleting a paragraph Hi All I'm using the following vba to remove a bookmark and paragraph WordDocOnlMemAcc.Bookmarks("Line1").Select WordDocOnlMemAcc.Bookmarks("line1").Range.Paragraphs(1).Range.Delete WordDocOnlMemAcc is the object representing the document in use. If i run the code normally the bookmark is deleted, if i step through the code the paragraph gets deleted as i wanted. Any ideas what the problem/solution is? cheers Keith Tag: Find and use a user's template directory path Tag: 113243
  - 22
    - can i convert Flash file to PPT? hi, how will i edit the swf file's content in PPT?. do you have any option for the editing the content?.. and i try to access the next slide for the particular button,do u have any option for this?... Thanks Tag: Find and use a user's template directory path Tag: 113237
  - 23
    - need macro to prompt user for initials & use if statement to plug in Hi, I'm a former Wordperfect user. this was easy to do in WP, but I need to do it in Word 2003. Inside the letterhead template (probably using AutoNew?) I need the macro to 1. prompt user for the attorney's initials 2. Then use an if statement to go to bookmarks and fill in fields based on the initials. For example, the user types in 'abc'. the macro presumably would use some sort of 'if' statement: If variable 'initials' equals 'abc' then go bookmark 'name' and type 'Andrew B. Cooper.' then go to bookmark 'email' and type 'abcooper@company.com' However, if the user types in 'def', the macro would go to the 'name' bookmark and type Donna E. Foxx and then go to the bookmark 'email' and type 'defoxx@company.com' Many thanks for any assistance! Tag: Find and use a user's template directory path Tag: 113232
  - 24
    - How to Reference to the IADs object I want to connect to Active Directory and I need to use the IADs object. What is the name of the reference for that Thanks, Rich Tag: Find and use a user's template directory path Tag: 113227
  - 25
    - Building a WOrd Document I have done all of my VBA programming from Excel. Now I haev a task in Word and feel like a fish out of water! Point me in the right direction(s), please. I have a document which goes on for several pages. Let's call them "Rules 1-30" with each rule a paragraph or two. What I'd like to do is present a dialog which prompts the user to select which rules/paragraphs to include, and then present them a Word Document to save and print which has just the rules they selected. Of course there is much more involved but this would get me going. Any links to examples is appreciated. Sites to visit,, etc. ----- Of course I'd like to be able to prompt for names, dates, accounts first then insert the selected rules, then some closing info. Tag: Find and use a user's template directory path Tag: 113226

Hi -
I would like to automatically attach a template file named "AutoWork.dot"
when a user is ready to use it. The user has this file stored in their
template directory, wherever that may be. How do I write a macro that finds
a user's MS default template path (there a many users and this may vary
between users), then attaches this .DOT file to the active document?

Thanks so much,
Pia

Top

Re: Find and use a user's template directory path by Jonathan

Jonathan
Mon May 12 06:44:08 PDT 2008

"PiaD" <PiaD@discussions.microsoft.com> wrote in message
news:F775B753-67A8-43EE-874A-F2DE56979142@microsoft.com...
> Hi -
> I would like to automatically attach a template file named "AutoWork.dot"
> when a user is ready to use it. The user has this file stored in their
> template directory, wherever that may be. How do I write a macro that
> finds
> a user's MS default template path (there a many users and this may vary
> between users), then attaches this .DOT file to the active document?
>
> Thanks so much,
> Pia

Options.DefaultFilePath(wdUserTemplatesPath) is the property which returns
the path name of the user templates folder.

--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup

Top