insert data at cursor position

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - When the .doc file is locked for editing? Hi, friends, When running the following code, I got an error at line msdoc.Close (see code below) Run-time error -2147417851(80010105) Dim mswd As New Word.Application Dim msdoc As Word.Document Set msdoc = mswd.Documents.Open("c:\templateHF.doc") msdoc.Range.InsertFile "c:\CQInfo.doc" msdoc.Close mswd.Quit As a result, could not open file TemplateHF.doc anymore. It said this file is locked for editing. (If before msdoc.Close, I add: msdoc.SaveAs "c:\new.doc", this new.doc is locked for edition too). Any ideas? Thanks. Tag: insert data at cursor position Tag: 82268
  - 2
    - Best way to use a flexible word table with printmerge I have a standard report which is produced using Word and Excel (printmerge). In the standard report, I have tables which can vary (lines name, number of items, column width) I have try different solutions (2) and all of them have signifiant problems. Does anyone have already done something like that ? Approach #1: I have add all tables in Excel and link it to Word using: Link Excel.Sheet.8 "Variable_path" "Variable_cells". The tables are very flexible but I have the following problems: 1- Standard Excel Underline height is defined as 1/2 point in Word and I would like to have 1/4 point in Word (Would like to find a way to adjust Word height in excel) 2- The link is not stable, Word 2003 SP3 jam often. 3- The file path name must be inside excel as a variable; I would like to point directly to the same excel file as printmerge. Approach #2: All tables are make inside Word using variables. Since I want a line between each table line, I can't put all conditions in a box. The problems with this Approach are: 1- The table column width can't be adjusted. 2- Since I want to have border between each elements, I have to create split the table in n box with condition on each box. It always insert one empty line between each elements. ex: IF( Mergefield Item9 )<> "" " <Table with border> " "") (this give a line between each table line) would like to have: ex: IF( Mergefield Item9 )<> "" "<Table with border>" "") (Impossible to add " in the same line as the table line) Does it exist other solutions to my problem ?? Is there a table merge function in Word ?? (Only one excel data line is used for the text merge and tables could takes source from excel) Thanks. -- Alex St-Pierre Tag: insert data at cursor position Tag: 82267
  - 3
    - Remove XML Tag in Word Is it possible to delete the XML tag programmatically without deleting the text within the tag? Tag: insert data at cursor position Tag: 82265
  - 4
    - FSO resources Where and how can I find resources, help and explanation, for the 'scripting' facilities in VBA, in particular the 'file system object'? Thank you Martin Tag: insert data at cursor position Tag: 82264
  - 5
    - Ms Word Drop Down Behaving weird Hello, Im having some trouble with a drop down that i created in Ms Word. I had used some VB code to fill in the values for the drop down. When i open the document the drop down fills in correctly but for some reason i cannot scroll WITHIN the drop down list. If i use the mouse wheel to scroll the list detaches from the drop down and the whole page scrolls up or down but the list just still remains under the cursor the way it is. If i use the Scroll bars inside the drop down however it works fine... whats happening here! Regards, Tag: insert data at cursor position Tag: 82261
  - 6
    - Check date in row I know this is simple but I cant get it right. I have a report that I only want to update if the data is not already there. Right now if the last row is the same as the date on the report things work well. But if the report is run with a date that has already been run it adds this data. How do I check row a to see if the date is there? Sub KeepRecords() 'Check sheet ("MTD").Range (A:A) If value is same as("REPORT"). range ("P1") date GoTo end sub. 'If value different add data from REPORT sheet. Application.ScreenUpdating = False Dim LastRow As Object Set LastRow = Sheets("MTD").Range("A65536").End(xlUp) If LastRow = Sheets("Report_Date").Range("D3") Then GoTo 1 Dim NextRow As Object Set NextRow = Sheets("MTD").Range("A65536").End(xlUp) With NextRow .Offset(1, 0) = Sheets("Report").Range("P1") .Offset(1, 1) = Sheets("Report").Range("C4") .Offset(1, 2) = Sheets("Report").Range("C5") .Offset(1, 3) = Sheets("Report").Range("C6") .Offset(1, 4) = Sheets("Report").Range("G4") .Offset(1, 5) = Sheets("Report").Range("G5") .Offset(1, 6) = Sheets("Report").Range("G6") .Offset(1, 7) = Sheets("Report").Range("G7") .Offset(1, 8) = Sheets("Report").Range("I6") End With 1 End Function Tag: insert data at cursor position Tag: 82250
  - 7
    - SAVE docuemtn from template I made a template in WORD But what am trying to do now is that When the template is open should be a wdDialogFileSaveAs should be started But when the user clicks on cancel the template should be closed and not be used anymore i thought of solving it like that MsgBox "SAVE befor you start â?¦ " activedocument.Saved = False CommandBars.FindControl(ID:=3).Execute If activedocument.Saved Then ' MsgBox "The document was saved." ' If MsgBox("you dont want to save the doc? ?", vbYesNo + vbQuestion, SAVING) = vbNo Then ' activedocument.Close ' activedocument.Close RecentFiles(1).Open yesNo = yes Else MsgBox "somting " But i always get Error or it doesnâ??t work good .. Help .. any tips ? Tag: insert data at cursor position Tag: 82249
  - 8
    - VB to excel Hi I have been asked to create a front end where users will enter values and then them values will be put into an excel sheet. I am able to put values in excel. But the problem is that there are 15 users and of course if one person is updating a worksheet then it is locked for the others. Also the people I am doing this for dont have Microsoft Access on there server. I really need some tips on how to go about this. I have been told to write the values to a '.csv' file. Will that make a difference? Or how about XML? Can I store data with that and then move it into excel? I am only 19 years of age and I want to go about this the best way possible. So I would really appreciate any input. Tag: insert data at cursor position Tag: 82247
  - 9
    - How to run autoexec macro in addins programmatically I want to run autoexec macro in addins, and call the Add method of the AddIns collection. The addins are loaded, and the Installed property is True. But the autoexec macro in the addins is not run. Why? How to run autoexec macro in addins programmatically? I write the code as follows: Dim gwdApp As Word.Application Dim strFileName As String strFileName = Dir(gwdApp.Path & "\STARTUP\") Do While strFileName <> "" gwdApp.AddIns.Add gwdApp.Path & "\STARTUP\" & strFileName, True strFileName = Dir Loop 'User Profile Addins strFileName = Dir(gwdApp.StartupPath & "") Do While strFileName <> "" gwdApp.AddIns.Add gwdApp.StartupPath & "\" & strFileName, True strFileName = Dir Loop Thanks advance Liu Jianzhong Tag: insert data at cursor position Tag: 82244
  - 10
    - I cannot refer to fonts when find while recording a macro. Help. I'm trying to replace all instances of a given character with the same character in Times New Roman. This is straightforward using Word's find and replace feature. I have to do this often for several characters, so I tried writing a macro for it. Unfortunately, the macro recorder wouldn't save any font specifications, thus it replaced all instances of the character in question with itself, withouth changing the font. In other words, the macro does nothing. Is there some way to make this work? Tag: insert data at cursor position Tag: 82239
  - 11
    - macro security I have some templates that have macros in them. Is there a way I can "signature" them or something and then make them a "trusted site" in my word 2003. Then I wouldn't have to have my macro security setting turned down to low. thanks, ck Tag: insert data at cursor position Tag: 82238
  - 12
    - organizing a large macro I'm writing a numbering suite for Word 2003. When testing my first try, users found bugs and want more features. When I was writing it, i found myself creating word tables documenting arrays, lists of variables and code snippets. Now that I have to go back into the macro, I realize that the hardest part is keeping my thinking organized. Does anybody know an easy way to document and organize this stuff? I've looked at UML but it seems like the learning curve is pretty steep and most programs that use UML are not made for VBA. thanks, Liz Tag: insert data at cursor position Tag: 82233
  - 13
    - Can I create a macro to find more than one possible date and change to current date? I've been reading through these Word groups for a couple months now, and I've found plenty of information and answers to my problems - up until now. I've spent a fair amount of time trying to find a solution to this, but I've been coming up with nothing so far, which I find somewhat embarrassing, as I've this seems like it should be rather simple. I update forms all the time - all of which have a version date in the footer of (mm/yy). I already have a basic macro that will open up the footers, change the date, move to the next footer, repeat until necessary, and then close the footer view. The problem is that I have to constantly edit the macro so the dates are what I need. If I open up a document with a (02/06) date, and my macro is set up to find (01/06), I need to edit the macro. I simply want a macro that will search and replace more possibilities at once. Whether the form has a (01/06) date or a (02/06) date, I want to change it to (03/06). I'd be happy opening up the code once month and changing that (03/06) to whatever date it is at the time. Currently, my code is: ActiveWindow.ActivePane.View.SeekView = _ wdSeekCurrentPageFooter Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "(01/06)" .Replacement.Text = "(03/06)" End With Selection.Find.Execute Replace:=wdReplaceAll ActiveWindow.ActivePane.View.NextHeaderFooter On Error Resume Next Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "(01/06)" .Replacement.Text = "(03/06)" End With Selection.Find.Execute Replace:=wdReplaceAll ActiveWindow.ActivePane.View.NextHeaderFooter On Error Resume Next Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting With Selection.Find .Text = "(01/06)" .Replacement.Text = "(03/06)" End With Selection.Find.Execute Replace:=wdReplaceAll ActiveWindow.ActivePane.View.NextHeaderFooter On Error Resume Next ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument The bulk of the command runs 3 times because I don't know if can get it to loop properly otherwise. The "On Error Resume Next" is in there because sometimes the document will be fewer pages than the instances of the "ActiveWindow.ActivePane.View.NextHeaderFooter" command. Without, I get an error message and the macro doesn't run properly. Thanks in advance for any help. Until then, I'll continue to search. - Mike Tag: insert data at cursor position Tag: 82229
  - 14
    - Word Macro doesn't seem to be executing any API function calls I am working with a Word Macro. In the macro there are calls to GetTempPathA API function. A client has XP and Word 2000 and the return value of this call is 0 with no dll error number. So far this is the only client that has this problem. Here is the code for the call: Private Declare Function GetTempDir Lib "kernel32" Alias "GetTempPathA" (ByVal nBufferLength As Long, _ ByVal lpBuffer As String) As Long Const MAX_PATH = 260 Dim lReturnVal As Long Dim sTempDir As String * MAX_PATH Dim lLastDllError As Long Dim errDesc As String On Error GoTo Handle_Error lReturnVal = GetTempDir(MAX_PATH, sTempDir) If lReturnVal = 0 Then 'error lLastDllError = Err.LastDllError I work with another program that is written in Visual Basic and makes the same call to get the temporary directory and writes a file in the directory. The Word macro now needs to read this file, so I know the API calls are working for VB but not for VBA. Does anybody have an idea of what might be the problem? Tag: insert data at cursor position Tag: 82225
  - 15
    - Creating a word document from ASP.NET and transfer data I would like to create a Word document from my ASP.NET website. I want to use a button that does the actual creation including the transfer of data from my webform to the Word document. The trick is also that I want the document to be created on the clients machine. Can anyone help me get a headstart? I'm pretty new at this. Tag: insert data at cursor position Tag: 82215
  - 16
    - How to merge two .doc files? Hi, friends, I need to merge 2 .doc files: One contains template Header and Footer only, and the other contains required info. I did the follows: Dim mswd As New Word.Application Dim msdoc As Word.Document Set msdoc = mswd.Documents.Open("c:\templateHF.doc") msdoc.Merge "c:\CQInfo.doc" msdoc.Close mswd.Quit However, I got an error: Run-time error 4198 on msdoc.Merge "c:\CQInfo.doc" line. Could anyone help? Any sample source code? Thanks a lot. Tag: insert data at cursor position Tag: 82214
  - 17
    - Find & Replace: formatting, like bold I need a macro that searches for telephone numbers and replaces them with same number + format = bold. How? Recording a macro for this does not work: the recorded macro only deletes the telephone numbers =). So I search for one of these: ^#^#^# ^#^#^#^# ^#^#^# ^#^#^# ^#^#^#^# ^#^#^#^ #^#^# ^#^#^#^ And replace them with same + format =bold. Tag: insert data at cursor position Tag: 82210
  - 18
    - Option Button error I created a table with many option buttons. I keep getting the error message "Can't exit design mode because control 'OptionButton 2211311 cannot be created.' I look through the option button properties but can't find the one this error refers to. Why am I getting this error? Susan Spencer Tag: insert data at cursor position Tag: 82201
  - 19
    - Save button in Word I have a command button at the end of a form to prompt users to save the document to their desktop. Does anyone know the code to do this? Tag: insert data at cursor position Tag: 82188
  - 20
    - creating a save button in a word document I have a button in a word document that prompts the user to save the document after they've completed it. Can anyone tell me the code to get this button to save the document to their desktop? Tag: insert data at cursor position Tag: 82187
  - 21
    - Have 2000 and XP versions on same machine? My dreaded IT upgrade is looming close to hand! They'll take my poor machine away, wipe it, and install the new and "improved" image. It will immediately take me into the XP versions of Windows, Word, and Excel. I'm concerned about making macros for others who still have the 2000 versions of Word and Excel. I know it's possible to have both versions on the same machine, and I can probably twist an arm to get this done. Are there any caveats or "gotchas" to be aware of during the installation so we wind up with both versions of both programs running smoothly? Ed Tag: insert data at cursor position Tag: 82185
  - 22
    - reset font format to default but keep the bold formatting..>> hello, I'm looking for a way to remove all font formatting from a Word document except the bold. Appreciate any suggestions. Thanks, Michiel Tag: insert data at cursor position Tag: 82183
  - 23
    - Is there a type lib for Equation.3 ? Hi, I have recently been coding with VC++. I use an automation client to add an equation to a word document hereunder: ...... _Application app; app.CreateDispatch("Word.Application"); app.SetVisible(TRUE); _variant_t vtNULL((long)DISP_E_PARAMNOTFOUND, VT_ERROR); Documents docs(app.GetDocuments()); _Document _doc(docs.Add(&vtNULL, &vtNULL, &vtNULL, &vtNULL)); InlineShapes shapes(_doc.GetInlineShapes()); _variant_t vtCls("Equation.3"); LPDISPATCH lpDisp = shapes.AddOLEObject(&vtCls, &vtNULL, &vtNULL, &vtNULL, &vtNULL, &vtNULL, &vtNULL, &vtNULL); ...... the equation is inserted successfully and the inserting function returns a pointer of type LPDISPATCH to the OLE object. My question is, how can i add more content to the equation with this pointer? Is there a type lib for "Microsoft Equation.3"? Thanks in advance Joe China Tag: insert data at cursor position Tag: 82182
  - 24
    - Automatically update document styles failsafe Greetings: To begin with, I'm *not* a programmer, so please keep this in mind when you reply. This is a relatively long post on the theory that too much information and detail up front is better than too little. I'm using Word 2003 on Windows XP. Problem I'm trying to resolve: automatically unselect the "Automatically update document styles" on the Tools/Templates and Add-Ins... dialog whenever someone uses the dialog to refresh a document's styles from its attached template. I've been following the steps detailed in the MVP article at http://word.mvps.org/faqs/macrosvba/UpdateStyles.htm with partial success but am encountering some frustrating issues. The code below (snipped from the article) breaks the document's attachment to a custom global template (after I refresh the document styles), and with the Tools/Templates and Add-Ins... dialog mostly greyed out, I can't reattach it without quitting Word and restarting: Sub FileTemplates() With Dialogs(wdDialogToolsTemplates) .Show If .LinkStyles = 1 Then ActiveDocument.UpdateStyles Dim oLT As ListTemplate On Error Resume Next For Each oLT In ActiveDocument.AttachedTemplate.ListTemplates If Not oLT.Name = "" Then If Not ActiveDocument.ListTemplates(oLT.Name).ListLevels(1) _ .LinkedStyle = oLT.ListLevels(1).LinkedStyle Then ActiveDocument.UpdateStyles Exit For End If End If Next oLT ActiveDocument.UpdateStylesOnOpen = False End If End With End Sub When I try the code below (also snipped from the MVP article -- a workaround to the menu display bug from the first solution), it errors out at the first line: CommandBars.FindControl(ID:=751).Execute and I haven't been able to figure out why. Sub ReplacementToolsTemplatesAndAddins() 'Execute the built-in button CommandBars.FindControl(ID:=751).Execute If Dialogs(wdDialogToolsTemplates).LinkStyles = 1 Then Dim oDoc As Document, oLT As ListTemplate Set oDoc = ActiveDocument oDoc.UpdateStyles On Error Resume Next For Each oLT In oDoc.AttachedTemplate.ListTemplates If Not oLT.Name = "" Then If Not oDoc.ListTemplates(oLT.Name).ListLevels(1) _ .LinkedStyle = oLT.ListLevels(1).LinkedStyle Then oDoc.UpdateStyles Exit For End If End If Next oLT oDoc.UpdateStylesOnOpen = False End If End Sub All I really need here is to have a failsafe for the "Automatically update document styles" checkbox, and to keep (or reattach) my custom global template. Thanks in advance for your help, -- Susan Technical Writer Tag: insert data at cursor position Tag: 82178
  - 25
    - VBA-code cached? Hi I have recently been developing in two separate VBA-projects, one in Word 2000 and the other in Word 2003. Suddenly, in the testing-fase, one user seems to be running old code. In one example I made a small but significant change in the code and saved the template over the old one. When the user starts the test, the old code seems to be running. I have now seen this behaviour with two separate customers, and also in the two separate word-versions I mentioned above. Is there some place in the client computer where VBA-code is cached? Thanks in advance Peter KarlstrÃ¶m Midrange AB Sweden Tag: insert data at cursor position Tag: 82171
- Next
  - 1
    - Is it possible to change the position of an InlineShape? I'm working with many InlineShapes and need to move them around the document. Getting the Range they're anchored to and changing it (e.g. modifying "Start" and "End" properties) doesn't seem to have any effect. I can, in the Word document, cut and paste an InlineShape (thus moving it). However, you have to select, in addition to the InlineShape, a character before it or after it for the selection to "appear" and for you to be able to cut it. If I access the Range of the InlineShape programmatically and try and select it or cut it, nothing happens. If I grow the range by a character, I _can_ select that, and then cut it. A hack way of moving the InlineShape is to insert some whitespace before or after the InlineShape, select it, cut it, and delete the whitespace on pasting. Is there a less circuitous way of moving the InlineShape around in the document? (I realize, besides cutting and pasting, I can also use Range.Move() to move it) Someone in this thread mentioned the Shape.Range.Position property, which VSTO doesn't expose apparently. http://msdn.microsoft.com/newsgroups/default.aspx?dg=microsoft.public.word.vba.general&tid=3dc224a4-d650-42b5-abf0-22973b0878d6&cat=en-us-msdn-officedev-word&lang=en&cr=US&sloc=en-us&m=1&p=1 I posted this question previously in the VSTO forum, but they suggested I come here. Thanks Tag: insert data at cursor position Tag: 82170
  - 2
    - finding the week number in word I can't figure out how to find the week number if a date is entered in Microsoft Word 2003. For example 1/1/2006 would be week 1. Excel has this feature(Weeknum) but I need to use it in word. Can anyone help me with this? Tag: insert data at cursor position Tag: 82167
  - 3
    - How to adjust size line when copying data from excel to word I have copy and paste a table from excel to word and all lines are define as 1/2 point lenght. I link the data table using LINK excel8 function but I would like that all line 1/2 point be convert as 1/4 point. Does anyone know how to do that ? 1/4 point doesn't exist in excel ? Thanks. -- Alex St-Pierre Tag: insert data at cursor position Tag: 82165
  - 4
    - Runtime Error 91 I have a VB6 appplictaion that includes the following to do a spell check using Word: Dim SpellCheck As Object Set SpellCheck = CreateObject("Word.Application") SpellCheck.Visible = False SpellCheck.Documents.add SpellCheck.ActiveDocument.Select SpellCheck.ActiveDocument.CheckSpelling When I run using with Office Professional Word 2003 SP2 all works fine. But I have someone who runs using the Student Edition of Word 2003 SP2 and they always get runtime error 91 object not set error. I have not been able to trace through but could this result simply because the Student edition is being used? Tag: insert data at cursor position Tag: 82163
  - 5
    - how to play a sound when Word starts How can I get a word document to play a particular sound when I first open the document? -- Nak Tag: insert data at cursor position Tag: 82162
  - 6
    - Size Limit for Combobox Recordset Hello, I am currently creating a VBA Userform in Word and have hit a bit of a wall. On the userform I have a combobox that I am trying to populate using an Excel recordset. The recordset currently has 700 records however when I run the program the combobox is only loaded with first 500. Is there a way to change this and have all 700 records load? Z Tag: insert data at cursor position Tag: 82159
  - 7
    - Identify a Different Template for AutoText Entry Dear All, I have a sub that works. It looks to the normal.dot. to Find an autotext entry. I'd like to be able to tell it to look for a specific template elsewhere -- not necessarily one of the default template directories. A pointer in the direction of how to declare a different template as a variable would be appreciated. And, does the templated have to be "open" to be able to access an autotext entry?? Code for macro follows. Thnaks Ridge (in New Joisey) Public Sub DocNameAndPath() ' a macro to use the standard Word autotext entry ' "Filename and Path" stored in the normal template ' to add the filename and path to the end of a document Dim myRange As Range Dim oDoc As Object Set oDoc = ActiveDocument Set myRange = oDoc.Range myRange.Collapse (wdCollapseEnd) myRange.InsertAfter (vbCrLf) myRange.Font.Name = "arial" myRange.Font.Size = 8 myRange.Font.Italic = False myRange.Font.Bold = False myRange.Paragraphs.Alignment = (wdAlignParagraphLeft) NormalTemplate.AutoTextEntries("Filename and Path").Insert Where:=myRange, RichText:=True Set myRange = oDoc.Range myRange.Collapse (wdCollapseStart) myRange.Select End Sub Tag: insert data at cursor position Tag: 82158
  - 8
    - HOW CAN OTHER PEOPLE OPEN MY E-MAIL ATTACHMENTS? When I sent an attachment only half of the people on my list can open it. Is there an alternate way to send attachments so other systems can open them? Tag: insert data at cursor position Tag: 82157
  - 9
    - Problems with Template I am trying to take a form (which has been saved as a template and uses checkboxes and textboxes from the forms toolbar) and put it in a folder on our Network so different users can access the form. I would prefer that if one user is in the form, it will not allow other users to make changes until the form is saved and closed. The form has various MAIN group headers with a checkbox and my programming allows the user to check this main group header and it will check everything under that group (I did this with Macro's). When I email the form to other users for testing, it opens it with the title Document1 and will not execute the code (The template is saved as ProjectTemplate and I have a document that is saved as ProjectDocument). I need to know how I can put this form in a network folder so that when myself or any user opens it, it will have the changes made from the previous user. Do I need to put the template and the document in the folder? Any help is greatly appreciated. Another side note, when I open the template or the document, it asks me if I want to enable macros and I click yes. Also, I am on an XP operating system with a newer version of Word and some of the other people I have emailed the document to for testing are still on '98 machines. Could this be part of the problem? Tag: insert data at cursor position Tag: 82146
  - 10
    - Pictures are cut when they are inserted in the word document. Hello, I have a problem in programming word VBA. I want to insert graphs from the clipboard into a word document at all the positions where '[[Graph]]' is written. The document contains tables and has a layout with two text columns. At some positions in the document, a strange thing happens when I try to paste the graph there: I can see only the lower fourth of the picture when I format it "in line with text", but if I switch to the format "before text", than the whole graph is visible. Can anybody help me? Thanks Markus Tag: insert data at cursor position Tag: 82139
  - 11
    - Adding complex cross-reference Hi, in my documents I need to add quite a lot of cross-references. They also need to be of the type which will say " 3.4.13 How to kill a hamster, p. 49". Currently the only way for me to do this is to use my keyboard shortcut to bring up the corss reference window, select the paragraph and then use the dropdown menu 3 times to add the correct reference fields. This is very manual process, but I have not been able to automate it any more. I would think that this would be a standard requirement when writing long and complex documents. Does anybody have any suggestions how it could be made easier? Thanks, R. Tag: insert data at cursor position Tag: 82136
  - 12
    - Word fields Hi There I would like to set up a report template in Word. Within this template I would like to create a bespoke dialogue box that asks a series of questions which, when answered, will populate the relevant fields within the report eg: What is the Client Company's name? What is your business division/address? (for this question I would like pre-determined options ie drop-down menu) I am not familiar with 'code' so, if this is required, please can you start from the begining!! Many thanks Tag: insert data at cursor position Tag: 82135
  - 13
    - Reordering a document Hi, The main problem at hand is that I need to create a new document that contains the current documents data, just in a different page order. I can copy the needed page and paste it into a new document, but i cannot find a way to paste it at the end of the document. Please help:( Thanks Tag: insert data at cursor position Tag: 82134
  - 14
    - how can i convert upper class letters to lower class letters how can i convert upper class letters to lower class letters thank u cud u plz get back 2 me ASAP, as it is urgent... yasmin Tag: insert data at cursor position Tag: 82127
  - 15
    - Call an addin command from a macro? I have a commercial addin that creates bibliographies (Thomson's EndNote). It loads a .WLL and adds a group of commands under Tools. It has a .DOT file that provides a toolbar with the same commands. Can I call one of these commands from a macro? I tried selecting the command while recording a macro, but nothing gets recorded. The commands do not appear under the Commands tab of the Customize dialog. The toolbar button has an identifying name. Can I use that somehow? Thanks for any leads. Tag: insert data at cursor position Tag: 82120
  - 16
    - Mailmerge from excel I am trying to create a mailmerge in excel with the click of a button. When the button is clicked it opens word sucessfully. Sub OpenWord() Dim wdApp As Object Dim wdDoc As Object Set wdApp = CreateObject("Word.application") Set wdDoc = wdApp.Documents.Open _ (Filename:="C:\Documents and Settings\steve\My Documents\MyTestDoc.doc") wdDoc.Close savechanges:=False Set wdDoc = Nothing wdApp.Quit Set wdApp = Nothing End Sub The code I have placed in Word gives me an error (Ambiguous selection) at the second line .Destination=wdsendToPrinter. Private Sub Document_Open() With ActiveDocument.mailmerge .Destination = wdSendToPrinter .SuppressBlankLines = True With .DataSource .FirstRecord = wdDefaultFirstRecord .LastRecord = wdDefaultLastRecord End With .Execute Pause:=False End With End Sub I'm making the assumption (new to VBA in excel and word) that the document is not active but the spreadsheet is and therefore will not print. Not sure how to solve this. If anyone can give me any assistance it would be very much appreciated. Steve Walker Tag: insert data at cursor position Tag: 82111
  - 17
    - Shape I want to remove all the Shapes that are in the top of InlineShapes, and ONLY those. I already have a code that select the InLineShape and format them. What I can't do, is Delete all the Shapes in the select Paragraph, or in the InlineShapes. Can you help me with this? Tag: insert data at cursor position Tag: 82110
  - 18
    - VBA Class Hello, I'm teaching a 2 day Intro to VBA for MS Word class and was wondering if anyone had a recommendation for a training guide, reference guide, quick ref guides etc. that I can purchase and use for my students. I've already checked Amazon and there are a few things, but wanted to check with you all. Thanks Tag: insert data at cursor position Tag: 82106
  - 19
    - InlineShape position in document I need to know how I can get from VBScript position of InlineShape object in document... I mean relative position on page (Horizontal and vertical offset from any corner of page... Thanks for aswers, sorry for bad english... Tag: insert data at cursor position Tag: 82105
  - 20
    - Converting word doc with macro to html I have a word doc that has a series of tasks and then a check box after each question for the user to 'check' when they have performed the task. At the top of the page is a button with a macro attached that simply 'unchecks' all the checkboxes when pressed. What I really want to do is convert it to html so I can have it on a website (i know I could put the word doc there but html loads quicker), but when I 'save as web page' it loses the check boxes and macro. Anyone know how I could create the html? Thanks. Tag: insert data at cursor position Tag: 82103
  - 21
    - Setting font back to default in macro?? I have a macro that based on certain conditions changes the font to hidden and changes the color. Dim fHidden As New Font 'Setup hidden font for marker fHidden.Hidden = True fHidden.Bold = True fHidden.Color = wdColorOrange a.Insert(Where:=Selection.Range, RichText:=True).Font = fHidden The issue is that after this is done the font seems to remain set to these settings when another macro inserts text and doesn't specify a font setting. a.Insert Where:=Selection.Range, RichText:=True How can I easily get the font cleared back to the default settings? Tag: insert data at cursor position Tag: 82094
  - 22
    - Get line width from a range object in Word 2003 VBA Hello, I have a problem in programming word VBA. I want to insert graphs from the cliboard into a word document at all the positions where '[[Graph]]' is written. To setup the graph in the other program (MATLAB), I need the width of the line of the text column (the document has more than one column) the graph is pasted in. I locate the range objects with range.Find.execute "[[Graph]]". How can I get the width of the text column of this range object? Best regards Markus Tag: insert data at cursor position Tag: 82086
  - 23
    - Excel to VB Hi I have a simple spreadsheet that needs to be updated by more than 10 people Simultaneously. But this is not possible as the spreadsheet becomes locked when one person has it open. My first idea was to create a front end with a Microsoft database to store all records. But they do not have Microsft Access on their server. Now I am thinking of creating a vb front end application. This will include a few input boxes and an update command button which, will update the excel sheet with the latest data. I am 19 and new to programming. I really need to know what is the best way to go about this and few tips on how to code it. Many thanks Tag: insert data at cursor position Tag: 82080
  - 24
    - Selecting a text block Hi, I would like to write a simple macro what would activate "block select" (Ctrl+Shift+F8) and leave the block select" active until an appropriate action concerning the selected bloc is taking. I find that it is not possible to simply record the Ctrl+shift+F8 sequence. Can someone give me pointers? Thanks -- John Doue Tag: insert data at cursor position Tag: 82070
  - 25
    - Shapes I need to set the properties of a textbox programatically to anchor to the top of a line. Is it possible to programatically define the line that the textbox should be anchored to. Thanks Mark Baird Tag: insert data at cursor position Tag: 82062

How do I use "insert after" to insert data where I have the cursor at?

Thanks!

Re: insert data at cursor position by Jonathan

Jonathan
Wed Mar 08 10:58:06 CST 2006

"VBA Novice" <VBA Novice@discussions.microsoft.com> wrote in message
news:80464F29-E8A6-4FF1-B7F2-CFF92FF87E32@microsoft.com...
> How do I use "insert after" to insert data where I have the cursor at?
>
> Thanks!

Selection.InsertAfter "My text goes here"

--
Regards
Jonathan West - Word MVP
www.intelligentdocuments.co.uk
Please reply to the newsgroup
Keep your VBA code safe, sign the ClassicVB petition www.classicvb.org

Top

Re: insert data at cursor position by Cindy

Cindy
Wed Mar 08 11:21:41 CST 2006

Hi =?Utf-8?B?VkJBIE5vdmljZQ==?=,

> How do I use "insert after" to insert data where I have the cursor at?
>
Selection.InsertAfter "the new text"

Cindy Meister
INTER-Solutions, Switzerland
http://homepage.swissonline.ch/cindymeister (last update Jun 8 2004)
http://www.word.mvps.org

This reply is posted in the Newsgroup; please post any follow question
or reply in the newsgroup and not by e-mail :-)

Top