How to move cusor after inserting some OLEControlObject to a specified place?

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Connectors In Excel, there is a ConnectorFormat property in Shape object. We did not find such object in Word API. How to get the ConnectorFormat object from shape object? Thanks Tag: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 70031
  - 2
    - Export filter to convert a word picture to CGM Is there any CGM export filter to convert a picture object in word document to CGM? If its not there, is there any way to convert a picture object in word to CGM. Thanks Tag: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 70030
  - 3
    - Event to run some code when a VBA template is loaded into Word XP In Word 2003 there is the Document_Open which I have used to load a command bar, etc. when a document is opened with an attached VBA template. I think that I read of an event to accompish the same thing for Word XP but I don't remember and can't find. Is there an event that will allow me to run startup VBA code? THANKS! Tag: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 70029
  - 4
    - Extract data from word to access? Hello, I am going to recieve about 250 word docs for a land survey project that are all the same format. The document will have 4 main sections, and then inside those, there will be details which will need to be captured (or harvested) and then saved as delimited text (or whatever will work best) for insertion into an access database. The problem is that most (80%) of the word doc is not formatted into any kind of tabular structure, at least from what I can tell. (As a side note - is there a way to check using something like reveal codes, as was in WP)? The only thing in common that each doc file has is that each file has the same keywords preceding the desired data value. MY QUESTION: Is there a way to have a VBA routine go through, and identify (which would be embedded in the VBA routine) keywords, and then based on that keyword, trigger a "copy" to action? There is always a consistent keyword preceding the desired data value. For example, here is a typical sentance (with the desired data value in {}, and the keyword in caps: EXAMPLE 1) That certain tract of land CONTAINING {105.899}acres, more or less... EXAMPLE 2) or another example in tabular format, separated by tabs (but shown here with commas and no separation); 1st line: *Surface,Mineral,Net 2nd line: Owner,*Interest,Interest,Mineral Acres 3rd line: John H. Smith,100%,50%,52.9495 * TO CLARIFY: The words Surface and Interest go together (like Surface Interest), just one on top of each other. Same for the words Mineral and Interest, as well as Net and Mineral Acres. In sum, I just want to know what are the ways that you can go into an existing word doc and extract the data that you need, that's all. I really don't know where to begin asking this, but if there is a better NG than this one, I'd apprieciate your direction on where I should post this. TIA. Phil Tag: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 70026
  - 5
    - detect if doc is protected Good afternoon, I need to know how I can determine if a document is protected or not using an if/else statement so I can then unprotect it if it was protected. Thank you, Daniel Tag: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 70023
  - 6
    - Problems with headers/footers Hey! I have a document with some textboxes and graphic elements (shapes) in the header. These shapes is repeated on each page. But I want to insert some other document in the middle of the document and preserve the shapes on both sides of this inserted document. Standing on page 1, I want to insert a page (another document) as page 2. Page 3 should have the same header/footer as page 1. Here is what I am doing and what I see: -------------------------------------------------------------------------------------------------------------------------- Sub InsertDocumentAfterPage() Dim i As Integer '---- Standing on page 1 '---- New page 2 gets the same shapes as page x Selection.InsertBreak Type:=wdSectionBreakNextPage '---- Cutting the link to page 1 ActiveDocument.Sections(ActiveDocument.Sections.Count).Headers(wdHeaderFooterPrimary).LinkToPrevious = False ActiveDocument.Sections(ActiveDocument.Sections.Count).Footers(wdHeaderFooterPrimary).LinkToPrevious = False '---- New page 3 gets the same shapes as page 2 Selection.InsertBreak Type:=wdSectionBreakNextPage '---- Cutting the link to page 2 ActiveDocument.Sections(ActiveDocument.Sections.Count).Headers(wdHeaderFooterPrimary).LinkToPrevious = False ActiveDocument.Sections(ActiveDocument.Sections.Count).Footers(wdHeaderFooterPrimary).LinkToPrevious = False '---- Trying to delete all shapes in header of page 2 (!!!! but the shapes is removed on ALL pages !!!!) i = ActiveDocument.Sections(ActiveDocument.Sections.Count - 1).Headers(wdHeaderFooterPrimary).Shapes.Count While i > 0 ActiveDocument.Sections(ActiveDocument.Sections.Count - 1).Headers(wdHeaderFooterPrimary).Shapes(i).Delete i = i - 1 Wend '---- Moving to end of page 2 Selection.MoveLeft Count:=1 '---- Inserting an other document on page 2 Selection.InsertFile FileName:="d:\XALKun\Seelen\EG_X2W\SeelenFakHanbet.doc", _ Range:="", ConfirmConversions:=False, Link:=False, _ Attachment:=False '---- Moving to end of story on page 3 Selection.EndKey Unit:=wdStory End Sub -------------------------------------------------------------------------------------------------------------------------- Can any one tel me what I am doing wrong - Please Ebbe Tag: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 70010
  - 7
    - Formula help? I want to have the document set up so that when I type a name or word in place in side the document/letter, that name will be instantaneously entered or equaled somewhere else in the document in place that I specify. Sort like in Excel, where I can have one cell equal another cell. Whatever I type in one cell, after I press the enter key or click outside the cell, the cell that is equal to it, automatically updates with the information. I hope I described well enough what I am looking for, if not please ask for specifics. Thank you in advance, Mike -- Top Notch Admin Tag: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 70009
  - 8
    - HELP - Connecting to ADODB Datasource for a MaiMerge Hello, I am trying to make a connection to a datasource that is an ADODB Recordset in VB 6. I have been trying with no success. I have found half answers on how to connect to .txt and .xls. datasources but nothing on a recordset. I have an ADODB Recordset that is created from a query executed from a user. I need to take that query result and then mail merge it with a word document. Does anyone know how to do this to help me out? Is this even possible? Thanks Nick Tag: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 70008
  - 9
    - mailmerge word 2003 I have an application (vfp) with a lot of letters being produced in Word using mail merge. The application works great for all versions of Word 97-2002 without Word being visible or any action by the user. Tried to run the same routine on Word 2003 and it brings up a prompt dialog wanting to know the name of the merged file. Once they name the file it runs fine. Anyone know why this prompt is occurring in word 2003? Thanks, Kevin Tag: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 70007
  - 10
    - Can I make a template like this? 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 Tag: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 70006
  - 11
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 70004
  - 12
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 70001
  - 13
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69996
  - 14
    - How to export a picture in word to CGM? Is there any filter to convert a picture in word document to CGM file. Tag: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69992
  - 15
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69991
  - 16
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69990
  - 17
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69988
  - 18
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69982
  - 19
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69981
  - 20
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69976
  - 21
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69974
  - 22
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69966
  - 23
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69965
  - 24
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69956
  - 25
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69955
- Next
  - 1
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69953
  - 2
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69949
  - 3
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69948
  - 4
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69942
  - 5
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69941
  - 6
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69940
  - 7
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69935
  - 8
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69926
  - 9
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69923
  - 10
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69920
  - 11
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69919
  - 12
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69918
  - 13
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69917
  - 14
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69912
  - 15
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69907
  - 16
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69900
  - 17
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69899
  - 18
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69894
  - 19
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69885
  - 20
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69883
  - 21
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69882
  - 22
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69881
  - 23
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69880
  - 24
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69872
  - 25
    - 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: How to move cusor after inserting some OLEControlObject to a specified place? Tag: 69867

hi!

I have inserted an OLEControlObject into word document using vba as
following

Selection.InlineShapes.AddOLEControl(ClsType)

No after inserting it I tried to move cursor to the next line after the
Control. using

Selection.TypeParagraph()

it deleted the Control. So what should I do to avoid it. furthermore if i
want to move cursor one space after the Control.

Thanks in advance.

Ahmad Jalil Qarshi

Top

RE: How to move cusor after inserting some OLEControlObject to a speci by DavidSisson

DavidSisson
Wed Jun 22 10:31:05 CDT 2005

Selection.Collapse wdCollapseEnd
Selection.MoveDown wdParagraph, 1

Top

Re: How to move cusor after inserting some OLEControlObject to a specified place? by Word

Word
Thu Jun 23 22:12:04 CDT 2005

G'day "Ahmad Jalil Qarshi" <ahmaddearNO@SPAMhotmail.com>,

Selection.Move wdParagraph,1

Steve Hudson - Word Heretic

steve from wordheretic.com (Email replies require payment)
Without prejudice

Ahmad Jalil Qarshi reckoned:

>hi!
>
>I have inserted an OLEControlObject into word document using vba as
>following
>
>Selection.InlineShapes.AddOLEControl(ClsType)
>
>No after inserting it I tried to move cursor to the next line after the
>Control. using
>
>Selection.TypeParagraph()
>
>it deleted the Control. So what should I do to avoid it. furthermore if i
>want to move cursor one space after the Control.
>
>Thanks in advance.
>
>Ahmad Jalil Qarshi
>
>
>

Top