Can I make a template like this?

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - compare and highlight differences Okay, I have two tables of contents in two separate files. A few of the entries in them may be repeats. I need to, from one of the files, run a macro that will look through every entry of that file's TOC, then compare each to the TOC of the other file (preference would be a dialogue way to point to the other file to use, but could also type into a dialogue, and worst case, can go into the macro and type in the path for each use...but would prefer to avoid having to go into macros, as others might be asked to use this who are less proficient), and finally highlight on the original file any that are found in the other file. Matches would be exact matches for the entire string except page numbers on each file would be different. Thx for any code assistance. -- Boris Tag: Can I make a template like this? Tag: 70004
  - 2
    - Creating menu option for macro Hello all, I've written a macro that I would like to have available to every computer in the office, but I'm wondering if there's a quick easy way for my coworkers to open a file and have it automatically be a part of the toolbar options. Right now, the only way appears to be to import the macro and form from the VB editor. Is there a quick way to create a menu option and install it right away? Thanks in advance and have a great one, Mike Tag: Can I make a template like this? Tag: 70001
  - 3
    - Document_open won't run if opening from browser to application This is the only case that has produced me this very inconvenient feature. If word document opens inside browser as embedded. Automating works. If word is opened and then file open is executed works fine and if .doc is douple clicked in windows explorer works fine but if word document is opened from browser, so that it actually gets opened in real word not in plug-in I cannot get Document_open() to run... Is there any way to get it work??? Tag: Can I make a template like this? Tag: 69996
  - 4
    - How to export a picture in word to CGM? Is there any filter to convert a picture in word document to CGM file. Tag: Can I make a template like this? Tag: 69992
  - 5
    - problem with sink event in word hi, i have made a COM Add-in which overrides the default behaviour of some menu items like save, print etc in the main menu. i am able to sink event of these particular menu items and i am also able to run my code in place of the default methods. but the problem is that after executing my code, the default code is also being executed which is making my code useless. how can i get around this problem? is there any way for disabling the default handlers for the intended menu items. Any help will be deeply appreciated . with regards, miany Tag: Can I make a template like this? Tag: 69991
  - 6
    - Macro for Outlook Hi I'd like to incorporate a small .exe within the Outlook interface. I guess I need a macro. Problem is I still can't write them. Could sm kindly give me a few lines to execute an .exe, the address of which is C:\Program Files\nicknameXP.exe I'm pretty sure I can incorporate the macro and put it into a menu once I have it. Thanks in advance. Dave Neve Tag: Can I make a template like this? Tag: 69990
  - 7
    - Word Input Dialogue boxes I am trying to create a word template where Dialogue boxes appear when a user opens the template that ask questions, e.g. Enter Name, Enter Address and so forth. Once the questions cycle through and the user reaches the end of them, the information is then presented at various points in the document. For example, if I created an application form, the form details would already be contained within the document, but the user would need to ask questions that open up in a dialogue box before the fields were populated. I have seen this before but have no idea how to duplicate it. Tag: Can I make a template like this? Tag: 69988
  - 8
    - automating document management Brief (hopefully) question here. Thanks in advance. My goal is to write a macro that will, after having opened a series of documents within Word, allow me to do certain actions on them (proof-reading, printing, etc. - all to be done manually) and then, upon closing, automatically save them to a different folder (on the network) while deleting them from their original local folder. In effect, therefore, part of the process of closing the document will be to move it to a new location on a network server. I've worked out virtually all of this, but I cannot seem to delete the file from it's original location. I believe that this is because, even after saving it under a new name (actually, same name but different location), there is still a tilde-preceded reference to the file in the original folder, thus seemingly indicating that the original file is open. As such, I cannot delete it until I've closed it (but once it's closed the macro that I wish to delete it will no longer be running and thus the process won't be done seamlessly and automatically. Hopefully, I'm making myself clear. Any ideas? Tag: Can I make a template like this? Tag: 69982
  - 9
    - Clear last item copied to the clipboard Hi, In searching past questions/answers, I did find this line of code to deal with clearing the clipboard, but it doesn't seem to work. Ideally, I want to clear just the last item copied to the clipboard. Any ideas? I'm using Word XP and 2003. Thanks much! CommandBars("Clipboard").Controls("Clear Clipboard").Execute in English version of Office2000. Tag: Can I make a template like this? Tag: 69981
  - 10
    - adding a page number to a header I want to add a page number to the end of the first line of a header. When I do so manually using the normal Header and Footer dialog box in Word (2003), it works just fine. When I use VBA, it seems to insert the page number into a text box or some other similar shape, which throws of the appearance of the line. The code I'm using is: Selection.Sections(1).Headers(wdHeaderFooterPrimary).PageNumbers.Add _ PageNumberAlignment:=wdAlignPageNumberRight This document is multiple sections (chapters), each with its own header(s). Any suggestions for inserting the page number without the text box? Thanks, Bert Tag: Can I make a template like this? Tag: 69976
  - 11
    - Registry via VBA I need to create a registry entry that is available in VBA no matter which user runs the application. Is there an easy way to do that? Easy or not can you tell me how? THANKS! Tag: Can I make a template like this? Tag: 69974
  - 12
    - instruction for opening a file with VBA i am a newby and i can't find the syntax, any help ? dim MyFile as string MyFile = "c:\MyDir\MyDoc.doc" open (MyFile, etc...) (it does not work as such...) Where is the error ? (I have no help file installed yet) Thank you Troubadour Tag: Can I make a template like this? Tag: 69966
  - 13
    - macro for PasteSpecial Unformatted I've tried to create a macro for paste-special -- unformatted. I used the "record new macro" option, but this is what my macro looks like. What do I need to put instead of "(wdPasteDefault)"? Sub UnformattedPaste() ' ' UnformattedPaste Macro ' Selection.PasteAndFormat (wdPasteDefault) End Sub -- Thanks, Beth Tag: Can I make a template like this? Tag: 69965
  - 14
    - Visual Basic outputs into new blank document I saw this macro in another answer. What if I want this macro to list the bookmarks in a new blank doc instead of printing it out? What would I need to change the ".printout" to? Thanks, Beth "Jean-Guy Marcil" wrote: > CMK was telling us: > CMK nous racontait que : > > > I have created 30 or so documents with at least 75 bookmarks in each. > > Is there any way I can export a bookmark list (TXT) from each > > document? I need to compare bookmarks between documents and I'm > > hoping that I don't have to type them all out. > > You could try a little macro like this one: > > '_______________________________________ > Sub TypeOutBookmarkList() > > Dim MyBkmk As Bookmark > Dim MyList As String > Dim DocList As Document > Dim CurDocName As String > > With ActiveDocument > If .Bookmarks.Count = 0 Then > MsgBox "There are no bookmarks in this document." > Exit Sub > End If > > For Each MyBkmk In .Bookmarks > MyList = MyList & MyBkmk.Name & Chr(13) > Next > > CurDocName = .Name > End With > > Set DocList = Documents.Add > > With DocList > .Range.Text = "Here is the list of bookmarks in " _ > & CurDocName & ":" & Chr(13) & Chr(13) & MyList > .PrintOut > .Close wdDoNotSaveChanges > End With > End Sub > '_______________________________________ > > -- > Salut! > _______________________________________ > Jean-Guy Marcil - Word MVP Tag: Can I make a template like this? Tag: 69956
  - 15
    - How to get progress percentage in quicksort? I would like to indicate the progress of my quicksort. I understand that, per iteration, progress can be calculated by using something like this: myRange = iUpper - iLower + 1 Progress = Round((myRange * Log(myRange))/3) + (myRange/3) ...but I can't get any sensible values from it, I am sure I am missing something major, and I confess my mathematical abilities are not up to the task. Can anyone help me to understand what I should be doing? My quicksort takes a public 2 dimensional (x,y) array and sorts just on the y part. The array is called FA, and varies in size, but here is how to call my code assuming FA has 1000 records (0-999): Call QuickSortFA(0, 999) Here is my quicksort code: Public Sub QuickSortFA(Optional iLower As Integer, Optional iUpper As Integer) Dim iLowerValue As Integer Dim iUpperValue As Integer Dim vTest As String Dim iMidValue As Integer Dim vTemp As Variant If iLower < iUpper Then iMidValue = Int((iLower + iUpper) / 2) vTest = LCase(FA(1, iMidValue)) iLowerValue = iLower iUpperValue = iUpper Do Do While LCase(FA(1, iLowerValue)) < vTest iLowerValue = iLowerValue + 1 Loop Do While LCase(FA(1, iUpperValue)) > vTest iUpperValue = iUpperValue - 1 Loop If iLowerValue <= iUpperValue Then vTemp = FA(0, iUpperValue) FA(0, iUpperValue) = FA(0, iLowerValue) FA(0, iLowerValue) = vTemp vTemp = FA(1, iUpperValue) FA(1, iUpperValue) = FA(1, iLowerValue) FA(1, iLowerValue) = vTemp iLowerValue = iLowerValue + 1 iUpperValue = iUpperValue - 1 End If Loop Until iLowerValue > iUpperValue If iUpperValue <= iMidValue Then Call QuickSortFA(iLower, iUpperValue) Call QuickSortFA(iLowerValue, iUpper) Else Call QuickSortFA(iLowerValue, iUpper) Call QuickSortFA(iLower, iUpperValue) End If End If End Sub -- Stephenc Tag: Can I make a template like this? Tag: 69955
  - 16
    - Distributing a VBA project Hi, I have a few questions on deploying a vba project to distributed users. thanks. How can I allow macros and vba to be trusted for certain templates and documents I distribute, so that the enable macro dialog doesnt appear, but not have to allow all macros. How can I programatically set a reference to ADO versions 2.5,2.6,2.7,2.8 depending on what is installed on the client. How can I have a single file with database connection and authentication details , shared by many documents and templates, so thast if the IP of the daatbase server changes I only have to update one file and not a whole set of templates. Tag: Can I make a template like this? Tag: 69953
  - 17
    - Offline Folder Program Hello, I have a tool (Master Microsoft Word template) which has been written in VBA and contains a number of macros. The tool has a feature, which allows us to save the tool to our local Offline Folders e.g. switches on Offline folders and saves. In Windows 2000/Office 2000, this feature works perfectly - however in Windows XP/Word 2003, we receive no error messages - but it doesn't do anything. In the code we are using the command line feature 'Make A&vailable Offline'. Has this changed in Windows XP or does any one have any examples how we could achieve this in XP/Word 2003 using VBA for Word? Any help would be appreciated. Thanks. Stefan_B. Tag: Can I make a template like this? Tag: 69949
  - 18
    - Make Available Offline in VBA Hello, I have a macro program which operates currently in a Word 2000/Windows2000 environment. The program allows us to store a copy of our master template as a Offline file e.g. Turns on the function 'Make Available Offline' and stores the individual file in our Offline folders. However we have recently tested it in Windows XP / Word 2003 and the function no longer works. We receieve no error messages and the code believes it's executed sucessfully. The program is running a shell and the execution command ' Tag: Can I make a template like this? Tag: 69948
  - 19
    - Determining which type of breaks are present on a page? All I need to programmatically determine if a column break is present on a page. I'm familiar with the Breaks object but can't seem to use it to get the type of break. Any help appreciated. Tag: Can I make a template like this? Tag: 69942
  - 20
    - how to choose programmaticaly the X509 cert to sign a word doc Hi dear all, I would like to choose programmatically in a VBa routine the specific X509 certificate to be used to digitally sign a document, wether it could be located either in a store either in an other location (directory) under a PKS12 file form. Has anyone help about it ? To be clear I want to avoid the prompt of the windows showing the Mystore content and define straight in the routine which certificate or PKS12 object to be used to sign the word File. Regards Herve Tag: Can I make a template like this? Tag: 69941
  - 21
    - cross references collection & instr problem Hello, Word 2002. I am attempting to loop through the cross references collection, find a match based on some text that I have already captured and insert a cross reference to the item. The code is given below. The instr command does not resolve correctly but using the debug window there should be a value found. Please help. Sub Generic_References(toref$) Dim i%, x% myHeadings = ActiveDocument.GetCrossReferenceItems(wdRefTypeHeading) x% = 1 For i% = 1 To UBound(myHeadings) If InStr(myHeadings(i%), toref$) <> 0 Then Selection.InsertCrossReference ReferenceType:=wdRefTypeHeading, _ ReferenceKind:=wdNumberRelativeContext, ReferenceItem:=i% Selection.TypeText " " Exit For 'once it is found it exits End If Next i End Sub Tag: Can I make a template like this? Tag: 69940
  - 22
    - Automation Word 2002 - Outlook 2002 Hallo! I would like to run a macro, which is saved in the Outlook file VbaProject.OTM in Modul1, with Automation out of Word. What's the code for this? Set OutAppl = CreateObject("Outlook.Application") ???? The other way round I can start from Outlook a macro, which is saved in any Word-DOT, with this code: Set WordAppl = CreateObject("Word.Application") WordAppl.Run "Projectname.Modulname.Macroname" Unfortunately "Run" does not exist in Outlook. Any help would be wonderfull!!! Thanks! Heike Pertzel / DATA 5 GmbH Tag: Can I make a template like this? Tag: 69935
  - 23
    - Size limit for item in the Document.Variables collection Is there an upper limit on the size (ie length in bytes) of a string I can insert into a document variable? Thanks, BT Tag: Can I make a template like this? Tag: 69926
  - 24
    - Macro behaves different when application is visible and when it isn't Hi I have discovered that the behavior of macros is different when Application.Visible = True and it is False. I observed some problems when running the macro. I turned the Application.Visible = True, debugged the code, corrected the errors, ran some tests without debug, but still with Application.Visible = True. As soon I changed Application.Visible = False, the resulting document, the macro generated looked different. How can I see follow thr progress in the document, as I step through statements without having Application.Visible = True? Are there some spicific behavior, that is different when Application.Visible = True and Application.Visible = False (exept that the document is/is not visible)? In my examble I want the next page to have a new set of headers. Standing at end of the document (end of page x) I use the following code: Selection.InsertBreak Type:=wdSectionBreakNextPage ' Cut link between herder/footer on page x and page x+1 ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.HeaderFooter.LinkToPrevious = False ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument ' Delete all contense in herder of page x+1 ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.WholeStory Selection.Delete Unit:=wdCharacter, Count:=1 ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument When Application.Visible = True, I have headers on page x and no headers on page x+1. When Application.Visible = False, I have No headers on page x and no headers on page x+1. It looks like there is a difference in what header/footer I am standing in after inserting a SectionBreakNextPage and then doing a ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader. Ebbe Tag: Can I make a template like this? Tag: 69923
  - 25
    - my function keys now point me to word perfect functions? help! Suddenly my function keys just bring up unrelated word perfect tips vs they used to do the default actions (e.g. F12 = Save As Function). Help? Tag: Can I make a template like this? Tag: 69920
- Next
  - 1
    - How do I set up Microsoft OneNote 2003? Everytime I try to install the program it says it cannot find an internet connection and I am connected. Why is it giving me that message? Tag: Can I make a template like this? Tag: 69919
  - 2
    - How do I set up Microsoft Word? I have microsoft word on my laptop but it asks me to type in a product key and I don't have one where can I get it from? Tag: Can I make a template like this? Tag: 69918
  - 3
    - Combo box list appears cut off from form I have a form that has 3 combo boxes. the combo box lists are filled from an access database. I am using dual screens giving one large desktop. ie a primary monitor and seconary monitor. When the macro opens the form it appears on one screen but when you click on the combo box the list appears on the other screen - totally seperated from the form. But.. if you drag the form onto the other screen, the lists fall down directly from the combobox as I would have originally expected. The lists appear on the primary screen while the form appears on the secondary screen. Would anyone have any ideas that might help Phil Tag: Can I make a template like this? Tag: 69917
  - 4
    - How can I play an embedded wave file in Word 2003 using VBA? I'm trying to make a document with embedded wave audio to get feedback on the sounds. Unfortunately I cant seem to find out how, in Word, to get the object name for an embedded ojbect. It's easy in PowerPoint, but I catn find anything similar in Word. Help! :) Tag: Can I make a template like this? Tag: 69912
  - 5
    - Merge text files to word doc We have a dos program that generates letters in a text file format. There may be 50 letters generated in a given day so there will be 50 text files. We wold like to automate the process of putting each letter into a word doc and then being able to print them off. So we will generate 50 doc files or they could be placed in a single doc file and then we print that file. Which may be better because we would have less files. How do we accomplish this task? Some good suggestions would be appreciated and if there is a document that would be nice. If it needs programming, that is no problem. I just have not had to do this before. Thanks -- FL Consultant Tag: Can I make a template like this? Tag: 69907
  - 6
    - Command Bar problems I'm new to creating commandbars via VBA. Even though I set the Temparary property to True I now have every commandbar I ever made show up in any new document. Word XP. Can you tell me what is going on and how to manage the problem? THANKS! Tag: Can I make a template like this? Tag: 69900
  - 7
    - Defining an access table via VBA (SQL DDL) Using the SQL Data Definition Language, in VBA (Word XP) can I set the newvalues to increment to create an autonumber field? If so How? THANKS! Tag: Can I make a template like this? Tag: 69899
  - 8
    - Linking Excel - Dynamic FileName My client would like to create a Word and Excel template that are linked. The Word doc will get a few calculations from Excel. The big challenge is they want to be able to save versions of each Word/Excel combo that are dynamically linked. For example, assume you start off with Temp1.doc & Temp1.xls. The first thing you would do is copy each file to a new subdirectory and rename to something like: CusPro1.doc & CusPro1.xls. What I would like to do is make the reference to the linked Excel dynamic...a function of the .doc's name. So, when the Word file is opened it will replace all linked references to <MyFileName> & ".xls" and open and update the linked fields accordingly. Is this possible? If yes, could you give some general direction? Thanks Garth Tag: Can I make a template like this? Tag: 69894
  - 9
    - document library I need to organize thousands of word documents in a online library I call document Bank. I plan to use the Word file properties to code keywords and other searcing criteria. Now, how can I retieve programmatically this data so I can prepare a simple interface for user to search the documents in this library? I am new to windows programming. chilosi-paolo@iol.it -- Paolo Tag: Can I make a template like this? Tag: 69885
  - 10
    - Random selection in table Hi I've never managed to master VBA so I was wondering if sm could give me a few lines of code. I have a table with four columns. Each cell has a word/phrase in various languages. I'd like to be able to 'test' myself with a macro that selects a word/phrase in the first column (English) at random. Would anyone be kind enough to do this for me? Thanks in advance Dave Neve Tag: Can I make a template like this? Tag: 69883
  - 11
    - Resizing Inline Shapes I've searched for help on this, but couldn't find exactly what I'm looking for. I'm pasting images as inline shapes in a Table. I want to resize all of them to the same width, say 1 inch (or the equivalent in pixels). I've tried recording a macro that does this, but am having trouble. The pasted images may vary a little in proportions, so I want to lock proportions when I do the resize. This is very easy within Word, but I'm having trouble doing it in VBA. What I'd really like is to take action on the select shape, so as soon as I paste it, I can resize it. I had a hard time getting a "selection" option to work, so I shifted to using the Inlineshapes collection. Below is the code I was trying to use. For Each ishape In ActiveDocument.InlineShapes ishape.LockAspectRatio = msoTrue ishape.Width = 86.4 'Number is what was recorded Next ishape Problem is that the aspect ratio line isn't working, and my shapes are being distorted. Any suggestions? Todd Tag: Can I make a template like this? Tag: 69882
  - 12
    - How do I enable Macros from WordX Mac to latest version of Word I have copied over the Normal file in the templates folder yet I cannot run any macros in the latest version of Word for Mac. I also have different document formatting. All documents previously formatted for WordX does not have the correct document formats. Tag: Can I make a template like this? Tag: 69881
  - 13
    - How to capture the save event ? Due to our worddocuments being saved on a server to whcih there is an webinterface, I need to be able to check the documents saved for ieelgal characters (eg. % is not acceptable when the documents later are accessed via http). Can anyone tell me whether it is possible to capture the Save/Save As event in word, check the filename for illegal characters and if any are found cancel the save with a message to the user ? Thanks.. Thomas Tag: Can I make a template like this? Tag: 69880
  - 14
    - Dynamic content from Excel to Word Bookmark after select from a combobox I'm new to vba. Hope someone can help. I have text file to stored the category id. Then my word template have a macro to call out all the company names with the same category id stored in the text file and list in a combobox. After i select a company name, it will pull the related information from excel like address, tel no, fax no...to my word bookmarks. This would help if got changes on the data. I no need to hard coded the detail in vba. If i have whole list of company names i just need to categories them into different category without to change the code and the template can be reused. -- Message posted via http://www.officekb.com Tag: Can I make a template like this? Tag: 69872
  - 15
    - how can I access html div title and id attributes in vba? In the html document below, I need to be able to access the title and id attributes of the div tags in VBA. Specifically, I need to be able to access those attributes in this div: <div title=SplSection id=4> I think I am cycling through the DIVs correctly using the HTMLDivision object, but I don't see anywhere in the VBA object model where I can retrieve the title and id attributes. Does anyone know of some code that I could use to get these values? any help is appreciated! thanks, dan <html xmlns:v="urn:schemas-microsoft-com:vml" xmlns:o="urn:schemas-microsoft-com:office:office" xmlns:w="urn:schemas-microsoft-com:office:word" xmlns:dt="uuid:C2F41010-65B3-11d1-A29F-00AA00C14882" xmlns="http://www.w3.org/TR/REC-html40"> <head> <meta http-equiv=Content-Type content="text/html; charset=utf-8"> <meta name=ProgId content=Word.Document> <meta name=Generator content="Microsoft Word 10"> <meta name=Originator content="Microsoft Word 10"> <title>[insert drug title here]</title>  <style>  </style>  </head> <body lang=EN-US style='tab-interval:.5in'> <div class=Section1> <div title=splBody id=0> <h1><a style='mso-footnote-id:ftn1' href="#_ftn1" name="_ftnref1" title=""><span class=MsoFootnoteReference><span lang=EN-GB>@</span></span></a><span lang=EN-GB>[<span class=GramE>insert</span> drug title here]</span></h1> <p class=MsoNormal><span lang=EN-GB>[<span class=GramE>insert</span> body text here]</span></p> <p class=MsoNormal><span lang=EN-GB><o:p> </o:p></span></p> <div> <div title=SplSection id=2> <h2><a style='mso-footnote-id:ftn2' href="#_ftn2" name="_ftnref2" title=""><span class=MsoFootnoteReference><span lang=EN-GB>@</span></span></a><span lang=EN-GB>CONTROLLED SUBSTANCE SECTION</span></h2> <h3><span lang=EN-GB>Main Section Text</span></h3> <p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span class=GramE><span lang=EN-GB>[ enter</span></span><span lang=EN-GB> content here]</span></p> <h3><span lang=EN-GB>Highlight</span></h3> <p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span class=GramE><span lang=EN-GB>[ enter</span></span><span lang=EN-GB> content here]</span></p> <h3><span lang=EN-GB>Observation(s)<o:p></o:p></span></h3> <table class=MsoNormalTable border=1 cellspacing=0 cellpadding=0 width=537 style='width:402.55pt;border-collapse:collapse;border:none;mso-border-alt: solid windowtext .5pt;mso-yfti-tbllook:480;mso-padding-alt:0in 5.4pt 0in 5.4pt; mso-border-insideh:.5pt solid windowtext;mso-border-insidev:.5pt solid windowtext'> <tr style='mso-yfti-irow:0;mso-yfti-firstrow:yes'> <td width=160 valign=top style='width:119.7pt;border:solid windowtext 1.0pt; mso-border-alt:solid windowtext .5pt;background:#E6E6E6;padding:0in 5.4pt 0in 5.4pt'> <p class=tablehead1>Observations</p> </td> </tr> <tr style='mso-yfti-irow:1;mso-yfti-lastrow:yes'> <td width=160 valign=top style='width:119.7pt;border:solid windowtext 1.0pt; border-top:none;mso-border-top-alt:solid windowtext .5pt;mso-border-alt:solid windowtext .5pt; padding:0in 5.4pt 0in 5.4pt'> <p class=tabletext0>[enter observation text]</p> </td> </tr> </table> <p class=MsoNormal><span lang=EN-GB><o:p> </o:p></span></p> </div> </div> <p class=MsoNormal><span lang=EN-GB><o:p> </o:p></span></p> <p class=MsoNormal><span lang=EN-GB><o:p> </o:p></span></p> <div> <div title=SplSection id=3> <h2><a style='mso-footnote-id:ftn3' href="#_ftn3" name="_ftnref3" title=""><span class=MsoFootnoteReference><span lang=EN-GB>@</span></span></a><span lang=EN-GB>CARCINOGENESIS & MUTAGENESIS & IMPAIRMENT OF FERTILITY SECTION</span></h2> <h3><span lang=EN-GB>Main Section Text</span></h3> <p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span class=GramE><span lang=EN-GB>[ enter</span></span><span lang=EN-GB> content here]</span></p> <h3><span lang=EN-GB>Highlight</span></h3> <p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span class=GramE><span lang=EN-GB>[ enter</span></span><span lang=EN-GB> content here]</span></p> <h3><span lang=EN-GB>Observation(s)<o:p></o:p></span></h3> <table class=MsoNormalTable border=1 cellspacing=0 cellpadding=0 width=537 style='width:402.55pt;border-collapse:collapse;border:none;mso-border-alt: solid windowtext .5pt;mso-yfti-tbllook:480;mso-padding-alt:0in 5.4pt 0in 5.4pt; mso-border-insideh:.5pt solid windowtext;mso-border-insidev:.5pt solid windowtext'> <tr style='mso-yfti-irow:0;mso-yfti-firstrow:yes'> <td width=160 valign=top style='width:119.7pt;border:solid windowtext 1.0pt; mso-border-alt:solid windowtext .5pt;background:#E6E6E6;padding:0in 5.4pt 0in 5.4pt'> <p class=tablehead1>Observations</p> </td> </tr> <tr style='mso-yfti-irow:1;mso-yfti-lastrow:yes'> <td width=160 valign=top style='width:119.7pt;border:solid windowtext 1.0pt; border-top:none;mso-border-top-alt:solid windowtext .5pt;mso-border-alt:solid windowtext .5pt; padding:0in 5.4pt 0in 5.4pt'> <p class=tabletext0>[enter observation text]</p> </td> </tr> </table> <p class=MsoNormal><span lang=EN-GB><o:p> </o:p></span></p> </div> </div> <p class=MsoNormal><span lang=EN-GB><o:p> </o:p></span></p> <div> <div title=SplSection id=4> <h2><a name=templateinserthere></a><a style='mso-footnote-id:ftn4' href="#_ftn4" name="_ftnref4" title=""><span class=MsoFootnoteReference><span lang=EN-GB>@</span></span></a><span lang=EN-GB>ANIMAL PHARMACOLOGY & OR TOXICOLOGY SECTION</span></h2> <h3><span lang=EN-GB>Main Section Text</span></h3> <p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span class=GramE><span lang=EN-GB>[ enter</span></span><span lang=EN-GB> content here]</span></p> <h3><span lang=EN-GB>Highlight</span></h3> <p class=MsoNormal style='mso-margin-top-alt:auto;mso-margin-bottom-alt:auto'><span class=GramE><span lang=EN-GB>[ enter</span></span><span lang=EN-GB> content here]</span></p> <h3><span lang=EN-GB>Observation(s)<o:p></o:p></span></h3> <table class=MsoNormalTable border=1 cellspacing=0 cellpadding=0 width=537 style='width:402.55pt;border-collapse:collapse;border:none;mso-border-alt: solid windowtext .5pt;mso-yfti-tbllook:480;mso-padding-alt:0in 5.4pt 0in 5.4pt; mso-border-insideh:.5pt solid windowtext;mso-border-insidev:.5pt solid windowtext'> <tr style='mso-yfti-irow:0;mso-yfti-firstrow:yes'> <td width=160 valign=top style='width:119.7pt;border:solid windowtext 1.0pt; mso-border-alt:solid windowtext .5pt;background:#E6E6E6;padding:0in 5.4pt 0in 5.4pt'> <p class=tablehead1>Observations</p> </td> </tr> <tr style='mso-yfti-irow:1;mso-yfti-lastrow:yes'> <td width=160 valign=top style='width:119.7pt;border:solid windowtext 1.0pt; border-top:none;mso-border-top-alt:solid windowtext .5pt;mso-border-alt:solid windowtext .5pt; padding:0in 5.4pt 0in 5.4pt'> <p class=tabletext0>[enter observation text]</p> </td> </tr> </table> <p class=MsoNormal><span lang=EN-GB><o:p> </o:p></span></p> </div> </div> <p class=MsoNormal><span lang=EN-GB><o:p> </o:p></span></p> </div> </div> <div style='mso-element:footnote-list'><![if !supportFootnotes]><br clear=all> <hr align=left size=1 width="33%"> <![endif]> <div style='mso-element:footnote' id=ftn1> <p class=MsoFootnoteText><a style='mso-footnote-id:ftn1' href="#_ftnref1" name="_ftn1" title=""><span class=MsoFootnoteReference><span lang=EN-GB>@</span></span></a><span lang=EN-GB> </span></p> <table class=MsoNormalTable border=0 cellspacing=0 cellpadding=0 style='border-collapse:collapse;mso-table-layout-alt:fixed;mso-padding-alt: 0in 5.4pt 0in 5.4pt'> <tr style='mso-yfti-irow:0;mso-yfti-lastrow:yes'> <td width=319 valign=top style='width:239.45pt;padding:0in 5.4pt 0in 5.4pt'> <p class=MsoFootnoteText><span lang=EN-GB>SPLDOCID</span></p> </td> <td width=319 valign=top style='width:239.45pt;padding:0in 5.4pt 0in 5.4pt'> <p class=MsoFootnoteText><span lang=EN-GB>87D5C147-728A-86DD-016D-E49C33467ADB</span></p> </td> </tr> </table> </div> <div style='mso-element:footnote' id=ftn2> <p class=MsoFootnoteText><a style='mso-footnote-id:ftn2' href="#_ftnref2" name="_ftn2" title=""><span class=MsoFootnoteReference><span lang=EN-GB>@</span></span></a></p> <table class=MsoNormalTable border=0 cellspacing=0 cellpadding=0 style='border-collapse:collapse;mso-table-layout-alt:fixed;mso-padding-alt: 0in 5.4pt 0in 5.4pt'> <tr style='mso-yfti-irow:0'> <td width=319 valign=top style='width:239.45pt;padding:0in 5.4pt 0in 5.4pt'> <p class=MsoFootnoteText><span lang=EN-GB>LOINC</span></p> </td> <td width=319 valign=top style='width:239.45pt;padding:0in 5.4pt 0in 5.4pt'> <p class=MsoFootnoteText><span lang=EN-GB>34085-1</span></p> </td> </tr> <tr style='mso-yfti-irow:1;mso-yfti-lastrow:yes'> <td width=319 valign=top style='width:239.45pt;padding:0in 5.4pt 0in 5.4pt'> <p class=MsoFootnoteText><span lang=EN-GB>SPLSECID</span></p> </td> <td width=319 valign=top style='width:239.45pt;padding:0in 5.4pt 0in 5.4pt'> <p class=MsoFootnoteText><span lang=EN-GB>87F3837F-728A-86DD-00DA-4B715F8C8818</span></p> </td> </tr> </table> </div> <div style='mso-element:footnote' id=ftn3> <p class=MsoFootnoteText><a style='mso-footnote-id:ftn3' href="#_ftnref3" name="_ftn3" title=""><span class=MsoFootnoteReference><span lang=EN-GB>@</span></span></a></p> <table class=MsoNormalTable border=0 cellspacing=0 cellpadding=0 style='border-collapse:collapse;mso-table-layout-alt:fixed;mso-padding-alt: 0in 5.4pt 0in 5.4pt'> <tr style='mso-yfti-irow:0'> <td width=319 valign=top style='width:239.45pt;padding:0in 5.4pt 0in 5.4pt'> <p class=MsoFootnoteText><span lang=EN-GB>LOINC</span></p> </td> <td width=319 valign=top style='width:239.45pt;padding:0in 5.4pt 0in 5.4pt'> <p class=MsoFootnoteText><span lang=EN-GB>34083-6</span></p> </td> </tr> <tr style='mso-yfti-irow:1;mso-yfti-lastrow:yes'> <td width=319 valign=top style='width:239.45pt;padding:0in 5.4pt 0in 5.4pt'> <p class=MsoFootnoteText><span lang=EN-GB>SPLSECID</span></p> </td> <td width=319 valign=top style='width:239.45pt;padding:0in 5.4pt 0in 5.4pt'> <p class=MsoFootnoteText><span lang=EN-GB>87F3836B-728A-86DD-003E-0EBBDBA7C8F0</span></p> </td> </tr> </table> </div> <div style='mso-element:footnote' id=ftn4> <p class=MsoFootnoteText><a style='mso-footnote-id:ftn4' href="#_ftnref4" name="_ftn4" title=""><span class=MsoFootnoteReference><span lang=EN-GB>@</span></span></a></p> <table class=MsoNormalTable border=0 cellspacing=0 cellpadding=0 style='border-collapse:collapse;mso-table-layout-alt:fixed;mso-padding-alt: 0in 5.4pt 0in 5.4pt'> <tr style='mso-yfti-irow:0'> <td width=319 valign=top style='width:239.45pt;padding:0in 5.4pt 0in 5.4pt'> <p class=MsoFootnoteText><span lang=EN-GB>LOINC</span></p> </td> <td width=319 valign=top style='width:239.45pt;padding:0in 5.4pt 0in 5.4pt'> <p class=MsoFootnoteText><span lang=EN-GB>34091-9</span></p> </td> </tr> <tr style='mso-yfti-irow:1;mso-yfti-lastrow:yes'> <td width=319 valign=top style='width:239.45pt;padding:0in 5.4pt 0in 5.4pt'> <p class=MsoFootnoteText><span lang=EN-GB>SPLSECID</span></p> </td> <td width=319 valign=top style='width:239.45pt;padding:0in 5.4pt 0in 5.4pt'> <p class=MsoFootnoteText><span lang=EN-GB>87F3839D-728A-86DD-0081-1C88BBAC87FA</span></p> </td> </tr> </table> </div> </div> </body> </html> Tag: Can I make a template like this? Tag: 69867
  - 16
    - Inserting Autotext What is the code to insert an autotext entry at the beginning of a document? Any help would be greatly appreciated. Tag: Can I make a template like this? Tag: 69861
  - 17
    - Replacing Text I have some code that is looping through all instances of a particular character style and adds some extra bits to the text. So far so good, but ... Whatever I do, the replacement text comes out as upper-case, which gives me a problem. Here is the code. Anyone any idea know how I can get the case I want? Sub CharacterStyles(sStyle) With ActiveDocument.Range.Find .ClearFormatting .Style = ActiveDocument.Styles(sStyle) .Text = "" .MatchCase = True .Replacement.ClearFormatting .Replacement.Text = "<span class='" & LCase(sStyle) & "'>^&</span>" .Forward = True .Execute Replace:=wdReplaceAll End With End Sub TIA Bob Tag: Can I make a template like this? Tag: 69859
  - 18
    - Programmatically get label sizes I'm writing an application and I need to be able to load the predefined label sizes that appear in Word's Label Options dialog box for Avery and others. Where can I get this information? Tag: Can I make a template like this? Tag: 69857
  - 19
    - CommandBars("formatting").Controls("Highlight").? From VBA how do I make the Highlight button on the Formatting toolbar go down? Thought is would be as simple and logical as: CommandBars("formatting").Controls("Highlight").state = msoButtonDown Tag: Can I make a template like this? Tag: 69854
  - 20
    - password protect a Word folder (not a file) How can you password protect a FOLDER in MS Word? (a folder and not a file) Tag: Can I make a template like this? Tag: 69847
  - 21
    - Embedding data into a word doc/dot It is possible to embed binary data into a word doc/dot? For example, I would like to embed a blob of binary data in a word doc/dot, then use vba to extract that blob at runtime. I can think of a few really hacky ways to force this to happen, but I am hoping that there is a supported way to do it... Thanks, BT Tag: Can I make a template like this? Tag: 69844
  - 22
    - Unable/disable document protection How can I use VBA to enable/disable document protection for a section of a protected document? Thanks, Keith Tag: Can I make a template like this? Tag: 69843
  - 23
    - How to build an index in word I want to build a solution in word, that makes an index of all word documents in a folder (selected by users), e.g. with filenames etc. This index should also contain information that is stored in the builtindocumentproperties and customdocumentpropertis. How can I access this information without opening every document individually (and as a result, get stuck with a slow macro) Peter Tag: Can I make a template like this? Tag: 69842
  - 24
    - Menu that is a copy of a folder structure Hi all I have a folder "D:\Docs" which contains a lot of documents, subfolder with subfolders and even more documents. I would like some code that could create me a menuitem that contains a full copy of the folder structure with the documents where the documents are menuitems and the folders are submenus. I hope that someone have this code and will send it to me. Thanks, Flemming Tag: Can I make a template like this? Tag: 69837
  - 25
    - New to Word VBA Hi all, I have written macros in Excel before but not Word...and it doesn't seem to be as easy. I need to find all instances of highlighted text in a document and copy each entry through to excel. I have managed to work out (through the recorder) how to find the highlighted text....but not sure how to count the occurances of the highlighted objects for the loop. Once I have the count I can loop through but not sure about how to export to either excel directly or to a dump file for import to excel. Thanks in advance Brad Tag: Can I make a template like this? Tag: 69833

We are using a very old DOS-based input program. The narrative portion of
the input form is very user-unfriendly, so most operators create their
narratives in Word, then paste into the input program. Unfortunately, most
Normal templates default to either Arial or Times New Roman, which are
proportional-spaced fonts, and the input program uses a mono-spaced font
(similar to Courier). It also does not recognize tabs or tables. The
operators create these nice-looking charts and tables in Word using spaces
and tabs - and they get all screwed up when they're pasted in. The QA
operators then have to spend much time reformatting everything.

I was thinking of trying to create a Word template for the operators that
would reject any font except Courier, and reject all tabs. Is this
possible?

Ed

Top

Re: Can I make a template like this? by Doug

Doug
Tue Jun 21 13:46:41 CDT 2005

There is no doubt that you can create a template in which the Normal font is
defined as being Courier. Getting your users to make use of it and also not
to use the tab key is a matter of education.

--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP
"Ed" <ed_millis@NO_SPAM.yahoo.com> wrote in message
news:OF3m5hodFHA.3452@TK2MSFTNGP10.phx.gbl...
> We are using a very old DOS-based input program. The narrative portion of
> the input form is very user-unfriendly, so most operators create their
> narratives in Word, then paste into the input program. Unfortunately,
> most
> Normal templates default to either Arial or Times New Roman, which are
> proportional-spaced fonts, and the input program uses a mono-spaced font
> (similar to Courier). It also does not recognize tabs or tables. The
> operators create these nice-looking charts and tables in Word using spaces
> and tabs - and they get all screwed up when they're pasted in. The QA
> operators then have to spend much time reformatting everything.
>
> I was thinking of trying to create a Word template for the operators that
> would reject any font except Courier, and reject all tabs. Is this
> possible?
>
> Ed
>
>

Top

Re: Can I make a template like this? by Ed

Ed
Tue Jun 21 15:22:35 CDT 2005

Well, I was hoping not to have to count on them!! The only other
alternative I could see would be to use the doc change event to evaluate the
last character entered to see if it's a tab. Checking for font might be a
bit more hairy.

Not that I *really want* to do ANY of this! But trying to idiot-proof a
process means you have to stay at least one step ahead of the idiots!

Ed

"Doug Robbins" <dkr@REMOVEmvps.org> wrote in message
news:%23FyuTGpdFHA.2664@TK2MSFTNGP15.phx.gbl...
> There is no doubt that you can create a template in which the Normal font
is
> defined as being Courier. Getting your users to make use of it and also
not
> to use the tab key is a matter of education.
>
> --
> Hope this helps.
>
> Please reply to the newsgroup unless you wish to avail yourself of my
> services on a paid consulting basis.
>
> Doug Robbins - Word MVP
> "Ed" <ed_millis@NO_SPAM.yahoo.com> wrote in message
> news:OF3m5hodFHA.3452@TK2MSFTNGP10.phx.gbl...
> > We are using a very old DOS-based input program. The narrative portion
of
> > the input form is very user-unfriendly, so most operators create their
> > narratives in Word, then paste into the input program. Unfortunately,
> > most
> > Normal templates default to either Arial or Times New Roman, which are
> > proportional-spaced fonts, and the input program uses a mono-spaced font
> > (similar to Courier). It also does not recognize tabs or tables. The
> > operators create these nice-looking charts and tables in Word using
spaces
> > and tabs - and they get all screwed up when they're pasted in. The QA
> > operators then have to spend much time reformatting everything.
> >
> > I was thinking of trying to create a Word template for the operators
that
> > would reject any font except Courier, and reject all tabs. Is this
> > possible?
> >
> > Ed
> >
> >
>
>

Top