How to insert a field in a table cell

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Replacing Bookmark Text - Userforms (FYI - I posted this on the beginners, general, and userforms boards.) I have created a template where I created a userform with 2 "fields" (ProjectName and TaskName). Each field corresponds w/a bookmark. I'm using REF commands to link/repeat the bookmarks in the footer of the report. It is all working well except that the data that is input through the userform is getting added to the (default) bookmark text instead of replacing it. I found a MVP document that gives me a general idea of what I need to do (set a bookmark range variable) {MVP Doc: Inserting text at a bookmark without deleting the bookmark}. It includes a subroutine when using a macros/userform, but I'm not sure where to put it. Can anyone help me with this??? THANK YOU! Wendy Now, template bookmarks look like: [ProjectName] and [TaskName]. If I input a 1 (for project name) and a 2 (for task name) in the userform when I open a new document, the bookmark data changes to: [1ProjectName] and [2TaskName]. I need it to change to [1] and [2] (but keep the bookmarks). My VBA code has: AUTONEW MODULE Sub AutoNew() ' ' AutoNew Macro ' Macro created 8/16/2005 by wdaniels ' UserForm1.Show End Sub USERFORM - Commandbutton1 Private Sub CommandButton1_Click() With ActiveDocument .Bookmarks("ProjectName").Range _ .InsertBefore TextBox1 .Bookmarks("TaskName").Range _ .InsertBefore TextBox2 End With UserForm1.Hide End Sub Tag: How to insert a field in a table cell Tag: 72617
  - 2
    - How to open an embedded Word doc using VBA? I have an embedded Word document within an open Word document. I would like to create a macro that opens the desired embedded Word document and goes to a predefined bookmark within it. Does anyone know how to do this programmatically? I'm using Word 2000 but the doc will be used by Word 2000 & 2003 users. Thanks for your help! -- JoAnn Tag: How to insert a field in a table cell Tag: 72616
  - 3
    - Duplex Printing In Word Greetings, I found a macro that is suppose to manually print duplex for printers that don't have the duplex option. The code is suppose to print the current page in the active document, open a messagebox so the user can manually flip the page, and then print the second (or even) page after the user presses ok. The macro does print, but only after the code finishes running. For some reason, it only spools the the first print current page command, and then prints it when the code finishes running. Any help would be great! Thank you! Here's the code: Sub PrintBothSides() ' ' PrintBothSides Macro ' Dim iTemp As Integer ActiveDocument.PrintOut (ManualDuplexPrint), Copies:=1, Range:=wdPrintCurrentPage iTemp = MsgBox("Switch paper to continue", vbOKCancel, "PrintBothSides") If iTemp = vbOK Then ActiveDocument.PrintOut Copies:=1, PageType:=wdPrintEvenPagesOnly End If End Sub Tag: How to insert a field in a table cell Tag: 72615
  - 4
    - Access Database Update I have an Access database which contains information for a form. I use the database for merging with a Word template which is then sent out to customers via email. I also have text form fields for the customer to fill out in response to the original information. These transactions happen 5 or 6 times a day and cutting and pasting just doesn't cut it since the returned information is lengthy. Everything is working beautifully, except I don't have an easy way to import the data from the text form field back into the database. I would like the returned form to be able to be attached to the Access database much the same way that it works the other way around. Is that possible? The users of this system need a button to be able to do this. If I got hit by a gasoline tanker tomorrow, they wouldn't have a clue as to what to do with the returned info from the Word form. Tag: How to insert a field in a table cell Tag: 72614
  - 5
    - Outlook type Library not available as a reference I am using MIcrosoft Office Word 2003 SP1. I am trying to use code contributed by Astrid Zeelenberg in the article "How to send an email from Word using VBA." The article says I need to set a reference to the Outlook type library under Tools-References. I can not find a reference to Outlook type library. Is this something I need to install seperately? If so, could someone please tell me what I need to do to have access to this reference. Thanks Tag: How to insert a field in a table cell Tag: 72613
  - 6
    - CreateButton - EraseButton Hi, I have created a new button in CommandBar: Sub CreateButton() Dim nBtn As Office.CommandBarButton Dim cBar As Office.CommandBar Dim BtnExists As Boolean Dim Pos As Integer Dim i As Integer On Error GoTo eh Set cBar = Application.CommandBars("File") Let BtnExists = False For i = 1 To cBar.Controls.Count If cBar.Controls(i).Caption = "MyButton" Then Let BtnExists = True End If If cBar.Controls(i).Caption = "Save &As..." Then Let Pos = i + 1 End If Next If BtnExists Then Set nBtn = cBar.Controls("MyButton") Else Set nBtn = cBar.Controls.Add(msoControlButton) Let nBtn.Caption = "MyButton" End If Call nBtn.Move(Before:=Pos) Let nBtn.OnAction = "RunAPI" Exit Sub eh: MsgBox ("Error " & CStr(Err.Number) & ": " & Error) End Sub Then I need to erase that button while closing document. I tried either to reset CommandBar (cBar.Reset) or call Delete method (Call nBtn.Delete(False)) on that button. Works fine, but only for current session. After that, when I open Word, button is still there. Any suggestion? I need to erase the button permanently. Thanks in advance. Jiri Tag: How to insert a field in a table cell Tag: 72612
  - 7
    - Add a record to an Access table from Word I have a document database in Access. When I create a new document in Word I would like a new record added to Access. When the record is created, Access generates a simple sequential number for the document. Word then retrieves the number. How do I have Word instruct Access to make a new record? -- Stephenc Tag: How to insert a field in a table cell Tag: 72600
  - 8
    - Undo event Hello All, 1/ Is it possible that we somehow restrict word to add entries in Undo stack. else 2/ Is it possible that we group some events as one Undo event. Please help as i am making a addin for office in vb.net GS Tag: How to insert a field in a table cell Tag: 72589
  - 9
    - Wildcard Search and "OR" Hello, using wildcards can I search for one word OR another? For example I would like something like the following to work: "apple|pear", but I can't seem to find out what the Word wildcard equivalent of the regular expression symbol "|" is, to mean "OR". Thanks Tag: How to insert a field in a table cell Tag: 72578
  - 10
    - DocumentBeforeClose problems Hello, The DocumentBeforeClose event gives me grief. The problem is that I have to perform a certain cleanup operation when a = document is closed. Unfortunately, DocumentBeforeClose is called before the user is = presented with the "Document changed, do you want to save?" dialog, = which can cancel the close. So, I do not know whether the document was actually closed. Is there a way around it? Thanks. Best wishes, Alex. --=20 Address email to user "response" at domain "alexoren" with suffix "com" Tag: How to insert a field in a table cell Tag: 72573
  - 11
    - Remembering document-specific window position Certain of my editing tasks involve having multiple open docs in Word. Given limited screen real estate, I carefully size the windows before setting to work, which is a pain. I'd like to write up or find a macro that would, on a document-by-document basis (very important), save the window size/position for that particular document on closing, then, on reopening, have Word get the window properties from the individual doc template or information and restore to the saved position. Ideally, I'd load this in Normal.dot and invoke it with a keystroke combo as an alternative way to close docs. Is there a way to do this? I've searched high and low, but can't find anything on how to do it with VBA (I'm in Word 2002 on WinXP, with VB 6.3). I know it's possible because so many apps do it (including WordPerfect back in the day when I used it), but I don't know if it's doable in VBA. The only thing I find in online VBA resources is discussion of saving the /application/'s main window position and writing to the registry to do so -- but that's not what I'm seeking. Any ideas? TIA, Ed ed [at] coherenow.com Tag: How to insert a field in a table cell Tag: 72564
  - 12
    - Conditional format a table cell (background colour) Hello all, Very little experience with Macros but I have created a project plan template containing various form fields and any number of macros (mainly via the recorder with a bit of code tweaking). One of the text fields in the table is a due date. Via VBA is there any way to highlight the date cell or even the entire row by changing the background colour red when the date is overdue? I guess this would be quite straight forward in Excel via Conditional formating but I would really like to do it in Word. Any help appreciated. Thanks. Paul. Tag: How to insert a field in a table cell Tag: 72559
  - 13
    - maintaining the formatting of a string I used to know this but forget--If a text selection has character formatting such as underlining, and I'm turning the selection into a string and then inserting that string elsewhere, how do I maintain the formatting of the string? Tag: How to insert a field in a table cell Tag: 72558
  - 14
    - Real and curious problems with vba office2000 et office2003 on a computer Since some days, I have some problems with VBA (with Access as well as Word). All these problems exist in Office 2000 as well as in 2003 Some VBA functions do not vork anymore. ========================================================== So the function 'Kill' is completly unefficient. I mean that 'Kill' doesn't kill files, but, worse, give no error message if I ask to 'Kill' a file which does not exists (for example with a bad path). So the line : ----------- Kill "c:\program files\internet explorer\iexplore.exe" ----------- does not give a message. Just the program quit the function where is the line without executing the lines after. There is no error treatment un function. If I put a Rem or a "'" at the begining of the line, the lines after are executed. If the path of the program to kill is bad (for example "c:\progr files\internet explorer\iexplore.exe" , there is no error message! ========================================================== The function 'Mkdir' does not work anymore. So the line : ----------- MkDir "c:\xxxxx" ----------- doen't create the dirextory 'xxxxx'. ========================================================== The procedure : ----------- Sub Test () Dim FileNumber as integer FileNumber = FreeFile Open "c:\TEST" For Output As #FileNumber Write #FileNumber, "Ceci est un exemple" Close #FileNumber End Sub ----------- does'nt create the file and the error message says that the file does not exist ! It do not accept to create it... ========================================================== The function 'Shell' does not work anymore. So the line ----------- Shell "c:\program files\internet explorer\iexplore.exe", vbMaximizedFocus ----------- does'nt launch Internet Explorer. If the path given in string is bad, there is no error message. ========================================================== I don't know if the following problem is bound to there others problems, but now I cannot use the function "Export in Word" or "Export in Excel" or "Export in 'presse-papier'" for exportations of preview of report. No problem if I export to Word a preview of a form or of a table or of a query. But it is now impossible to export a report preview towards Word. =========================================================== I have Windows XP PRO. I have Office 2000 developer, and Office 2003. All these problems can be observed VBA 2000 AND VBA 2003 (in Accesss 2003). ============================================================ I have uninstalled and reinstalled twice both Office 2003 and Office 2000. No results. ============================================================ On my second computer, all is good. To replace filesystem functions I use 'Scripting.FileSystemObject', which works PERFECTLY. ============================================================ The functions that does not work on my pricipal computer work on the second computer. Which can be ABOVE VBA in the first computer which can cause this kind of problems ? HOW CAN I REPLACE the 'Shell' function ? Thanks for responses. And excuses for my english. I am french... Tag: How to insert a field in a table cell Tag: 72557
  - 15
    - Command Button in Word I want put a button on 15 pages this button the next commando must carry out, if I click on the button he the page where this button on state must remove. there is someone who can me give the complete code to let work to this button Tag: How to insert a field in a table cell Tag: 72556
  - 16
    - Writing neat VBA I have a document with Odd and Even pages headers and footers. At this point I insert a new section and which I have to remove the header and footer linking to the previous section. I create a temporary bookmark, add a page break, unlink the primary and even headers and footers, remove the bookmark and then the page break. Everything works as it should and there is no problem. However, below is the code which does all the unlinking and I just wanted to say the same thing but with a little more elegance and finesse. Could somebody therefore, please show me how these few lines might be written in properly coded VBA? ====================== ActiveWindow.ActivePane.View.SeekView = wdSeekEvenPagesHeader Selection.HeaderFooter.LinkToPrevious = False ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument ActiveDocument.Bookmarks("temp").Select ActiveWindow.ActivePane.View.SeekView = wdSeekPrimaryHeader Selection.HeaderFooter.LinkToPrevious = False ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument ActiveDocument.Bookmarks("temp").Select ActiveWindow.ActivePane.View.SeekView = wdSeekEvenPagesFooter Selection.HeaderFooter.LinkToPrevious = False ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument ActiveDocument.Bookmarks("temp").Select ActiveWindow.ActivePane.View.SeekView = wdSeekPrimaryFooter Selection.HeaderFooter.LinkToPrevious = False ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument ======================== You might wonder why all the backwards and forwards between the headers, main document and back to the footers with the selection of the temp bookmark in between? Well, I found that Word "got lost"(i.e. didn't go to where I expected it to go) if I told it to unlink the odd and even headers and then do the same with the odd and even footers. It somehow got confused and went and did things either in the previous section or the one following the new section. I created some explicit actions and that did the trick!! Regards Roderick Tag: How to insert a field in a table cell Tag: 72551
  - 17
    - Macro Style Replace Word2000. I record a macro to SearchAndReplace a custom style. During the recording, the SearchAndReplace works fine. When running the macro, it doesn't work. Calling up the SearchAndReplace dialog box shows why: instead of searching for the stylename, it search for a stylename plus border attributes plus other things. Can this be fixed? -- JohnTheTemp Tag: How to insert a field in a table cell Tag: 72549
  - 18
    - VBA macro to create an index I wrote a macro that creates an index. Here is an explanation: I have a text and a file c:\boss_info_index.txt that have a keywords I want to index in the text file. Keywords in the file have no duplicates and are in descending orders - I am not sure if the order is relevant, but there should be no duplicates. Here is the macro: Sub CreateIndex() ' ' CreateIndex Macro With ActiveDocument.PageSetup .LineNumbering.Active = False .Orientation = wdOrientPortrait .TopMargin = InchesToPoints(0.8) .BottomMargin = InchesToPoints(0.8) .LeftMargin = InchesToPoints(0.8) .RightMargin = InchesToPoints(0.8) .Gutter = InchesToPoints(0) .HeaderDistance = InchesToPoints(0.5) .FooterDistance = InchesToPoints(0.5) .PageWidth = InchesToPoints(8.5) .PageHeight = InchesToPoints(11) .FirstPageTray = wdPrinterDefaultBin .OtherPagesTray = wdPrinterDefaultBin .SectionStart = wdSectionNewPage .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False .VerticalAlignment = wdAlignVerticalTop .SuppressEndnotes = False .MirrorMargins = False .TwoPagesOnOne = False .GutterPos = wdGutterPosLeft End With Selection.Sections(1).Headers(1).pageNumbers.Add PageNumberAlignment:= _ wdAlignPageNumberRight, FirstPage:=True Dim quote As String Dim Keyword As String Dim j As Integer quote = """" Dim found_key As Boolean Dim startSearch As Long Dim endSearch As Long Close #1 Open "c:\boss_info_index.txt" For Input As #1 Set myRange = ActiveDocument.Content j = 0 Do While Not EOF(1) ' Loop until end of file. Set myRange = ActiveDocument.Content endSearch = myRange.End Input #1, Keyword j = 0 With myRange.Find .Text = Keyword .Forward = True .MatchWholeWord = True .MatchCase = False End With While myRange.Find.Execute myRange.Collapse wdCollapseEnd Set myIndexEntry = myRange.Fields.Add(myRange, Type:=wdFieldIndexEntry, _ Text:=quote & Keyword & quote) startSearch = myRange.End startSearch = startSearch + 7 Set myRange = ActiveDocument.Content myRange.Start = startSearch If startSearch > endSearch - 1 Then GoTo skip_while End If With myRange.Find .Text = Keyword .Forward = True .MatchWholeWord = True .MatchCase = False End With ' this code is because I had a loop here j = j + 1 If j > 300 Then myRange.Bold = True Exit Do End If Wend skip_while: Loop Close #1 ' Close file. myRange.Start = 0 myRange.End = 0 With ActiveDocument .Indexes.Add Range:=myRange, HeadingSeparator:= _ wdHeadingSeparatorNone, Type:=wdIndexIndent, RightAlignPageNumbers:= _ True, NumberOfColumns:=1, IndexLanguage:=wdEnglishUS .Indexes(1).TabLeader = wdTabLeaderDots End With End Sub Tag: How to insert a field in a table cell Tag: 72547
  - 19
    - Few Question about Line Numbers Hi all, how can I find 1) current line numbers? 2) total line numers? Thanks Regards Tag: How to insert a field in a table cell Tag: 72546
  - 20
    - Working with Stylized Quotes Hi Everyone, Does anyone know of a function that will convert Stylized Quotes to a normal quote? Here is the application; I am comparing one string to another. In some cases the strings do not match when they should. The issue is that use of Stylized Quotes. One string may use a slightly different version of a single quote causing the string comparison function to fail. I would like to convert all single quotes to a simple quote for comparing. Thanks, George Tag: How to insert a field in a table cell Tag: 72545
  - 21
    - Add documents via listbox I need to insert documents, at either the front or end of the open document, from either a network drive or user hard drive. I would like to make these files available to users via a listbox on a form. I have been able to use file scripting object to browse to the files and add them to the list box using the following code: Sub GetFiles() Dim fs, f, f1, fc, fn, s Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder("C:\Documents") Set fc = f.Files For Each f1 In fc ' fn = f1.FileName If InStr(1, f1.Name, "boilerplate", vbTextCompare) Then Set fn = fs.GetFile(f1) lbBoilerplates.AddItem (fn) End If Next Set fs = Nothing End Sub This is all good, however: The list box is populated with the entire path and file name. What I would like to do is list only the file name. When the user selects desired documents (could be 1 or many) I would then insert the files into the document. Question: How do I get only the filename without the path for populating the listbox? I have been unable to retrieve only the filename without performing string functions to strip out the file name. Any suggestions greatly appreciated. Thank you. Tag: How to insert a field in a table cell Tag: 72542
  - 22
    - VBA - Insertion point Could you let me know what VBA to use to determine whether the insertion point is in a Field. Many thanks Mike Tag: How to insert a field in a table cell Tag: 72538
  - 23
    - = (rand) - how does this function work Tag: How to insert a field in a table cell Tag: 72530
  - 24
    - Error when changing Table I get the following error when trying to alter the value of a table:- "Cannot Access individual rows in this collection because the table has vertically merged cells" This is the code that causes the problem With oAppWD.ActiveDocument.Tables(1).rows(1).cells(2) = "V4.0" (oAppWD = CreateObject("Word.Application") ) How do I change the value of cells within a table where there are vertically merged cells? Ta Andi Tag: How to insert a field in a table cell Tag: 72525
  - 25
    - Which menu item activated - how? Hi I'd like to be able to identify if a menu item (any menu item) has been activated both by click and by accelerator key. I found a message on google groups that kind of provides a solution but I'm having trouble figuring it out and I was wondering if anyone might be able to explain how to use it? The text of the post is below. I understand steps 1-3 but I get lost at step 4: How would I call the sub in step 4? Would I just put it in a regular module? What would be an example of an "Ctrl" argument for the sub in step 4? Also, I note that the sub is called "MyControl_Click". Would that work even if the user activated the menu item using an accelerator key, not the mouse? The post says that code needs to be written to instantiate the class object. Does that mean a Property Get statement? Lastly, in step 3 the SaveAs button ID is specified. How would that Set statement be written if I wanted to get the id number for whatever menu item was activated? Many thanks for any help! Here's the original post: "You can do it by trapping the click event for the control. 1. Add a class module to the VBA project. 2. Declare a variable to trap the events: Public WithEvents MyControl As Office.CommandBarButton 3. In the module's initialize event, find the control you want to monitor. Private Sub Class_Initialize() Set MyControl = Application.CommandBars.FindCoÂntrol(ID:=748) End Sub (748 is the ID of SaveAs option on the File menu). 4. Write an event procedure for when the control is clicked: Private Sub MyControl _Click(ByVal Ctrl As Office.CommandBarButton, CancelDefault As Boolean) MsgBox "FileSave Clicked" End Sub The click event is fired before the built-in command is run. Set CancelDefault = TRUE to prevent the built-in command running. 5. Write some code (eg in AutoExec) to instantiate your class object. You'll need to re-run this code if you do anything that resets the VBA project, like editing any code." (The original post I'm quoting from is http://groups-beta.google.com/group/microsoft.public.word.vba.general/msg/5c81f19b8c21b4b5?hl=en&) Thanks again Mike Tag: How to insert a field in a table cell Tag: 72524
- Next
  - 1
    - Control of dialog boxes Hello All, Is it possible that we get the control of any dialog box that is opened when we click any menu item. e.g. File->Page Setup opens a dialog box, format->Autocorrect options open a dialog box,etc. I am coding in vb.net and want to get handle of these windows. Please help. GS Tag: How to insert a field in a table cell Tag: 72520
  - 2
    - General Question About Userforms and Properties Hi, I am using WORD 2000 and I have a general question about Userforms and Properties. Userform-1 displays a custom dialog, Userform-2. Userform-1 has to know which command button(s) were pressed in Userform-2. Arguments are "passed" between the forms by property statements. Userform-2 sets properties in Userform-1 by using the CallByName statement. Userform-1 object and property names set in Userform-2 via property statements. Has anybody had any problems using the above described scenario? That is, are there problems using property statements in Userforms and using the CallByName statement? It does seem to work but I would just like to know if there are any "gotchas". Thanks in advance for any help, advice and tips. Jerry Bodoff Tag: How to insert a field in a table cell Tag: 72518
  - 3
    - Insert Row Beneath Last Row in Table Hi There, I have some code that I have to run from within Excel. I have worked out how to locate a table and then manipulate the contents, but I can't work-out how to insert a new row below the last row of the table? Thanks Andy Tag: How to insert a field in a table cell Tag: 72512
  - 4
    - Help on Excel-Word project I have to take an excel spreadsheet that has contact info and a brief bio and format them in a word document. The columns in the spreadsheet are lastname, firstname, address1, address2, city, state, zip, phone, email, bio, awards (among others) I would like to selectively place these into the word document like this: lastname, firstname address1 [address2] (if non-blank) city, state, zip [phone] (if ok to release) [email] (if ok to release) bio awards I don't want the blank lines to show if it's not anything in it, or if they've not authorized us to release the info. There are other columns in the spreadsheet (as to what classification they'd fall into) that I may not want printed in the word document. We're wanting to update just the Excel document with the data, and have it formatted in the word document when we open it (I am sure we will tweak the word document formatting some), but we don't want to do any data entry into the word document - only in excel. Can anyone help, or perhaps guide me to a source that I can learn quickly on? BC Tag: How to insert a field in a table cell Tag: 72506
  - 5
    - Word printing slow when called from Access I'm calling Word 2003 from Access 2000, late bound. Here is a routine that till very recently printed light duty word docs pretty fast (shorthand) Set objWord = CreateObject("Word.Application") ' Open a doc so the selections can print, need a loaded doc... objWord.Documents.Add strSomeDoc objWord.PrintOut Background:=False, FileName:="c:\mydoc.doc" For some reason it jams up word for about a minute before anything starts to print. I can't think of anything that's changed recently on this pc, other than I've applied winxp sp2. Not sure how to approach this...in task manager, word never goes over 2% of cpu. Tag: How to insert a field in a table cell Tag: 72502
  - 6
    - Controls in a form Hi I currently have a userform that has about 4dozen mixed controls in it in a page Control. At present i have to reference every control like txtName1.value. the controls have not been put onto the form in the way that i want to access them. Is there an easy way to access them, like using a number and if yes can i change the orders of the numbers to the order i want to access the controls. My file is 1.5mb in size, any ideas why. David Tag: How to insert a field in a table cell Tag: 72501
  - 7
    - How to print a doc using absolute page numbers? Is there any way to print a document using absolute page number? For example let's say my doc has 10 pages. The absolute 6th page is the 2nd page of section 3 (p2s3). In the print dialog if I give p2s3 it prints the correct page. Similarly is there a syntax to give the absolute page number in the print dialog? (what I want is something like: (some symbol)6 to be given in the print dialog and to print the absolute 6th page. ) Thank you for any information. Best regards, Thushan Tag: How to insert a field in a table cell Tag: 72500
  - 8
    - Add-ins Hi All, Sorry to ask such a simple question but I have had a good search of google and can't find a simple answer. How do you create a word add-in? I am quite experienced with excel and vba but have never touched word before. Alternatively if someone has a good URL that would be great. Ta Andi Tag: How to insert a field in a table cell Tag: 72498
  - 9
    - Google search for word I would like to do a Google search for an Ops Guide in Word. The document is all text, no form fields. I have searched this forum and the best I can find is a repost below. Is is possible to modify this code with an input box to store the search variable and run a modifed version below? Jay? I've tried to modify this code but was unsucessful. Thanks, Geoff start google search from formfield content? All 3 messages in topic - view as tree Gordon Filby May 28 2003, 2:54 am show options Newsgroups: microsoft.public.word.vba.general From: "Gordon Filby" <Gordon.Fi...@pef.fzk.de> - Find messages by this author Date: Wed, 28 May 2003 09:51:53 +0200 Local: Wed, May 28 2003 2:51 am Subject: start google search from formfield content? Reply to Author | Forward | Print | Individual Message | Show original | Report Abuse Hi, I would like to open a document containing a number of formfields, select one of them and use its contents as parameters for a Google search. All this should happen via a mouse on a button located on a command bar. Is this possible? Thanks for any tips. Gordon Filby Jay Freedman May 28 2003, 11:40 am show options Newsgroups: microsoft.public.word.vba.general From: "Jay Freedman" <jay.freed...@verizon.net> - Find messages by this author Date: Wed, 28 May 2003 12:37:38 -0400 Local: Wed, May 28 2003 11:37 am Subject: Re: start google search from formfield content? Reply to Author | Forward | Print | Individual Message | Show original | Report Abuse Hi, Gordon, This might be a bit over-engineered :-) but it does work. Put the macro into your template, and assign a toolbar button to run the macro. It will fire a Google search for the contents of whatever formfield has the focus. Sub GoogleIt() Dim SearchTerms As String Dim oFld As FormField Dim oHyper As Hyperlink On Error GoTo badfield For Each oFld In ActiveDocument.FormFields If Selection.Range.InRange(oFld.R=ADange) Then SearchTerms =3D oFld.Result Exit For End If Next oFld If SearchTerms <> "" Then Set oHyper =3D ActiveDocument.Hyperlinks.Add( _ Anchor:=3DActiveDocument.Range, _ Address:=3D"http://www.google.com/search?q=3D" & SearchTerms) oHyper.Follow oHyper.Delete End If badfield: End Sub -- Regards, Jay Freedman Microsoft Word MVP Word MVP FAQ site: http://www.mvps.org/word - Hide quoted text - - Show quoted text - Gordon Filby wrote: > Hi, > I would like to open a document containing a number of formfields, > select one of them and use its contents as parameters for a Google > search. All this should happen via a mouse on a button located on a > command bar. Is this possible? > Thanks for any tips. > Gordon Filby Jay Freedman Jun 2 2003, 11:16 am show options Newsgroups: microsoft.public.word.vba.general From: "Jay Freedman" <jay.freed...@verizon.net> - Find messages by this author Date: Mon, 2 Jun 2003 12:15:36 -0400 Local: Mon, Jun 2 2003 11:15 am Subject: Re: start google search from formfield content? Reply to Author | Forward | Print | Individual Message | Show original | Report Abuse [replied and posted to the microsoft.public.word.vba.gene=ADral newsgroup] To find only German language pages, change the Address parameter of the hyperlink this way: Address:=3D"http://www.google.com/search?q=3D" _ & SearchTerms & "&lr=3Dlang_de") Gordon Filby wrote by email: > Thanks - that is just what I needed. Another question in this context in > Address:=3D"http://www.google.com/search?q=3D" & SearchTerms) do you > know how to restrict the search only to German language pages. Google > allows this in its special config. page. -- Regards, Jay Freedman Microsoft Word MVP Word MVP FAQ site: http://www.mvps.org/word - Hide quoted text - - Show quoted text - Tag: How to insert a field in a table cell Tag: 72496
  - 10
    - Code to open Power Point Show I am running WIN XP Pro and Office 2003 Pro I cannot get a hyperlink in Word to run a PPS. It will open file and I can navigate the slides, but it does not run as a PPS. I thought of using a command button to run the PPS from Word. I will appreciate if someone is will to provide the code to assign to the command button. The PPS file and Word file will be on the same CD. Thanks Tag: How to insert a field in a table cell Tag: 72494
  - 11
    - How to tell if macro has been executed I have a series of macros that offers the user options to run all or only part of the macros. It opens with a form that has check boxes with three selections (Insert Table of Contents, add Frame and add Page Border) and the user can select all or only one, etc. The program runs fine the first time through, but if it is run again it can get messy if options already run are chosen again. Is there a way that I can check to see if a selection has been executed, even if the document has been closed and re-opened? Thank you. Tag: How to insert a field in a table cell Tag: 72493
  - 12
    - Word 200 Blank document Every time i open a blank document there is text from another document already there. How can i stop this? Cheers -- Rye Tag: How to insert a field in a table cell Tag: 72491
  - 13
    - Linking a grid to a recordset in a word form I have tried several grid controls and ways without success Anyone can tell me how can do it? Tag: How to insert a field in a table cell Tag: 72486
  - 14
    - cut and paste Russian text to other application I need to cut and paste the Russian text from Word document to Quark. When people sent it to me, the characters display as emty squares (extension as ".doc". I open up the document and resave it as ".RTF". I can see the characters then, no problem with cut and paste the same text within Word. The problem happens when I try to paste the same string of this text to another application, like Quark. They are underscores. I select them and change the fonts, nothing happends, or only one or two characters appear. The fonts I try are anything with Cyrillic. I notice that there are couple options as I paste the text in Word: paste with unformat, paste with format, and one last one I can't remember. I try many differnt ways, and a few words come up. What do I have to set up my computer? fonts? anything ... in order to always have this success everytime. I just purchase Word 2004, and in the OS X system. It seems like the system is current enough to handle. I used to have to copy and paste every character I found to create a string of text (very painfull), but now the work load are much bigger, I can't afford to do the same thing. What are the problem? Please help. Please don't say that the problem is Quark. If there is what do I need to set up in Quark? Tag: How to insert a field in a table cell Tag: 72485
  - 15
    - Same template doesn't work in a doc Hello I have a .dot with my simple macros and an extra tool bar to use the macros. I also have two key documents that both make reference to the macros and tool bar in the .dot One document works fine and a click on the tool bar gives an instantaneous result while the other document needs many clicks before the macro works and then it takes ages. Sometimes, I need to click in the document as well for the macro to work and the message 'document not responding' is displayed while the hourglass icon is running. What could be causing the first document not to work well when it uses the same macros/toolbar as the second one. Thanks in advance Dave Neve The only difference for me is that the document that works well is much shorter. Tag: How to insert a field in a table cell Tag: 72484
  - 16
    - How can I insert tabs in a number with a macro? I need to create a macro to paste a list of numbers while inserting tabs within the numbers. I work in Reflection for IBM (sessions) and Office 2000, soon to be Office 2003. I need to get a list of ICN's (example 0204123456090) out of a stats table located on our intranet. Those ICN's, (claim numbers) need pasted onto a list fetch screen. This screen allows 1 to 100 claim numbers to be keyed onto the screen so they can be retrieved for processing. I have already made the macro to extract the numbers from the table on our intranet and then displays the numbers in a column like; 0204123456000 0204123456060 in a work document. I can't figure out how to make the macro paste this list of numbers by inserting tabs in them. The screen that they will be posted to has the following format; 02 04123 456 000 02 04123 456 060 This is what the screen looks like 00 02 04123 456 000 01 02 04123 456 060 02 02 04123 457 780 it has 00...99 to indicate how many ICN's are pasted. Also, it will not always be the same amount of numbers that needs to be pasted. I hope I have explained this clear enough. Tag: How to insert a field in a table cell Tag: 72482
  - 17
    - Multiple asswords protected documents Hi, I have several hundred forms that are pasword protected. SpellCheck does not run on pasword protected forms. In order to run SpellCheck I have installed a VB script that allows SpellCheck to run. This script is based on a single password. However, there are two passwords. How do I add the second password to the following script so that SpellCheck works on both passwords. oDoc.Unprotect Password:="mazie" Thanks, Ken -- KenCurtis -- KenCurtis Tag: How to insert a field in a table cell Tag: 72480
  - 18
    - msvcr70.dll error in Word 2002 I starting getting the following error in Word 2002. "Winword.exe unable to locate MSVCR70.dll" I did a clean uninstall & reinstall x2, did not fix. I tried the detect & repair in Word, did not find or fix. I looked on MS site, can only locate info on where the file should be, not the file to download. Since softeware is OEM w/Dell, Dell say that its not their problem, contact MS - MS says, contact Dell its OEM - not their problem. LOL Anyone had this problem or any suggestions? Software is Word 2002, SP3 part of Office XP - all files are up 2 date. Tag: How to insert a field in a table cell Tag: 72478
  - 19
    - about variables and subs I have a problem regarding subs; private, regular, public and static ones. A practical problem. I cannot seem to transform theory into practise. Whenever I try to find info on this, on help within the program, on online help, in newsgroups, I find myself giving up â?? almost. So I write instead. Maybe there are more people than I also having trouble on this subject â?¦ I understand the difference between â??Regularâ?? subâ??s and â??Privateâ?? subs. This both clear and evident when used. They have different scope â?? one only works in a module, the other in the whole project. This becomes very evident, if not before, when trying to name a sub with the same name â?? works perfectly in a Private Sub, not so in a regular one (I know, I know â?? this is not what I usually do. I don't use the same name for every sub I have â?? it was an exampleâ?¦) So far so good, it is then the trouble begins. For I canâ??t seem to comprehend beyond that â?¦ I know there are other kinds of Subâ??s. I know there are â??Publicâ?? ones and there are â??Staticâ?? ones. I just canâ??t seem to make them work! I would like to for example place a Public or Static (dunno which, one of themâ?¦) in for example an Autostart macro. In that macro, I would dim a number of variables: name, special paths to certain directories and so on and so onâ?¦ After doing that, I would be able to access these variables from ANY template. This I cannot to. Whenever I change/rename/create a directory, I still have to edit each macro - manually. This is both time and labour consuming. Not to mention â?? how tedious it is. There should be something easier â??out thereâ?? -- Tag: How to insert a field in a table cell Tag: 72472
  - 20
    - Display "folder name" in text I am running Word 2000 and I am trying to figure out how to display just the folder name into a word text, header, and footer. I have come to the conclusion this will require a macro. But i am not smart enough to know the code. Basically, I want to be able to hit a hotkey or button on my toolbar and display the "folder name" without any address attached to it. I want it to print in the current font and size. Much like the "file name" autotext feature. I will also need instructions on how to add this to normal.dot. Thank-you for your help, and I apologize if this has been already covered. I might have been searching with the wrong keywords or something. -- Thanx, Shim E Tag: How to insert a field in a table cell Tag: 72470
  - 21
    - Insert pictures into same document sequentially I have 1 doc that I would like to add 4 pictures to. Then using the same doc add 4 more pictures again. ie 400 pics on 100 pages all added sequentially. Tag: How to insert a field in a table cell Tag: 72468
  - 22
    - Formula to bold please. Hello from Steved I would like the formula to find "by" bold it then bold Straight Strike, $66,363 then do the same to the others I have over 2 hundred of them . Thankyou by Straight Strike, $66,363 by Fantasy Life, $12,250 by Oak Ridge, $43,375 by King Delamere, $34,138 by War Hawk II, $23,400 by Bellissimo, $27,685 Tag: How to insert a field in a table cell Tag: 72459
  - 23
    - word 2002 labels When opening envelope/label tab I no longer can see the layout lines. Can anyone suggest a fix? Tag: How to insert a field in a table cell Tag: 72458
  - 24
    - ActiveDocument.CommandBars picks the wrong CommandBar I have a quote template that pulls in parts and descriptions from a database and turns them all into a nice quote, which is also merged and linked with GoldMine. It has a custom toolbar and one the buttons on the toolbar allows the user to pick a salesman and automatically inserts the salesman's name and title, signature and next quote number. After the user picks a salesman I'd like to disable the Select Salesman toolbar button, since it will screw up the quote if they do it more than once. So I save whether a salesman was picked as a custom property in the quote, a la Set docp = doc.CustomDocumentProperties With docp.Add("qtFSalesman", False, msoPropertyTypeBoolean, True) ' We don't really need to do anything here, but we could... End With ' Once the salesman is selected don't allow another selection. CommandBars("Quotes").Controls(1).Enabled = False Later, if the document is opened, code in Document_Open() does pretty much the same thing: ' Read the custom document property "qtFSalesman" and allow or ' disallow the salesman selection based on the property value. fSalesman = ActiveDocument.CustomDocumentProperties("qtFSalesman") ActiveDocument.CommandBars("Quotes").Controls(1).Enabled = _ Not fSalesman My problem is that users don't get the custom toolbar just by creating a new document based on the template. So they go to Tools...Add-Ins and explicitly add .dot template as a global template. When the code runs it disables the toolbar in the _template_, not in the new document. How can I only disable the Salesman button on the toolbar of the new document? Thanks in advance, Dan. Tag: How to insert a field in a table cell Tag: 72455
  - 25
    - How can I Maximize Task Pane? Hi all, I would like to maximize Task Pane (or ActionsPane) when Word is opened. Or any way to control the size of the Task Pane programmatically? Many thanks! Regards, William Yip Tag: How to insert a field in a table cell Tag: 72454

I use "ActiveDocument.Fields.Add Range:=..." all over the document and it
works fine. When the range is myTbl.Columns(1).Cells(1).Range I get "Runtime
error '4605' This command is not available". What am I doing wrong please?

Top

RE: How to insert a field in a table cell by ChuckHenrich

ChuckHenrich
Wed Aug 17 10:38:13 CDT 2005

The table cell range includes the table cell marker. You need to exclude
that by collapsing the range or moving the end eg:

Dim rngRange As Range

Set rngRange = ActiveDocument.Tables(1).Columns(1).Cells(1).Range
rngRange.Collapse wdCollapseStart
ActiveDocument.Fields.Add rngRange, wdFieldDate

or

Dim rngRange As Range

Set rngRange = ActiveDocument.Tables(1).Columns(1).Cells(1).Range
rngRange.MoveEnd wdCharacter, -1
ActiveDocument.Fields.Add rngRange, wdFieldDate

--
Chuck Henrich
www.ProductivityApps.com

"Peter" wrote:

> I use "ActiveDocument.Fields.Add Range:=..." all over the document and it
> works fine. When the range is myTbl.Columns(1).Cells(1).Range I get "Runtime
> error '4605' This command is not available". What am I doing wrong please?

Top