Starting Template With Cursor Down Several Lines

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - location of text in Word Can someone point me towards a book/website that describes how the Word object model works? I'm trying to get the location of "sample text" in a Word document using the Word's Find method. How could I find the text and then display a message box like: " 'sample text' is located in paragraphs 7 and 22 of this document, which is 34 paragraphs in total." ? Thanks for your help. Tag: Starting Template With Cursor Down Several Lines Tag: 56977
  - 2
    - Best way to parse/walk-thru WORD document using VBA? Hi, I have a large WORD document that I need to parse and extract the information from. The information is formatted by sections, headers and tables. I have only briefly visited the object hierarchy for WORD and so am looking for insight into just how best to walk this document and extract the information. For example, is there a way to move from cell to cell in a table? Thanks much Tag: Starting Template With Cursor Down Several Lines Tag: 56976
  - 3
    - Best way to parse/walk-thru document using VBA? Hi, I have a large WORD document that I need to parse and extract the information from. The information is formatted by sections, headers and tables. I have only briefly visited the object hierarchy for WORD and so am looking for insight into just how best to walk this document and extract the information. For example, is there a way to move from cell to cell in a table? Thanks much Tag: Starting Template With Cursor Down Several Lines Tag: 56975
  - 4
    - What program renders Word 2000 documents unalterable? What program renders Word 2000 documents unalterable? Tag: Starting Template With Cursor Down Several Lines Tag: 56969
  - 5
    - Counting which table you're in I'm using a doc w/multiple tables. How can I tell from the current selection point which # table the user is in? Tks. Tag: Starting Template With Cursor Down Several Lines Tag: 56968
  - 6
    - Open document in WordPad? I don't have any helpfile creation tools and I would like to make a helpfile approximation. I have placed a questionmark icon on userform; clicking on it opens a document. However, I would like to open that document in Wordpad since, without any toolbars, it almost looks like a helpfile. Can I do this programmatically? If not, are there any other solutions? Thanks for any help. Tag: Starting Template With Cursor Down Several Lines Tag: 56965
  - 7
    - new line how do i program a "enter" into a macro to make it go to the next line? thanks Tag: Starting Template With Cursor Down Several Lines Tag: 56964
  - 8
    - formatting symbols? I am using range.text to parse out text in a table to eventually throw into Excel, but I keep getting the text with symbols either in front or in back of (or both) it. I assume these are formatting symbols, and I would like to either understand what they mean, be able to change them, or strip them off. Any ideas? Tag: Starting Template With Cursor Down Several Lines Tag: 56962
  - 9
    - How do I get a macro to run when I open a word document I have a macro that updates a date field so that it calculates a date in the future. I want to get the macro to run whenever the document is opened. Tag: Starting Template With Cursor Down Several Lines Tag: 56961
  - 10
    - wd97 endnotes Does anyone know how to access the text of an endnote? I would have thought that it would be something like Myendnotetext = activeDocument.endnote(i).text but that doesn't work. Any help would be appreciated. Thanks, Dave Tag: Starting Template With Cursor Down Several Lines Tag: 56960
  - 11
    - How to view word documents in XP I've recently got a new computer, which runs with XP. My old computer had Office 2000. My new computer won't let me view the documents, is there a way around this? Tag: Starting Template With Cursor Down Several Lines Tag: 56957
  - 12
    - Opening the Folder dialog box? I would like to select a folder instead of files from VBA Word. I know that the wdDialogFileOpen will only open files, but I would like a way of just returning a directory path. Is there any such dialog that could just retrieve the directory like those found in installation kits? Thanks, Tag: Starting Template With Cursor Down Several Lines Tag: 56952
  - 13
    - How do I parse a Word document with a programming language? How I really want to do is find a table in a word document and put the fields into an Excel spreadsheet. Perl would be nice to use since I am trying to learn that language, but C, C++, TCL or VB.NET will work. Tag: Starting Template With Cursor Down Several Lines Tag: 56948
  - 14
    - Find Hi, How to finding a word in a text box using VBA? In recording a macro Word found the word in the text box but running the macro Word does not find the word. Selection.Find.ClearFormatting With Selection.Find .Text = "test" .Replacement.Text = "" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With Selection.Find.Execute can anyone help me to achieve this. regards Tag: Starting Template With Cursor Down Several Lines Tag: 56947
  - 15
    - MS WORD 2000, All of my Menus , Toolbar, and formated is removed . I am puzzled about this problem. My ms word 2k, does not display any formating of menu's when adocument is opened. I have tried Uninstall & reinstalling the MS OFFICE Suite comletely. I have tried installing to another Drive attached to the same Win2003 Server. I have tried removing the Normal.dot File and reinstalling from a system that works using the same Office 2k CD Rom. I have tried removing the entry from the registry and Deleting the intire directory and reinstalling and still all my other MS Office Suitre apps come up fine but MS WORD Still has no menu's , no Tool Bar, Nor formating nothing but and area to type text. I have how ever realized that some minipulation can be done using the crtl-Keys , but this is stil limited and cumbersome, so its not what I would like to do . Is there any one who has ever had a simular problem and , what did you do to restore the defaults. The MS Document I found on the Web assumes that you still have a menu Option to go to customize, but in my case there is nothing available to use to get to these tools , Options at all ? What a trtip, this is a good one for the most of us, got me stumped for 3 Days and still no resolution. Now I need help, or should I just go back to Wordstar, of Samna ...Ha Ha.. just kidding but that tells you how long I have been dealing with thses systems and this one has got me stumped, along with a few other Die hards... Any help is Greatly apreciated, and will share what I foudn about the Email that can not be deleted from MS Outlook... that's a tricky one two, I noticed a lot of people had a multitude of Idea's but none of them worked. Cliff Tag: Starting Template With Cursor Down Several Lines Tag: 56944
  - 16
    - Selection.find I am attempting to find some text (which needs to be replaced). The macro used Selection.Find. Because the text is actually contained in a text box the macro does not find it. Is there any way of forcing the find to look in the text boxes as well (or select the text box before execution). Carl. Tag: Starting Template With Cursor Down Several Lines Tag: 56943
  - 17
    - VBA code not deleting macros I think I have a comparable problem to "Howard Kaikow" I'm using an "autoexec" macro to check & update a suite of macros if a later version exists Most of the code is OK, but I repeatedly find that a couple of modules won't delete, and if I can't delete them I can't copy the new version across Simplified routine is (excuse any layout errors) For all "macros & forms" if new version > old version then call DELMACRO(macroname) end if call addnewversion Next "macro & forms" Sub DelMacro(ThisMacro) Application.OrganizerDelete _ Source:=NormalTemplate.fullname _ , Name:=ThisMacro _ , Object:=wdOrganizerObjectProjectItems End Sub Most of the time it works, but for two macros called "Get WorkingDirectoryCode" & "GetPrinterModelCode" it won't delete them, so they then won't add. I've tried a different name (GWDC & GPMC) but that doesn't make any difference I've even tried capitalising the names just in case there was a case (capital vv lower) issue involved like in some library code, but that doesn't make any difference I can always delete them using the VBA project window, but can't see how that can be applied in normal VBA code execution. Once the program's crashed on the copy (can't copy over existing file) they've gone from the project list, but then it's a bit late. Secondly, I've just moved up to Office 2K3 and find that changes to the Autoexec macro don't always seen to be saved when I exit Word. When I restart work sometimes an earlier version of the Autoexec macro runs and it's becoming rather frustrating to troubleshoot the Macrodelete problem when you find the latest code you're trying has disappeared Any ideas on either issue?? Tag: Starting Template With Cursor Down Several Lines Tag: 56942
  - 18
    - Selecting Inlineshape after PasteAndFormat L.S. Due to demo of an application I have to replace about 10.000 inlineshapes (special type, ISIS/Draw) in 4000 Word doc's by inlineshapes randomly selected from a an example Database with these drawings. Problem: it is easy to replaCe the Inlineshape (always the first and only one withing a Bookmark) but I seem to be unable to select it again after replacing after replacing. And that is what I need to restore the bookmark. Can someone help me out? I'm using WordXP (also called Word 2002) Here's my code: Sub ReplaceSketchInDoc(ActiveDoc As Document, BM As String, SkType As enumSketch_Type) Dim iShp As InlineShape Dim rgPlace As Range Dim ScaleFactor As Single Dim OldWidth As Long Dim NewWidth As Long Dim OldHeight As Long Dim NewHeight As Long On Error GoTo Error_ReplaceSketchInDoc Set rgPlace = ActiveDoc.Bookmarks(BM).Range ' insert the Sketch file from the clipboard after creation with CreateSketchFile) Call CreateSketchFile(SkType) With rgPlace.InlineShapes(1) .Select .Range.PasteAndFormat (wdFormatOriginalFormatting) End With !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! ! till here: everything is going fine, but ! the next statement goes wrong !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!! Set ihsp = Selection ! this does not work, there seems to be no selection!!! ' make sure bookmark covers sketch ActiveDoc.Bookmarks.Add Name:=BM, Range:=iShp.Range Exit_ReplaceSketchInDoc: Exit Sub Error_ReplaceSketchInDoc: Call Err.Raise(Err.Number, "ReplaceSketchInDoc", Err.Description) Resume Exit_ReplaceSketchInDoc End Sub Thanks in advance, Hans Troost Tag: Starting Template With Cursor Down Several Lines Tag: 56941
  - 19
    - Failure to delete a toolbar A bit over 3 years ago, I posted a problem that I, and several others, have reported in these newsgroups. See http://www.standards.com/OhMyWord/VBABugsFeatures.html#DeleteToolbar. I first noticed the problem in Word 2000, then Word 2002. Today, I confirmed that the problem also exists in Word 2003. When such a problem persists for so many Word versions, it means that MSFT is really screwing up by not fixing the problem, or there was a fundamental (mis)design error in Word 2000 and beyond. I do not recall whether the problem exists in Word 97, nor do I really care. Anybody know of a work around? -- http://www.standards.com/; See Howard Kaikow's web site. Tag: Starting Template With Cursor Down Several Lines Tag: 56936
  - 20
    - Print macro which automatically identifys default printer Problem - I have several printers with different numbers of trays (some 2, some 3) and they're diferent types they call their trays different names. I create print macros to print letter head (first page from top tray, other pages from lower tray, then entire copy on white for file) until now I've been creating print macros for each type of printer but it's getting time consuming to amend them and visit each PC to load normal on. Any ideas how to write a print macro which can detect which printer you're connected to and print leterheads? Tag: Starting Template With Cursor Down Several Lines Tag: 56935
  - 21
    - How do I number equations in a document using field codes I wish to number a series of equations in a document and cross reference them later however, I do not want to have a caption before the equation (i.e. NOT equation x.x) and wish to include the chapter number in the reference. I also want the number to appear to the right of the equation, not underneath or above. Cheers Tag: Starting Template With Cursor Down Several Lines Tag: 56933
  - 22
    - why is there a difference between macro operation and button oper. Recording a macro that finds the next change (when track changes are on) gives the following in the VBA code: WordBasic.NextChangeOrComment in some documents running this macro picks up changes that do not appear to be changes and which are not picked up by clicking the button Tag: Starting Template With Cursor Down Several Lines Tag: 56931
  - 23
    - Problems when opening word template on web server Hi! My problem is that I have a word template located on a webserver. The clients open this through a webpage that has a link to a shortcut (.lnk) to the template. (this solution is recomended by MS , http://support.microsoft.com/default.aspx?scid=kb;en-us;278627) . On some computers this works fine, the templates create a dialogue and everything is OK. But on some computers , after the "File download" dialogue, nothing more happens. A file download progress dialogue flashes by and then nothing happens. Can this be some security issue? On one computer this solution works fine if the webserver is located on the intranet, but not when he tries to do the same thing over the internet. Help on this matter is highly appreciated! Tag: Starting Template With Cursor Down Several Lines Tag: 56927
  - 24
    - Find & Replace Question Hi all, Here's what I need to be able to do: Sample Text: Mary had a little lamb, little lamb, little lamb; Mary had a little lamb (forgot what comes after) Now, assuming that all the 'lamb's are in Bold, I need to Find and Replace all Bold words and tag them appropriately. So, the answer would be: Mary had a little <BOLD>lamb</BOLD>, little <BOLD>lamb</BOLD>, little <BOLD>lamb</BOLD>; Mary had a little <BOLD>lamb</BOLD> (forgot what comes after) Now, if I find and Replace and use Bold Formatting, the original text is taken text away, leaving me with this: Mary had a little <BOLD></BOLD>, little <BOLD></BOLD>, little <BOLD></BOLD>; Mary had a little <BOLD></BOLD> (forgot what comes after) So, how do you think I should be able to code this? Please don't tell me to go through the text, word by word... Thank you for your suggestions and for reading. Vince Tag: Starting Template With Cursor Down Several Lines Tag: 56925
  - 25
    - Linking Excel files that could have a variable path name? I am working on a large document with multiple linked spreadsheets. This document and spreadsheet will always have the same file names but will be located in different directories depending on the user. I thought I could do an ASK field then a REF field but it does not recognized the REF field inside the quotes of the LINK field. I do know that all the files will be in the same directory so if I could tell it just to look where the Word document is for all the spreadsheets it would work. Does anybody have any other ideas or help me figure out to get the REF field inside a LINK field to work? Tag: Starting Template With Cursor Down Several Lines Tag: 56920
- Next
  - 1
    - How to move the active document? SaveAs does not change ActiveDocument How does one move the active doc; this issue is givimg all sorts of problems. I've tried several solutions but not work reliably. For instance, I thought I'd perform a SaveAs from within Word; that should move the Active Document pointer or whatever it's called to the newly saved doc; the orig doc should be closed. Then, use Kill to delete the orig file. This approach works fine on some machines, on other machines it fails with error 70 permission denied. The orig file is still open on some machines (but not others). On those machines I can see that the file exits in both locations, and the open file is the orig file. Why is word so inconsistent with this fundemental behavior? Via menu choices, in all cases SaveAs moves the current file to the "new" file. I am programming in Word 2002 and the machines that have this issue are Word 2000 - but the saveas behavior is so basic that I can't imagine that it's deliberately different programming this in the two versions. I have doevents all over the place. And, if I try to close the word doc in it's original location, I error out with "Bad File Name", when I can see the file is still at that location. Frankly programming word is a real pita. Handy when it works but terrible getting it there. Tag: Starting Template With Cursor Down Several Lines Tag: 56919
  - 2
    - How to move the active document? SaveAs does not change ActiveDocument How does one move the active doc; this issue is givimg all sorts of problems. I've tried several solutions but not work reliably. For instance, I thought I'd perform a SaveAs from within Word; that should move the Active Document pointer or whatever it's called to the newly saved doc; the orig doc should be closed. Then, use Kill to delete the orig file. This approach works fine on some machines, on other machines it fails with error 70 permission denied. The orig file is still open on some machines (but not others). On those machines I can see that the file exits in both locations, and the open file is the orig file. Why is word so inconsistent with this fundemental behavior? Via menu choices, in all cases SaveAs moves the current file to the "new" file. I am programming in Word 2002 and the machines that have this issue are Word 2000 - but the saveas behavior is so basic that I can't imagine that it's deliberately different programming this in the two versions. Frankly programming word is a real pita. Handy when it works but terrible getting it there. Tag: Starting Template With Cursor Down Several Lines Tag: 56917
  - 3
    - Showing bookmark names I have created a form in Word 2003 which has both fields and bookmarks, I know how to show where the bookmarks are, but is there any way to show the names of the fields and bookmarks on the page? Tag: Starting Template With Cursor Down Several Lines Tag: 56916
  - 4
    - How do i create a document wizard? I'm working on a publication through microsoft word 2003. I want to be able to have the same basic format for a document everytime i open it, but i need a wizard at the beginnin that will ask for Date, Issue number, etc...then will automatically plug that info into the template. Help! Tag: Starting Template With Cursor Down Several Lines Tag: 56907
  - 5
    - Word VBA book recommendations I would like to buy a Word VBA book. In looking at Amazon, the "Word VBA 2000 Developers Handbook" (something like that) seems to be the best. Would anybody agree or disagree? Also, all the WOrd VBA books are a little dated. Does anybody know if any new editions are slated to come out? If I am running Word 2003 on XP Pro, what kind of problems may arise from using a book meant for Word 2000? Thanks for any responses. Tag: Starting Template With Cursor Down Several Lines Tag: 56903
  - 6
    - Project Unviewable Word 2000 Recently, I have been getting a lot of errors in the VB editor that state something along the lines of "Project is unviewable." If I simply close the document and re-open it, I can get back into the project. This happens 4 or 5 times a day, and it's REALLY annoying. What causes this, and how can I fix it for good? --Tom Tag: Starting Template With Cursor Down Several Lines Tag: 56886
  - 7
    - Run-time Error '4608' Value Out of Range Word 2000 This has been driving my nuts for the last couple of days. I have the code below in a set of fairly extensive macros. This code has been working flawlessly for months. Recently, I've been working on adding some error trapping to the project, but I haven't touched this particular subroutine. Now when I run this code it sometimes gives me the following error: Run-time Error: '4608' Value Out of Range Here's the code (I've marked the line that causes the error with ">>>"). ***************** Sub PasteLocate() ' Checks for the existance of the required bookmarks and document variables. CheckRequiredBookmarks ' Pastes the Locate into the document. Selection.EndKey Unit:=wdStory Selection.Paste ' Bookmarks the record in the document using the MIN or NIC as part of the bookmark name. Selection.GoTo what:=wdGoToBookmark, Name:="StartOfRecord" Selection.Extend Selection.EndKey Unit:=wdStory BookmarkName = "Record" & RecordNumber If Override Then BookmarkName = "Override" & BookmarkName ActiveDocument.Bookmarks("\Sel").Copy BookmarkName ' Finds the MIN or NIC in the selected text, creates a range covering that location, and ' bookmarks the range using the MIN or NIC as part of the bookmark name. StartPos = InStr(1, Selection.Text, Chr(13) & RecordType & "/", vbTextCompare) + 4 RangeStart = Selection.Start + StartPos RangeEnd = RangeStart + RecordNumberLength >>> Set RecordNumberRange = ActiveDocument.Range(Start:=RangeStart, End:=RangeEnd) <<< BookmarkName = RecordType & RecordNumber If Override Then BookmarkName = "Override" & BookmarkName ActiveDocument.Bookmarks.Add Name:=BookmarkName, Range:=RecordNumberRange ' Finds the MRI in the selected text, creates a range covering that location, and ' bookmarks the range using the MRI as part of the bookmark name. StartPos = InStr(1, Selection.Text, MRITag, vbTextCompare) + 3 RangeStart = Selection.Start + StartPos EndPos = InStr(StartPos + 1, Selection.Text, " ", vbTextCompare) - 1 RangeEnd = Selection.Start + EndPos Set RecordNumberRange = ActiveDocument.Range(Start:=RangeStart, End:=RangeEnd) BookmarkName = "MRI" & cbMRI If Override Then BookmarkName = "Override" & BookmarkName ActiveDocument.Bookmarks.Add Name:=BookmarkName, Range:=RecordNumberRange ' Collapses the selection, inserts a paragraph, and redefines the StartOfRecord bookmark. Selection.Collapse (Down) Selection.TypeParagraph ActiveDocument.Bookmarks("\StartOfSel").Copy "StartOfRecord" BottomOfDocument = True End Sub ***************** I've checked the values of RangeStart and RangeEnd, and they are well within the block of text being processed (i.e. Neither value is beyond the end of the document or anything like that). I also tried putting RecordNumberRange in the declarations, but that didn't make any difference one way or the other. Curiously, the second Set RecordNumberRange command has never caused an error. The bizzare thing is that the error doesn't happen all the time. For the last two days, I've been getting the error about 90% of the time. But just now I completed a test that ran this subroutine more than 50 times, and I didn't get a single error. The thing is, I didn't change anything! The code that just ran 50+ times without an error is the SAME code that was previously causing an error 90% of the time. There were literally NO changes. Now, I could just trap this error with On Error Resume Next, but I would prefer to know what's causing of the error. One thing that I am wondering about is the document itself. I've been using the document for months--adding and deleting large section of text, creating the deleting bookmarks, running my code and then undoing everything, etc. I'm wondering if the document is becoming corrupt, and maybe the code needs to be copied to a fresh document. Is that possbile? Another thing that I'm wondering about is the fact that I've added more modules. Initially, all the code was contained in the ThisDocument module. With the addition of the error trapping features I've been developing, I've added 2 more modules--one that declares a couple of public variables, and one that contains and Option Explicit statement and declares a function for passing information from the Err object to a button on a custom form. Could it be that something about one of those modules is causing the problem? Any ideas? --Tom Tag: Starting Template With Cursor Down Several Lines Tag: 56885
  - 8
    - Updating text boxes..... Hi Folks, On my form, users can enter data directly into a text box, or they can past it into the text boxs from the clipboard data with a special "Paste from 3rd Party App" button that I have done. When they type the data in themselves I have a little Procedure : Private Sub TextBox1_Change() TextBox1 = StrConv(TextBox1, vbProperCase) End Sub To make sure the names are property formatted etc. The problem is that when I : "Paste from 3rd Party App" none of the formatting is applied to the text boxes! How would I go about getting them all updated? The only way I came up with was to maybe have a new procedure that updated every textbox every time it was ran, so something like: Sub Update() TextBox1 = StrConv(TextBox1, vbProperCase) TextBox2 = StrConv(TextBox1, vbProperCase) TextBox3 = StrConv(TextBox1, vbProperCase) TextBox4 = StrConv(TextBox1, vbProperCase) End Sub and also still have; Private Sub TextBox1_Change() Call Update End Sub Private Sub TextBox2_Change() Call Update End Sub Private Sub TextBox3_Change() Call Update End Sub Private Sub TextBox4_Change() Call Update End Sub But their must be a better way? Thanks -Al -----= Posted via Newsfeeds.Com, Uncensored Usenet News =----- http://www.newsfeeds.com - The #1 Newsgroup Service in the World! -----== Over 100,000 Newsgroups - 19 Different Servers! =----- Tag: Starting Template With Cursor Down Several Lines Tag: 56875
  - 9
    - word installed. create spellcheck icon in IEbrowser for highlited. word installed. create spellcheck icon in IEbrowser for highlighted text. Tag: Starting Template With Cursor Down Several Lines Tag: 56865
  - 10
    - dashes in phone nos I am automating word from access, office 2000 winxp My access table contains 2 phone numbers and a social security number (500) 222-2222, (500) 333-3333, 444-44-4444 I am storing these values in the tables with the dashes and parantheses in place, but when I use the value and set it in a bookmark in an msword doc, the dashes and parens are not displayed. How can I remedy this, please? Thank you Joanne Tag: Starting Template With Cursor Down Several Lines Tag: 56857
  - 11
    - Updating the screen MS Word 2003 A macro contains the following statements: ActiveDocument.ShowGrammaticalErrors = False ActiveDocument.ShowSpellingErrors = False After issuing the above two statements, what statement will update the screen? The colored underlining remains in the currently-viewed text. Only after I scroll the document so that a new area of text is displayed is the colored underlining gone. (If I scroll one-half the screen height, the coloring remains in the previously displayed area, and is gone only from the newly displayed area.) Thanks, Fred Holmes Tag: Starting Template With Cursor Down Several Lines Tag: 56854
  - 12
    - Less View in Find I always want the "Less view" in find (and not be given the advanced find criteria unless I ask for it). Here's the code I'm trying, unsuccessfully: SendKeys "%{l}" (or) SendKeys "%{L}" Please help, guys. TIA Tag: Starting Template With Cursor Down Several Lines Tag: 56850
  - 13
    - Bookmarks from access I'm trying to get an example from a book (Wrox - Accesss 2002 VBA) running. It's supposed to insert text into a word document at pre-set bookmarks. However it keeps crashing at the line: m_objDoc.Bookmark(strBkmk).Select In the InsertTextAtBookMark prodecure. The error message is: Run-time error '91'; Object variable or With Block variable not set I've included the full code below. Any help greatly appreciated. ------------------------------------------------------------------- Option Compare Database Option Explicit Private Const m_strDIR As String = "C:\BegVBA\" Private Const m_strTEMPLATE As String = "Order.dot" Private m_objWord As Word.Application Private m_objDoc As Word.Document Public Sub CreateOrderLetter(recSupp As Recordset, recItems As Recordset) ' instantiate the word application and create a new ' document based upon the supplied template Set m_objWord = New Word.Application Set m_objDoc = m_objWord.Documents.Add(m_strDIR & m_strTEMPLATE) ' insert the customer details InsertTextAtBookMark "ContactName", recSupp("ContactName") InsertTextAtBookMark "CompanyName", recSupp("CompanyName") InsertTextAtBookMark "Address", recSupp("Address") InsertTextAtBookMark "City", recSupp("City") InsertTextAtBookMark "State", recSupp("State") InsertTextAtBookMark "ZipCode", recSupp("ZipCode") InsertTextAtBookMark "Country", recSupp("Country") ' now the order items InsertItemsTable recItems ' print the order, not using background printing ' otherwise code continues and we try to quit whilst still printing m_objWord.PrintOut Background:=False ' now save and quit m_objDoc.SaveAs FileName:=m_strDIR & recSupp("CompanyName") & _ " - " & FormatDateTime(Date, vbLongDate) & ".DOC" m_objDoc.Close m_objWord.Quit ' clean up Set m_objDoc = Nothing Set m_objWord = Nothing End Sub Private Sub InsertTextAtBookMark(strBkmk As String, varText As Variant) ' selects the bookmark and inserts the text m_objDoc.Bookmark(strBkmk).Select m_objWord.Selection.Text = varText & "" End Sub Private Sub InsertItemsTable(recR As Recordset) Dim strTable As String Dim objTable As Word.Table ' create columns separated by tabs ' it's easier to convert this to a table than to create ' a table and worry about the table cells strTable = "Item" & vbTab & "Quantity" & vbCr recR.MoveFirst While Not recR.EOF strTable = strTable & recR("Name") & vbTab & _ recR("ReOrderPoint") & vbCr recR.MoveNext Wend ' now insert the text, convert it to a table, and format it InsertTextAtBookMark "Items", strTable Set objTable = m_objWord.Selection.ConvertToTable(Separator:=vbTab) With objTable .AutoFormat Format:=wdTableFormatClassic3, AutoFit:=True, _ ApplyShading:=False End With ' clean up Set objTable = Nothing End Sub Tag: Starting Template With Cursor Down Several Lines Tag: 56848
  - 14
    - Mail Merge Disaster I need to automate a mail merge from a form in my access 2002 database. I've tried importing the code from a recommended site http://www.attcanada.net/%7ekallal.msn/msaccess/msaccess.html but keep getting an error - 424 -object required, something to do with the line ... Set WordDoc = wordApp.Documents.Add I have no coding experience but i need this to work - any help would be greatly appreciated!! Thanks Tag: Starting Template With Cursor Down Several Lines Tag: 56844
  - 15
    - Any way to "size" an INCLUDEPICTURE when it's included? Hi, I'm using Mail Merge to include pictures from a directory like so: { INCLUDEPICTURE "{ MERGEFIELD thePath }" } Is there any way I can set the size of the included picture apart from by scaling it on disk when I write it in the first place? I would gain a lot of speed by not having to scale the jpegs as I write them. What I would like to do is something like this: { INCLUDEPICTURE " { MERGEFIELD thePath }" \Width=120 \Height=256 } Is anything like this possible? Thanks. Robin Tag: Starting Template With Cursor Down Several Lines Tag: 56837
  - 16
    - How do I create a pathname that doesnt disappear when I email my . Hi! Trying to create a form of macro to put my pathnames of documents in the footer. Each time I get something created and email the document out the end user gets the pathname as either a code or in their temporary internet folder. Is there a way to put a pathname on a document so that it is forced to stay there when emailled (other than manually typing!!!). Hope someone can help! Tag: Starting Template With Cursor Down Several Lines Tag: 56835
  - 17
    - Tab 'colors' for Multipage forms I have created several user forms with Multipage objects. I have a nice, soft 'background picture' to give texture to the multipage, but the picture does not run into the tabs. The result is a blotchy looking screen. Is there anyway to cause th tabs to look like the page without the page being a simple solid color? Thanks, Roy Tag: Starting Template With Cursor Down Several Lines Tag: 56832
  - 18
    - Word 2K Just Blinks When Printing I am using Word 2K on a W98 machine and have had it installed for years. It just started this problem. When I attempt to print, the border around the Word application blinks. It never prints and I have to end-task to force it to stop. This does not occur with all documents. Any suggestions? Thanks. IC Tag: Starting Template With Cursor Down Several Lines Tag: 56817
  - 19
    - How to place text blocks from another program? I'm running Word from an MS Access app, iterating through a file of people and information on them, and formatting the Word doc as I go. No problem just plugging in names, addresses, comments as long as I start at the top and work down. What I'd like to do, however, is place a block of text on the left of the page that contains the person's mailing address - and then place another block of text on the right side of the page that contains the person's telephone numbers and email addresses. The two blocks would be of varying sizes/lengths for each person and different sizes/lengths between themselves. Each block is already formatted (line feeds and all) in the input recordset. Is there a way to do this without parsing each block into separate lines, counting the lines and then tabbing across the doc? I'm not looking for a total solution - just an idea of what's possible and maybe a few keywords to start searching on. -- PeteCresswell Tag: Starting Template With Cursor Down Several Lines Tag: 56815
  - 20
    - Save As UserName Hi. Thanks for your reply, however, I'm not sure exactly what you are saying. I understand that the username on your example is "administrator" but how would I get that by using code? I'm new to this VBA stuff... The normal template is saved in each staff members personal drive (P:\). The personal drives are named \\alchemy\private\(username) but I am unsure how to get that username... I appreciate your help.. Thanks >-----Original Message----- >There are some very involved ways to derive the username. >However, the easiest way is to parse it from where the >normal template is stored. The following will give you >the bona fide username, not something that was a shortcut >in Word itself (unless the normal template was re- directed >to a non-default folder). > >strPath = Application.NormalTemplate.Path > >So, on my computer, this is what it provides: > >C:\Documents and Settings\Administrator\Application >Data\Microsoft\Templates > >So, you can parse what's between documents and settings\ >and \applcation data. > >Hope this helps. > >dz > >>-----Original Message----- >>I have a template add-in which I need to save with a >>username. The template automatically counts what >templates >>users access. >> >>The code I have is: >>'<----------------------Start of Module Code------------- - >- >>-------------> >>Option Explicit >> >>Public gccTemplateUsageCounter As clsCounter >> >>Public Sub AutoExec() >>Const cCounterFileFullPath As String >>= "M:\TECHNOLOGY\TemplateUsage\CountUsage\count_usage.cnt " >> >>' Instantiate class to perform template usage counting >> Set gccTemplateUsageCounter = New clsCounter >> >>' Hook up event handler to that we can catch application >>level events >> Set gccTemplateUsageCounter.appWord = Word.Application >> >>' Log the existing counter file (if any) >> gccTemplateUsageCounter.Initialise >cCounterFileFullPath >>End Sub >> >>(There is a lot of class modules code with this as well - >>let me know if you need to view that). >> >>The Line: >>Const cCounterFileFullPath As String >>= "M:\TECHNOLOGY\TemplateUsage\CountUsage\count_usage.cnt " >>is where I need to put the username, e.g. >>\CountUsage\username_count_usage.cnt >> >>Any ideas? Do you need to see the full code? I am >>running Word 2002. Thanks in advance. >>. >> >. > . Tag: Starting Template With Cursor Down Several Lines Tag: 56814
  - 21
    - Bookmarks I am running word from access - using msoffice2000, winxp I have 22 docs with bookmarks in them. I need to fill in the bookmarks from my access app. Everything works as expected on 18 of the 22 files. The other 4 files cause all kinds of problems. I have set the recordset to just access these 4 files, wondering if I was over-taxing the whole system, but even if they are the only 4 files, they cause problems. Here are the problems. If I try to do all 22 files, I get the 18 files correct, then the app stops, everything is in 'not responding' and I have to shut it all down. If I try to do just the 4 rogue files, the routine that sets the bookmarks gets the 4 files in a recordset, opens them, skips over the portion of the routine that sets the bookmarks.text and closes them back up, this time without any 'not responding' system problems. I have checked the docs, and all bookmarks are actually present. Using debug.print, I see the routine set all 18 files but then it fails on the first of these 4 files. The debug.print suggests that the app is working on the files in an ascending alpha sort, and it does the good 18, and then crashes on the first of the 4 bad files, which is located in the middle of the alpha sort. I am dumbfounded at this action, but am wondering if I perhaps have four corrupted files. I thought I would beg some information before just jumping in and recreating these files. Is there something I can do about this short of recreating the files? Thanks for your expertise. I appreciate it a great deal. Tag: Starting Template With Cursor Down Several Lines Tag: 56797
  - 22
    - Ready to give up... I have created 2 Word documents. Both have radio buttons and text boxes. In one I used VBA controls and the other I used Web Controls. Both are protected. I sent both to another computer as attachments. The operator at the other computer opened both attachments but cannot click on any of the radio buttons and have it register. He is uable to enter any text in the text box. In clicking on the text boxes and radio buttons the properties dialog box opens. What is going on? How difficult is it to create a user form and actually have it work? BTW I do not know if it makes a difference but my OS is XP and the other is W98. Mike C. Tag: Starting Template With Cursor Down Several Lines Tag: 56796
  - 23
    - Printing to paper trays I have posted this problem to the PAge Layout forum but I first encountered it with VBA. I am having a problem with paper trays, re the following: - in a new document type some text, put in a next page section break and type some text on page 2 (section 2) - In File, Page Setup choose Tray One for first page and Tray Two for the other pages, making sure you've got apply to Whole Document seleceted - if you then print the document, both pages come from tray 1!!. If you look in File Page, Setup again it has first page from tray 1 and other pages from tray 2 for This Section, but if you change it to Whole Document no trays are selected. If seems to print the first page of each section from tray 1 and the rest of the pages from each each section from tray 2. As each section only has 1 page they all print from tray 1. Is this true and how do I get around it? This VBA code seems to do the same thing as manually changing the trays in Word: ActiveDocument.PageSetup.FirstPageTray =somecode working out tray ActiveDocument.PageSetup.OtherPagesTray = somecode working out tray Tag: Starting Template With Cursor Down Several Lines Tag: 56794
  - 24
    - Help debugging code Using Word 2002 and 2003. Have a routine that loops through an array, builds up a string and then puts the string in the document. Occasionally this doesn't work properly and only part of the array appears in the document. The problem is that I can't just see any reason why this would be happening. I have dumped the array to a textfile to have a look at it, but it all looks normal or in any case no different from other arrays that appear in the document fine. The array is an 0-based 2D array with 4 or 5 columns and up to about 100 rows. It contains dates, numbers and strings. As I have no idea still what the problem is here I just post the full Sub in the hope that somebody has some suggestion as to where the problem could be. Leaving out the Exit Sub bits doesn't make a difference. Any assistance greatly appreciated. Sub ArrayToWordText(ByRef arr As Variant, _ ByVal lStartCol As Long, _ ByVal lEndCol As Long) 'converts a 2-dimensional array to a Word as plain text 'note that the start and end column are always 1-based 'even when the arrray is 0-based '----------------------------------------------------- Dim rng As Range Dim tbl As Table Dim LB1 As Byte Dim LB2 As Byte Dim UB1 As Long Dim UB2 As Long Dim lRows As Long Dim lCols As Long Dim i As Long Dim c As Long Dim LB1corr As Byte Dim LB2corr As Byte Dim colCorr As Integer Dim strTemp As String LB1 = LBound(arr) UB1 = UBound(arr) LB2 = LBound(arr, 2) UB2 = UBound(arr, 2) LB1corr = 1 - LB1 '0-based array >> LB2corr will be 1 '1-based array >> LB2corr will be 0 LB2corr = 1 - LB2 colCorr = lStartCol - (LB2corr + 1) lRows = (UB1 - LB1) + 1 lCols = (lEndCol - lStartCol) + 1 Application.ScreenUpdating = False Set rng = Selection.Range rng.Collapse Direction:=wdCollapseEnd On Error GoTo ERRORADDINGTABLE 'for debugging '------------- If bArray2Text = True Then SaveArrayToText2 "C:\NotesDump.txt", arr End If For i = 1 To lRows If BPArray(i - LB1corr) = 1 Then 'dealing with BP entry '--------------------- For c = 1 To lCols If strNoteSubject <> "Q" Then If arr(1 - LB1corr, 1 + colCorr) = Empty Then Exit For End If End If Select Case c Case 1 strTemp = strTemp & arr(i - LB1corr, c + colCorr) Case lCols If lCols = 4 Then If Not arr(i - LB1corr, c + colCorr) = Empty Then strTemp = strTemp & "/" & arr(i - LB1corr, c + colCorr) & Chr(13) End If Else If arr(i - LB1corr, c + colCorr) = Empty Then strTemp = strTemp & Chr(13) Else strTemp = strTemp & ", " & _ arr(i - LB1corr, c + colCorr) & Chr(13) End If End If Case Else If c = 4 Then If Not arr(i - LB1corr, c + colCorr) = Empty Then strTemp = strTemp & "/" & arr(i - LB1corr, c + colCorr) End If Else If Not arr(i - LB1corr, c + colCorr) = Empty Then strTemp = strTemp & ", " & arr(i - LB1corr, c + colCorr) End If End If End Select Next Else 'not dealing with BP entry '------------------------- For c = 1 To lCols If strNoteSubject <> "Q" Then If arr(1 - LB1corr, 1 + colCorr) = Empty Then Exit For End If End If Select Case c Case 1 strTemp = strTemp & arr(i - LB1corr, c + colCorr) Case lCols If TestArray(i - 1) = 1 And c + colCorr = 3 Then 'dealing with test value and unit, so no comma '--------------------------------------------- strTemp = strTemp & " " & _ arr(i - LB1corr, c + colCorr) & Chr(13) Else If arr(i - LB1corr, c + colCorr) = Empty Or _ arr(i - LB1corr, c + colCorr) = Chr(32) Or _ arr(i - LB1corr, c + colCorr) = vbNull Or _ Trim(arr(i - LB1corr, c + colCorr)) = "" Then strTemp = strTemp & Chr(13) Else strTemp = strTemp & ", " & _ arr(i - LB1corr, c + colCorr) & Chr(13) End If End If Case Else If TestArray(i - 1) = 1 And c + colCorr = 3 Then 'dealing with test value and unit, so no comma '--------------------------------------------- strTemp = strTemp & " " & arr(i - LB1corr, c + colCorr) Else If Not arr(i - LB1corr, c + colCorr) = Empty And _ Not arr(i - LB1corr, c + colCorr) = Chr(32) And _ Not arr(i - LB1corr, c + colCorr) = vbNull And _ Not Trim(arr(i - LB1corr, c + colCorr)) = "" Then strTemp = strTemp & ", " & arr(i - LB1corr, c + colCorr) End If End If End Select Next End If Next 'not sure why this is still needed, should have been filtered out above '---------------------------------------------------------------------- strTemp = Replace(strTemp, ", " & Chr(13), Chr(13), 1, -1, vbTextCompare) strTemp = Replace(strTemp, " <-| ", Chr(13) & Chr(9), 1, -1, vbTextCompare) strTemp = Replace(strTemp, " <-|", "", 1, -1, vbTextCompare) 'to indent after linebreak '------------------------- With Selection.ParagraphFormat .LeftIndent = CentimetersToPoints(2.1) .FirstLineIndent = CentimetersToPoints(-2.1) End With With Selection .TypeText Text:=strTemp .MoveDown Unit:=wdLine, count:=2 End With 'back to normal linebreak '------------------------ With Selection.ParagraphFormat .LeftIndent = CentimetersToPoints(0) .FirstLineIndent = CentimetersToPoints(0) End With Application.ScreenUpdating = True Exit Sub ERRORADDINGTABLE: Application.ScreenUpdating = True MsgBox "COULDN'T PUT THE ARRAY HERE!", vbInformation, "" On Error GoTo 0 End Sub RBS Tag: Starting Template With Cursor Down Several Lines Tag: 56793
  - 25
    - picture question I have a picture in a Word document. Is there a way to save only the picture as a TIF file? Thanks Tag: Starting Template With Cursor Down Several Lines Tag: 56792

This should be simple, but I would like my template to position the cusor
down several lines when opened.

Please Help
--
Today is the day!

Top

Re: Starting Template With Cursor Down Several Lines by Doug

Doug
Mon Sep 27 22:01:36 CDT 2004

Insert a bookmark in the template at that location and in the template
include an autoopen macro that contains the code to select the .Range of the
bookmark

ActiveDocument.Bookmarks("bookmarkname").Range.Select

--
Please respond to the Newsgroup for the benefit of others who may be
interested. Questions sent directly to me will only be answered on a paid
consulting basis.

Hope this helps,
Doug Robbins - Word MVP
"JimmyDee" <JimmyDee@discussions.microsoft.com> wrote in message
news:DABBA056-222E-4218-A878-C4C103DA739C@microsoft.com...
> This should be simple, but I would like my template to position the cusor
> down several lines when opened.
>
> Please Help
> --
> Today is the day!

Top

Re: Starting Template With Cursor Down Several Lines by Doug

Doug
Mon Sep 27 22:05:33 CDT 2004

The macro name should be Autonew, not autoopen.

--
Please respond to the Newsgroup for the benefit of others who may be
interested. Questions sent directly to me will only be answered on a paid
consulting basis.

Hope this helps,
Doug Robbins - Word MVP
"JimmyDee" <JimmyDee@discussions.microsoft.com> wrote in message
news:DABBA056-222E-4218-A878-C4C103DA739C@microsoft.com...
> This should be simple, but I would like my template to position the cusor
> down several lines when opened.
>
> Please Help
> --
> Today is the day!

Top