'Select active table where cursor is' command?????

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - How to create pie chart from linked CSV file in Word? Hi, I am trying to create a Word document which should contain a couple of charts (pie, bars, etc.). The source for the charts´ data should be a couple of csv files I have on harddisk. I would like to "link" the csv file to the Word document (or the chart) so I don´t have to do a manual import. Instead the charts should show the data from the current file every time the Word document is opened. So far I have tried to do this with a combination of Excel and Word which does not work for me. Basically the problems are as follows: - when I create the chart in Word only, I can not link it to the CSV file/s - when I create multiple charts in one Excel file, I can use a small VBA script to automatically read the CSV files and adjust the graphs (each char on a differen sheet). Unfortunately I have not found a way to link specific sheets in Excel to specific objects in the Word document so this won´t work either. Anyone have any idea how to do this? Thanks in advance! Regards, Emre -- http://www.emre.de UIN: 561260 PGP Key ID: 0xAFAC77FD I don't see why some people even HAVE cars. -- Calvin Tag: 'Select active table where cursor is' command????? Tag: 70042
  - 2
    - PDF tool needed I know there are many tools that let you "print" a Word document to a PDF file (for example, CutePDF). The problem is that all these tools that I have seen require user input to specify the output file name and possibly output options as well. THis makes it impossible to completely automate the process from VBA code. Does anyone know of a PDF "printer" that can operate with no user input, completely under VBA control? The only one I have found is PDF Creator but it is $500. Thanks -- Peter Aitken Remove the crap from my email address before using. Tag: 'Select active table where cursor is' command????? Tag: 70041
  - 3
    - Macros & hyperlinks & buttons does not work into headers ??? please help Hi ! I want symply to put something like a hyperlink or button or .... to go to index, or page 1 ( for example ). Because headers seems 'locked' i think macros, buttons, hyperlinks also are locked Some idea ??? Thanks , Antonio Pérez Tag: 'Select active table where cursor is' command????? Tag: 70040
  - 4
    - Find text with different font. Hi, I have a word document containg text with diffrent font. I need divide that document into blocks, where each block will have the same font. In other words, when the font is changed then new block should begin. I can do that by getting font of each character, and when font is diffreent, then just make a new block. But this is extremely slow. I takes 30 seconds on document with 2 pages. Do you think there is some faster way of doing this? PS: I'm accessing Word using OLE objects. But this shouldn't be different from VBA. -- Jiri Tag: 'Select active table where cursor is' command????? Tag: 70038
  - 5
    - How to unlink headers/footers correctly without using ActiveWindow Hey As a start I ran a macro with application visible. From the macro recorder I learned to use the following statement to unlink header/footer: 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 BUT it didn't work when I changed to run the application invisible :-( In an earlier Q in this NG I was told that the ActiveWindow object only worked correctly when application was visible. I have tried to rewrite the script to the following: Selection.InsertBreak Type:=wdSectionBreakNextPage ' Cut link between herder/footer on page x and page x+1 With ActiveDocument.Sections(ActiveDocument.Sections.Count) .Headers(wdHeaderFooterPrimary).LinkToPrevious = False .Footers(wdHeaderFooterPrimary).LinkToPrevious = False End With As far as I can see it does not work. When I manually enters the header on the new page (doubleclicking on the new header), it is STILL linked to previous page. What am I doing wrong? Ebbe Tag: 'Select active table where cursor is' command????? Tag: 70036
  - 6
    - How to move cusor after inserting some OLEControlObject to a specified place? 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 Tag: 'Select active table where cursor is' command????? Tag: 70035
  - 7
    - 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: 'Select active table where cursor is' command????? Tag: 70031
  - 8
    - 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: 'Select active table where cursor is' command????? Tag: 70030
  - 9
    - 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: 'Select active table where cursor is' command????? Tag: 70029
  - 10
    - 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: 'Select active table where cursor is' command????? Tag: 70026
  - 11
    - 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: 'Select active table where cursor is' command????? Tag: 70023
  - 12
    - 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: 'Select active table where cursor is' command????? Tag: 70010
  - 13
    - 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: 'Select active table where cursor is' command????? Tag: 70009
  - 14
    - 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: 'Select active table where cursor is' command????? Tag: 70008
  - 15
    - 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: 'Select active table where cursor is' command????? Tag: 70007
  - 16
    - 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: 'Select active table where cursor is' command????? Tag: 70006
  - 17
    - 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: 'Select active table where cursor is' command????? Tag: 70004
  - 18
    - 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: 'Select active table where cursor is' command????? Tag: 70001
  - 19
    - 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: 'Select active table where cursor is' command????? Tag: 69996
  - 20
    - How to export a picture in word to CGM? Is there any filter to convert a picture in word document to CGM file. Tag: 'Select active table where cursor is' command????? Tag: 69992
  - 21
    - 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: 'Select active table where cursor is' command????? Tag: 69991
  - 22
    - 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: 'Select active table where cursor is' command????? Tag: 69990
  - 23
    - 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: 'Select active table where cursor is' command????? Tag: 69988
  - 24
    - 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: 'Select active table where cursor is' command????? Tag: 69982
  - 25
    - 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: 'Select active table where cursor is' command????? Tag: 69981
- Next
  - 1
    - 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: 'Select active table where cursor is' command????? Tag: 69976
  - 2
    - 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: 'Select active table where cursor is' command????? Tag: 69974
  - 3
    - 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: 'Select active table where cursor is' command????? Tag: 69966
  - 4
    - 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: 'Select active table where cursor is' command????? Tag: 69965
  - 5
    - 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: 'Select active table where cursor is' command????? Tag: 69956
  - 6
    - 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: 'Select active table where cursor is' command????? Tag: 69955
  - 7
    - 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: 'Select active table where cursor is' command????? Tag: 69953
  - 8
    - 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: 'Select active table where cursor is' command????? Tag: 69949
  - 9
    - 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: 'Select active table where cursor is' command????? Tag: 69948
  - 10
    - 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: 'Select active table where cursor is' command????? Tag: 69942
  - 11
    - 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: 'Select active table where cursor is' command????? Tag: 69941
  - 12
    - 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: 'Select active table where cursor is' command????? Tag: 69940
  - 13
    - 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: 'Select active table where cursor is' command????? Tag: 69935
  - 14
    - 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: 'Select active table where cursor is' command????? Tag: 69926
  - 15
    - 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: 'Select active table where cursor is' command????? Tag: 69923
  - 16
    - 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: 'Select active table where cursor is' command????? Tag: 69920
  - 17
    - 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: 'Select active table where cursor is' command????? Tag: 69919
  - 18
    - 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: 'Select active table where cursor is' command????? Tag: 69918
  - 19
    - 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: 'Select active table where cursor is' command????? Tag: 69917
  - 20
    - 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: 'Select active table where cursor is' command????? Tag: 69912
  - 21
    - 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: 'Select active table where cursor is' command????? Tag: 69907
  - 22
    - 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: 'Select active table where cursor is' command????? Tag: 69900
  - 23
    - 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: 'Select active table where cursor is' command????? Tag: 69899
  - 24
    - 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: 'Select active table where cursor is' command????? Tag: 69894
  - 25
    - 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: 'Select active table where cursor is' command????? Tag: 69885

Hi

Someone gave me this macro recently but I have to change it every time I use
it on a different document.

Is there a way to get the macro to work on the table where the cursor is no
matter where the table is in the document.

A type of 'select active table where cursor is' command???

Thanks in advance.

Sub RandomPick()
'
' RandomPick Macro

Dim i As Long
Dim j As Long
i = ActiveDocument.Tables(3).Rows.Count ' table 3
Randomize
j = Int((i * Rnd) + 1)
ActiveDocument.Tables(3).Cell(j, 1).Select ' table 3

End Sub

Top

RE: 'Select active table where cursor is' command????? by HelmutWeber

HelmutWeber
Wed Jun 22 08:47:04 CDT 2005

Hi Dave,

instead of
activeDocument.Tables(3)
use
selection.tables(1)
for first table in selection

Greetings from Bavaria, Germany
Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word 2002, Windows 2000

Top

RE: 'Select active table where cursor is' command????? by DavidSisson

DavidSisson
Wed Jun 22 14:13:03 CDT 2005

http://word.mvps.org/FAQs/MacrosVBA/GetIndexNoOfPara.htm

Dim A as Long
A = ActiveDocument.Range(0, Selection.Tables(1).Range.End).Tables.Count

Change the Tables(3) to Tables(A)

Top

Re: 'Select active table where cursor is' command????? by Dave

Dave
Wed Jun 22 08:57:21 CDT 2005

Works like a dream.

Thanks
"Helmut Weber" <HelmutWeber@discussions.microsoft.com> a écrit dans le
message de news: 36DB4122-00DE-4406-8653-3CACF7651B30@microsoft.com...
> Hi Dave,
>
> instead of
> activeDocument.Tables(3)
> use
> selection.tables(1)
> for first table in selection
>
> Greetings from Bavaria, Germany
> Helmut Weber, MVP
> "red.sys" & chr(64) & "t-online.de"
> Word 2002, Windows 2000

Top