copy info from word to word form

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Paste to Toolbar Textbox Hi, I have a toolbar with a textbox - im trying to create a macro that will copy the selected text and auto paste to the textbox in the toolbar. This is what I thought would work but isint..... Any help would be appreciated. Sub Ldtaskbr() 'To paste selected text in 'Task' Toolbar Dim sendList As CommandBarComboBox ' list of users (Textbox) (2)' Set sendBar = Application.CommandBars("Task") Set sendList2 = sendBar.Controls.Add(Type:=msoControlEdit, Before:=1) Selection.Copy With sendList2 .Text = Slection.Paste End With End Sub Tag: copy info from word to word form Tag: 105322
  - 2
    - Intercepting built-in commands A long time ago (October 2003), Cindy Meister wrote in this newsgroup, under this subject line, the following: >Hi Andrew, > >> I'd love to be able to prevent users from >> applying a paragraph style to only a portion of a >> paragraph (we all know what kind of fun that leads to), > >This is now supported in Word 2003... > >Cindy Meister >INTER-Solutions, Switzerland >http://homepage.swissonline.ch/cindymeister (last update >Sep 30 2003) >http://www.mvps.org/word > >This reply is posted in the Newsgroup; please post any >follow question or reply in the newsgroup and not by e-mail >:-) I remember seeing this claim elsewhere and elsewhen from Cindy, and if I recall correctly it had to do with the Keep Track of Formatting setting under Tools > Options > Edit. But that doesn't work and I cannot find anything that does. Is there absolutely no way to intercept the command that triggers the application of a style from the Styles and Formatting menu in order to ensure that a paragraph style is applied only to an entire paragraph? I know that I can fix them after the fact but a macro that must paddle through a large document looking for every occurrence of every style that ends in " Char" will take a long time to process, while the user is waiting. TIA ---larry P.S. Who in the world ever thought this Word "feature" was desired and desirable??? Tag: copy info from word to word form Tag: 105321
  - 3
    - Wrapformat inline shapes I would like to cycle thru the inline shapes collection to change the wrapformat property of each shape to wdWrapTight. My code: Dim shp as Shape Dim shps as Shapes set shps = ActiveDocument.Shapes For Each shp in shps if shp.Type = msoPicture then with shp .Wrapformat.AllowOverlap = True .WrapFormat.Type = wdWrapTight end with End if Next 'shp This doesn't seem to do anything to the document's pictures (though it does run). I've tried using a collection of inlineshapes, but that doesn't seem to allow the .WrapFormat property Using record macro, I get the following code: Selection.ShapeRange.WrapFormat.Type = wdWrapTight but I can't figure out how to use this syntax with a collections object, to go through all the pictures in the document. What am I doing wrong? A second minor question: Using the Watch window, I can see the shape properties of the current shp object. How can I match the ID or name of the shape object to the actual picture object in the document, so that I can visually check that something is happening to it (I have a lot of pictures in this document - and I don't know which is the current shape object my code is working on). I can't find anyway to show the properties of the picture object in Normal (or any other view). Thanks! Tag: copy info from word to word form Tag: 105319
  - 4
    - Can't get Ask field to work I am a teacher & have a lesson plan template. I want to be able to go to file>>new, choose the lesson plan template & when it opens it gives me a box to enter the "week of." Then I want this information automatically inserted into the lesson plan file in three places. I almost had it working, then I somehow screwed it up! I hope someone can steer me in the right direction to get it working. Here's what I have currently: {ASK "Week"\*MERGEFORMAT}{QUOTE "Week"\*MERGEFORMAT}Lesson Plans CAPPS â?? Computer Applications Teacher: Allison Grade: 5 Week of: {Week} Monday Tuesday Wednesday Thursday Friday Objectives Methods Assessment Homework n/a n/a n/a n/a n/a Lesson Plans CAPPS â?? Computer Applications Teacher: Allison Grade: 6 Week of: {Week} Monday Tuesday Wednesday Thursday Friday Objectives Methods Assessment Homework n/a n/a n/a n/a n/a Lesson Plans CAPPS â?? Computer Applications Teacher: Allison Grade: 7 Week of: {Week} Monday Tuesday Wednesday Thursday Friday Objectives Methods Assessment Homework n/a n/a n/a n/a n/a Tag: copy info from word to word form Tag: 105316
  - 5
    - Paper Bins by DriverName Hi I am trying to create a macro across offices with various printer drivers to automate printing to certain bins. Can anyone please tell me if the below code is likely to work or suggest anything that will. The names of each printer differ on each pc but the driver names won't Sub DriverThick() sDriver = DriverName If InStr(sDriver, "HP Laserjet 4000 Series PCL6") > 0 Or InStr(sDriver, "HP Laserjet 4000 Series PCL5e") Then With ActiveDocument.PageSetup .FirstPageTray = wdPrinterLargeCapacityBin .OtherPagesTray = wdPrinterLargeCapacityBin End With ElseIf InStr(sDriver, "SHARP MX-4500N PCL5c") > 0 Or InStr(sDriver, "SHARP AR-M450 PCL6") Then With ActiveDocument.PageSetup .FirstPageTray = 258 .OtherPagesTray = 258 End With ElseIf InStr(sDriver, "SHARP AR-M450U PCL6") > 0 Then With ActiveDocument.PageSetup .FirstPageTray = wdPrinterMiddleBin .OtherPagesTray = wdPrinterMiddleBin End With End If ' Application.PrintOut filename:="", Range:=wdPrintAllDocument, Item:=wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, Collate:=True, Background:=True, PrintToFile:=False End Sub Many thanks Tag: copy info from word to word form Tag: 105313
  - 6
    - MsgBox Colour Is it possible to change the background colour of a msgbox using VBA without changing your overall windows appearance. The message box would be contained in a macro in Word 2000 and would appear when a certain thing was done in the macro. Thanks, Tag: copy info from word to word form Tag: 105309
  - 7
    - Input box and bar code field Hello, I'm trying to create a macro that will prompt a user for a zip code (5 or 9 character) and then insert a bar code. Here's what I have so far: Sub MyBarCode() Dim MyZipCode As String MyZipCode = InputBox("Enter Zip Code") Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _ "BARCODE \u MyZipCode ", PreserveFormatting:=True End Sub The macro runs and I enter a valid zip code but here's what I get at the cursor instead of a bar code: 'Zip Code Not Valid! I think the "\u MyZipCode" is the problem but I don't know how to fix it. Any help is appreciated. Thank you. Tag: copy info from word to word form Tag: 105307
  - 8
    - Macro to Repeat a table Hi all, i'm not sure what i'm doing wrong here and need some help please. I wrote a macro (AddTable) to repeat (copy and paste) the table located above the control button. Users can repeat the table as many times as they like. I also wrote another macro (DelTable) to delete any of the above tables. However, i don't want users to delete the very first table (I need at least one table to be in the form). In order to identify the first table (so that it doesn't get deleted), i gave a name ("Client1") to the first Text Form Field in that table. The macro that repeats the table, contains a line that changes that name for all the new added tables. This way, when users want to delete any of the tables, the 'Delete Macro' will first check the name of the first Text Field, if it is "Client1" then the table won't be deleted. When i run the 'AddTable' macro, I get an error message: Compile Error, Method or data member not found. This error seems to refer to the line that renames the form field. Here are both my codes AddTable and DelTable. Any ideas would be much appreciated. I'm using word 2003. Cheers, Tendresse Sub AddTable() ' Select the table above the control button Do Selection.MoveUp wdLine, 1 Loop While Selection.Tables.Count = 0 ' Copy and Paste Table Selection.Tables(1).Select Selection.Copy Selection.MoveDown Unit:=wdLine, Count:=1 Selection.TypeParagraph Selection.Paste ' Rename the first text field in the new table Do Selection.MoveUp wdLine, 1 Loop While Selection.Tables.Count = 0 Dim myFields As FormFields Set myFields = Selection.Tables(1).Range.FormFields myFields(1).Select ' the next line is where the error happens Selection.myFields(1).Name = "CanDelete" ' clear field contents in the new table Dim i As Integer For i = 1 To myFields.Count Select Case myFields(i).Type Case wdFieldFormTextInput myFields(i).Result = myFields(i).TextInput.Default Case wdFieldFormCheckBox myFields(i).CheckBox.Value = myFields(i).CheckBox.Default Case wdFieldFormDropDown myFields(i).DropDown.Value = myFields(i).DropDown.Default End Select Next i End Sub ________________________________________ Sub DelTable() ' Select table above control button Do Selection.MoveUp wdLine, 1 Loop While Selection.Tables.Count = 0 Dim myFields As FormFields Set myFields = Selection.Tables(1).Range.FormFields myFields(1).Select If myFields(1).Name = "Client1" Then MsgBox ("Sorry, you cannot delete this table") Exit Sub Else Selection.Tables(1).Delete Selection.TypeBackspace End If End Sub Tag: copy info from word to word form Tag: 105299
  - 9
    - Web File Properties - integration issue with sharepoint Not sure whether to post here or in sharepoint forum but it seems mainly to be a Word issue I want to programmatically open the file properties when a word document is created in sharepoint. I use a the following code from the document: CommandBars.FindControl(ID:=750).Execute and this works file except that it opens the standard file properties sometimes and web file properties sometimes. I think I get the Web version if sharepoint list metadata is included in the document (eg on subsequent saves) but when the document is new (from content types in the doclib) the metadata is not yet associated with the document Anyway - is there a way to force the Web File Properties dialog to be displayed? Cheers Ian B Tag: copy info from word to word form Tag: 105298
  - 10
    - help finishing "save as" macro I'm a (retarded) novice, need to finish the macro below (2003), to have it auto enter a filepath, to wit: G:\Children Probation\programs\CONSUMER ACTIVITY\ at File Name: in the Save As dialog box, and leave the insertion point for user to complete the file name manually. Sub templatesopen() ' templatesopen Macro Documents.Add Template:= _ "G:\Children Probation\programs\CONSUMER ACTIVITY\Consumer Activity.dot", _ NewTemplate:=False, DocumentType:=0 Dialogs(wdDialogFileSaveAs).Show End Sub Very VERY grateful!!!! Tag: copy info from word to word form Tag: 105296
  - 11
    - Using Word VBA how do I print Back-to-front. Using Word VBA, how do I get a document to print from Back to Front and conversely, from front to back. Tag: copy info from word to word form Tag: 105294
  - 12
    - Save multilple .rtf files to a single .doc filew Is there a way to save multiple .rtf files in a directory into a single .doc file using VBA code? Tag: copy info from word to word form Tag: 105290
  - 13
    - How do I open a document in Lotus Notes from a Word document ? I'm to develop a solution where a user should be able to transfer data from a Word document to a notes document, read som data from an XML file, and save the word document in a specific folder on the user's temp-dir. I guess this is to be programmed in VS, but I have no experience with this language or Word-Notes integration. Can anyone help i.e. with a reference to some documentation or with som personal experience ? Tag: copy info from word to word form Tag: 105286
  - 14
    - Macro Code Differences between applications I use macros to extract file information from an .ini file and populate fields in a Word document using the system.privateprofilestring("data.ini","document","data") format. This works fine in Word (up to 2003). I do not seem able to do the same thing in PowerPoint or Excel as the "system.privateprofilestring" does not seem to be recognised. Is there any way round this? ANY help would be gratefully appreciated. -- Bill Bowes Quality and Training Manager -- Bill Bowes Quality and Training Manager Tag: copy info from word to word form Tag: 105284
  - 15
    - Disable Command Button Hi all, I would like to add a line to my VBA code to disable a command button called "Delete Person". I'm not sure how to refer to the button though. The following attempt didn't work: ActiveDocument.Range.CommandButton("Delete Person").Enabled = False I'm using Word 2003. Many thanks Tendresse Tag: copy info from word to word form Tag: 105275
  - 16
    - How to dismiass Microsoft Office Word "Do you want to save the cha Hi: This is the third place I post the same question. In the previous two, the mediators all said posted in the wrong location. Hopefully the third time is a charm and get helps. My application will generate a word document as report. The application created Word Application and Document objects. When users click on Close or the "X" icon on the up right corner. The application will intercept word DocumentBeforeCloseEvent, to ask users Save, No or Cancel to the document changes. Everything works fine except when users click on "Cancel", Word still displays it's own Dialog for users to select Yes, No or Cancel for saving the document changes. Is there anyway to prevent this Word dialog because my application already process uses decision? Here is part of the code: Word_DocumentBeforeClose is used to process users decision. The last part of If in else is to process when Cancel is clicked. namespace HandleWordEvnts { public partial class Form1 : Form { #region properties Word.ApplicationClass wordApp; Word.Document wordDoc; string docName; #endregion properties public Form1() { InitializeComponent(); } private void button1_Click(object sender, EventArgs e) { //===== Create a new document in Word ============== // Create an instance of Word and make it visible. wordApp = new Word.ApplicationClass(); wordApp.Visible = true; // Local declarations. Object oMissing = System.Reflection.Missing.Value; // Add a new document. wordDoc = wordApp.Documents.Add(ref oMissing, ref oMissing, ref oMissing, ref oMissing); // Clean document // Add text to the new document. wordDoc.Content.Text = "Handle Events for Microsoft Word Using C#."; docName = wordDoc.Name; //============ Set up the event handlers =============== wordApp.DocumentBeforeClose += new Word.ApplicationEvents2_DocumentBeforeCloseEventHandler( Word_DocumentBeforeClose); } // The event handlers. private DialogResult showSaveFileDlg(ref string fileName, ref string filePath) { DialogResult dlgRes = DialogResult.None; object locker = new object(); Thread.Sleep(1000); //time needed for dialog to display lock (locker) { saveFileDialog1.Title = "App Save As"; saveFileDialog1.FileName = filePath != "" ? (filePath + "\\" + fileName) : fileName; //init full name saveFileDialog1.InitialDirectory = filePath; saveFileDialog1.Filter = "Word Document (*.doc)|*.doc| Plain Text (*.txt)|*.txt|All files (*.*)|*.*"; saveFileDialog1.FilterIndex = 1; saveFileDialog1.RestoreDirectory = true; dlgRes = saveFileDialog1.ShowDialog(); if (dlgRes == DialogResult.Cancel) return dlgRes; fileName = saveFileDialog1.FileName.Substring(saveFileDialog1.FileName.LastIndexOf("\\") + 1); filePath = saveFileDialog1.FileName.Substring(0, saveFileDialog1.FileName.LastIndexOf("\\")); return dlgRes; } } private void Word_DocumentBeforeClose(Word.Document doc, ref bool Cancel) { docName = doc.Name; string fileName = doc.Name; string filePath = doc.Path; // ask user to save or not DialogResult dlgRes = DialogResult.None; AskSaveCnanges askSave = new AskSaveCnanges(); askSave.setTxtBox1 = filePath != "" ? (filePath + "\\" + fileName) : fileName; askSave.setTxtBox1Readonly = true; askSave.ShowDialog(); if (askSave.DlgRes == DialogResult.Yes) //user agrees to save { Thread showWordDlg = new Thread(delegate() { dlgRes = showSaveFileDlg(ref fileName, ref filePath); }); showWordDlg.SetApartmentState(ApartmentState.STA); showWordDlg.Name = "DocClose"; showWordDlg.Start(); showWordDlg.Join(); if (dlgRes == DialogResult.OK) //user agrees to save { MessageBox.Show("DocumentBeforeClose ( Saved " + doc.Name + " )","APP"); //Save the file, use default values except for filename object ofileName = filePath + "\\" + fileName; object optional = Missing.Value; try { doc.SaveAs(ref ofileName, ref optional, ref optional, ref optional, ref optional, ref optional, ref optional, ref optional, ref optional, ref optional, ref optional); doc.Saved = true; object saveChanges = true; object originalFormat = Missing.Value; object routeDocument = Missing.Value; wordApp.Quit(ref saveChanges, ref originalFormat, ref routeDocument); } catch (COMException e) { MessageBox.Show(e.Message,"ApP.DocumentBeforeClose"); } } } else if (askSave.DlgRes == DialogResult.No) { MessageBox.Show("DocumentBeforeClose ( Not Saved " + doc.Name + " )","APP"); Cancel = true; object saveChanges = false; object originalFormat = Missing.Value; object routeDocument = Missing.Value; doc.Close(ref saveChanges, ref originalFormat, ref routeDocument); wordApp.Quit(ref saveChanges, ref originalFormat, ref routeDocument); } else { MessageBox.Show("DocumentBeforeClose ( Canceled " + doc.Name + " )","APP"); //When users cilck on Cancel button. // Cancel is set to true but Word still displays it's own dialog. Cancel = true; doc.Saved = false; wordApp.Activate(); Thread.Sleep(5000); //send key does not work either SendKeys.SendWait("{RIGHT}{RIGHT}{ENTER}"); } } } Tag: copy info from word to word form Tag: 105269
  - 17
    - Why Does Word Disable My Template File/Macro? We have a number of very simple DOT files that contain a one-line macro and a toolbar that are used to automate access to a product. The one-line macro is an ActiveDocument.Shapes.AddOLEObject command that is only invoked when the toolbar button is pushed. The full line is ActiveDocument.Shapes.AddOLEObject Anchor:=Selection.Range, ClassType:= "FXDraw3.Document", FileName:="", LinkToFile:=False, DisplayAsIcon:=False Our problem is that Word (particularly, but not exclusively Word 2003) seems to disable this template file on irregular occasions. Users need to go to the Templates and Add-Ins screen to re-enable them which is annoying for everyone. Sometimes Word complains that the "last time this template file was run, it caused a serious problem" when the template file is enabled. Interestingly, another template file that still uses a WordBasic.InsertObject command does not seem to be susceptible to the problem - but that may be because that particular product is much less popular. So the question is... Does anyone know of anything that could be triggering this behaviour in Word? Thanks in anticipation. Paul Hooper Tag: copy info from word to word form Tag: 105267
  - 18
    - Runtime Error 6028: The Range Cannot be Deleted? HELP! Don't know if anyone can help me with this or not. I have a Userform on my spreadsheet for inputting "comments" into. This form also has a variety of function buttons on it which work just fine, with the exception of 2 of those buttons (Post Comments-Button 3, and Update Comments-Button 4). Whenever I attempt to "click" on either Post or Update Comments, I receive the following popup: "Run Time Error 6028: The Range Cannot Be Deleted". I'm not exactly sure what this message means, or how to rectify the problem. This code exists in my "Word" VB editor. The line of code (for each command button) that highlights in "yellow" (where I suspect is the problem) is: mytable.Cell(nrows + 1, 1) = TextBox1.Text If someone could give me an idea of what I need to look for in order to attack this problem I would appreciate it. I'm a "noobie" to all of this so I'm sure that doesn't help. Below is the full code information. Dan -------------------------------------------------------------------------------------------------------- Public nrows As Integer Public nr As Integer Public incr As Integer Public mytable As Object Private Sub cmbNext_Click() nr = nr + 1 cmbNext.Visible = True cmbPrevious.Visible = True If nr >= nrows Then cmbNext.Visible = False End If With mytable TextBox2.Text = Left(.Cell(nr + 1, 2), Len(.Cell(nr + 1, 2)) - 2) TextBox1.Text = Left(.Cell(nr + 1, 1), Len(.Cell(nr + 1, 1)) - 2) End With End Sub Private Sub cmbPrevious_Click() nr = nr - 1 cmbNext.Visible = True cmbPrevious.Visible = True If nr = 1 Then cmbPrevious.Visible = False End If With mytable TextBox2.Text = Left(.Cell(nr + 1, 2), Len(.Cell(nr + 1, 2)) - 2) TextBox1.Text = Left(.Cell(nr + 1, 1), Len(.Cell(nr + 1, 1)) - 2) End With End Sub Private Sub cmbPrintComment_Click() Documents.Add DocumentType:=wdNewBlankDocument Selection.TypeText Text:="Client Name: " & TextBox3.Text Selection.TypeParagraph Selection.TypeParagraph Selection.TypeText Text:="Date of Progress Note: " & TextBox2.Text Selection.TypeParagraph Selection.TypeParagraph Selection.TypeText Text:=TextBox1.Text Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _ wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _ ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _ False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _ PrintZoomPaperHeight:=0 End Sub Private Sub cmbPrintAll_Click() Application.PrintOut FileName:="", Range:=wdPrintAllDocument, Item:= _ wdPrintDocumentContent, Copies:=1, Pages:="", PageType:=wdPrintAllPages, _ ManualDuplexPrint:=False, Collate:=True, Background:=True, PrintToFile:= _ False, PrintZoomColumn:=0, PrintZoomRow:=0, PrintZoomPaperWidth:=0, _ PrintZoomPaperHeight:=0 End Sub Private Sub CommandButton11_Click() TextBox1.Text = "" End Sub Private Sub UserForm_Initialize() Set mytable = ActiveDocument.Tables(1) With mytable TextBox3.Text = Left(.Cell(1, 1), Len(.Cell(1, 1)) - 2) TextBox2.Text = Left(.Cell(2, 2), Len(.Cell(2, 2)) - 2) TextBox1.Text = Left(.Cell(2, 1), Len(.Cell(2, 1)) - 2) nr = 1 nrows = 0 incr = 1 For n = 2 To .Rows.Count If Len(.Cell(n, 1)) <> 2 Then nrows = nrows + 1 End If Next n cmbPrevious.Visible = False End With End Sub Private Sub CommandButton3_Click() nrows = nrows + 1 mytable.Cell(nrows + 1, 1) = TextBox1.Text mytable.Cell(nrows + 1, 2) = Now() incr = 1 nr = nrows End Sub Private Sub CommandButton4_Click() nrows = nr mytable.Cell(nrows + 1, 1) = TextBox1.Text mytable.Cell(nrows + 1, 2) = Now() End Sub Private Sub CommandButton5_Click() mytable.Cell(nr + 1, 1).Row.Delete TextBox1.Text = "" TextBox2.Text = "" nrows = nrows - 1 End Sub Private Sub CommandButton8_Click() UserForm1.hide End Sub Tag: copy info from word to word form Tag: 105262
  - 19
    - Ansi to Unicode Saveas I Have a Ansi txt File I need to save it as a Unicode File into a Script using and Ole Object I Can open it, modify it and save it but i don't know how to change the encoding Thanks Tag: copy info from word to word form Tag: 105244
  - 20
    - Message Boxes do not work properly in search and replace macro. Dear Experts: I would like to insert a nonbreaking space between all occurrences of the abbreviated Page (p.) and the page number. Below macro works fine! BUT the my message boxes do not work correctly: 1. Although there are these "p." abbreviations in my test document, the Message box says there are no occurrences of this abbreviation found, and to make things worse, this message box pops up 7 times (the number of range stories, I suppose). 2. BUT strangely the macro then correctly inserts the nonbreaking spaces between the abbreviated page number (p.) and the page number! Hence I need somebody to re-write this code so that the message boxes appear correctly. Thank you very much in advance for your help. Regards, Andreas Sub InsertNonBreakingSpaceP() 'Inserting NonBreakingSpaces between the abbreviated page character (p.) and the page number Dim rngStory As Range Dim iNumberOfReplacements As Integer If MsgBox("Would you like to insert a nonbreaking space between p." & vbCrLf & _ "and the page number?", vbYesNo, "Insertion of nonbreaking spaces") = vbYes Then For Each rngStory In ActiveDocument.StoryRanges With rngStory.Find .Text = "<p. {1;}([0-9])" .MatchWildcards = True .Wrap = wdFindContinue .Execute End With If Not rngStory.Find.Found Then MsgBox "There are no abbreviations (p.) in the document", vbOKOnly, _ "Nothing found" Else rngStory.Find.Execute Replace:=wdReplaceAll, replaceWith:="p.^s\1" End If Next rngStory End If End Sub Tag: copy info from word to word form Tag: 105235
  - 21
    - replace paragraph marks Hi, I know how to use Replace to remove paragraph markers at the end of each line. But I have many pages of text like this below. Every line has a paragraph marker at the end of it, including the number line. I want to remove the paragraph markers ONLY from the lines with text, not the line with a number. So I probably need some code to do this. Is there some simple code that would accomplish this? Thanks, Harold 1 Tub muaj coob leej yooj xeeb sau tej xwm txheej kws muaj tshwm lug tav taag rua huv peb lawm, 2 lawv le cov tuabneeg kws qhov muag pum txwj thaus chiv lub keeb lug hab yog cov kws qha txuj xuv zoo tau muab cob rua peb lawm. 3 Kuv tub ua tuab zoo tshawb nrhav txhua yaam nuav txwj thaus chiv lub keeb lug lawm, kuv txhad pum zoo muab sau ua ib qeb zuj zug qha rua koj The-au_la kws saib hlub, 4 sub koj txhad paub qhov tseeb txug zaaj nuav kws tub txeev muaj tuabneeg qha rua koj paub lawd. Qha txug yuav yug Yauhaa 5 Tag: copy info from word to word form Tag: 105232
  - 22
    - Store and Retrieve Network Path for Word Add-in Hello, I developed an add-in I plan to sell. The add-in loads stored images from the program files directory on the host computer. The program works fine with a local install. However, I would like to be able to offer the program for network installations. I can't figure out the best way for the installer to provide the path so the add-in knows where to retrieve the files. My first thought was to have a bookmarked place in the add-in file itself where the network path could be stored but I can't figure out how to retrieve the contents from that bookmark. Any input is appreciated. Microsmith Tag: copy info from word to word form Tag: 105231
  - 23
    - VBA equivalent of StyleRef Is there a VBA equivalent of StyleRef? I am searching through a document for a specific style and once found I am adding the text in that style and page number to a table. I would also like to add the content of the previous heading1 to the table. The current method is to use StylRef in the header and then once the specific style is found, open the header and then "read" the value placed by the Styleref. John... Visio MVP Tag: copy info from word to word form Tag: 105224
  - 24
    - empty paragraph Hi everyone, I want to change font name,font size , space before and after each paragraph in each document in a folder with hundreds of documents( now they have different fonts and sizes so i want them to look the same). Because in some documents there are extra empty paragraphs first i need to remove them then apply formatting and here is where i have a problem I used two method for removing empty paragraphs first find /replace ^p^p with ^p and also the following macro Dim parag As Paragraph For Each parag In ActiveDocument.Paragraphs With parag.Range If .Words.Count = 1 Then parag.Range.Delete End If End With Next parag For some reason ^P^P method is not able to remove all the empty paragraphs ( move most) anythoughts? -- Best regards, Harvey Tag: copy info from word to word form Tag: 105221
  - 25
    - open word 2007 template like memo hi all i want to open word 2007 template like memo, and then write some text into it using ATL C++, how to do that any help is welcomed. Tag: copy info from word to word form Tag: 105219
- Next
  - 1
    - opening word template like memo hi all, i want to open word doc template like memo and then write into it, i want to do that with word 2007. Tag: copy info from word to word form Tag: 105218
  - 2
    - Runtime 91 error for ActiveDocument in AutoExec macro I am trying to invoke MS word in the following manner: start winword.exe /lc:\glb\myglobal.dot /tc:\tmp\doctemplate.dot / myglobal.dot - My global template - contains the following logic Public Sub AutoExec() If ActiveDocument.Bookmarks.Exists("CSWB") Then If (InStr(1, ActiveDocument.FullName, ".rtf") < 1) Then ActiveDocument.RunAutoMacro (wdAutoNew) End if End If doctemplate.dot - A document template that contains the AutoNew macro defined. Problem scenario: When I run - "start winword.exe /lc:\glb\myglobal.dot /tc:\tmp\doctemplate.dot /" from command prompt it works fine. I install Adobe Acrobat writer on my machine, and run the same command, It fails with a Runtime 91 error - Object variable not set Looks like ActiveDocument object is not initialized and fails when I try to access ActiveDocument.Bookmarks collection. When I uninstall Adobe acrobat writer, the problem goes away. This is happening in production as well (that actually triggered this analysis) but I don't necessarily see Adobe writer installed in production. Is there anything else that when installed would change the behaviour of AutoExec as I have mentioned ? If you have any ideas as to how can I avoid this, that would be great. Tag: copy info from word to word form Tag: 105217
  - 3
    - Delete line containing a form field Hello, I have a template that is used to create recipes for upload to a website. The person typing in the recipes is not very computer literate, so I made a form with fields for him to fill in with ingredients. The fields' default text is "Ingredient". I put in 15 lines for ingredients. Obviously, not all recipes have that many ingredients. I'd like to write a macro to delete the lines that don't have ingredients in them, i.e., they say "Ingredient" in the form field. To make it more complicated, I'd like to delete the entire line, not just the form field. Is there a way to do this? I've tried a find and replace, but that doesn't seem to work with form fields. Anyone have any guidance? Thanks! Melinda Tag: copy info from word to word form Tag: 105213
  - 4
    - change colour in title of userform Is it possible to change the background colour of the title in a vba user form (the one that defaults to UserForm1 when you create a new userform)? I know how to change the colours of the form itself and of any text boxes etc. placed on the form but not the title. thanks, Tag: copy info from word to word form Tag: 105205
  - 5
    - How can I delete accent mark form select character and whole text? I want to back of subject about set mark of accent (emphasis mark or acunt accent). How can I delete accent mark form select character and whole text? I have next code: Sub accent() Dim selChar As Long selChar = AscW(Selection.Range.Characters(1)) If Selection.Type = wdSelectionIP Then MsgBox prompt:="Nothing selection", Title:="Select a character" Else ' How delete accent mark? With Selection .Collapse direction:=wdCollapseEnd .InsertSymbol CharacterNumber:=769, Unicode:=True End With End If End Sub Now I need delete Character (769) from selection text (if it exist). How I can find it and delete it? Tag: copy info from word to word form Tag: 105201
  - 6
    - Passing Word documents with macros as Sharepoint content types Hi I have been trying to nut this problem out for awhile now but not making alot of progress. I am trying to integrate Word 2003 with Sharepoint 2007 as follows: I have a site with a template library. I have developed a content type in another site and use it in a library. I want the user to be able to select a content type in a library and have an auto open event fire to open the sharepoint properties dialog. The user populates the field presented and these cascade though fields in the document. The fields are also available (as metadata) at the library list for filtering grouping and sorting Everything works fine except one thing. The problem is that when the content type is chosen from the library the macro doesn't fire and on inspection the macro is no longer available in the document. It does however fire and works fine in the template library. Does anyone know what is happening and how I can resolve this Thanks IanB Tag: copy info from word to word form Tag: 105200
  - 7
    - Loop I have a macro that I have been working on. It works exactly as I want to as long as I run it once. Basically I have a document that contains many notices. Each notice is 3 to 5 sections long based on criteria that I can identify. The macro correctly identifies the number of sections for each notice, prints it and deletes it so that the second notice is now the first. I can start the macro and print the first notice. Then start the macro again and print the second notice and so on until it reaches the end. So I know the macro is working. The problem is, I want to be able to run the macro with no user interaction. So a simple loop should work. But no matter how I try to make it loop, it does not run properly. (It prints part of them correctly, and part of them not correctly) I have tried: Start: (at the beginning of the macro) goto Start: Doesn't work I have tried do while selection.find.execute ("refer to:") = true macro Loop Doesn't work I have tried Do Macro Loop Doesn't work I have tried do until selection.find.execute ("refer to:") = false macro loop That doesn't work. I have stepped through the macro repeatedly. Everytime I step through it, it works perfectly. Then I can add a loop to it and it does not work correctly. Tag: copy info from word to word form Tag: 105196
  - 8
    - Automate the saving of rtf files to doc files Hello everyone: There are hundreds of Word rtf files saved on a shared drive that are taking up an enormous amount of disk space. These files are just copies of letters containing only text (from mail merges) that have been sent out to clients. If I save an rtf file as a doc file, the size of the file decreases considerably (from serveral thousand kb to several hundred kb). To conserve disk space, I would like to save all these files as doc files. If I were to do this manually, I would have to open each rtf file, save it as a doc file and then delete the rtf file. Assuming that all these files are in one folder, is there an easier way to do this? The name of the new file would be the same as the old file except for the extension. For example Filename.rtf to Filename.doc. Just renaming the filename does not appear to decrease the file size. Thank you for any help. Amy Tag: copy info from word to word form Tag: 105195
  - 9
    - Creating Word 2007 Forms and calcluated fields. I want to create a Word 2007 form, where I use a DatePicker for the user to select a date (let's call it WeekEndingDate). Then I want 7 cells in a table to be updated with WeekEndingDate - 6, WeekEndingDate - 5, etc... Is that possible to do without having to use VBA, and if so, how would one go about doing that? I've exhausted my limited Word Form Development knowledge. :-) Thanks, Sergi Tag: copy info from word to word form Tag: 105190
  - 10
    - Disable AutoCorrect Options dialog box Hello, I try to limit user access using Word template. One of the issue is limiting access to AutoCorrect Options dialog box. Currently, our users can right click on misspelled words and choose AutoCorrect- >AutoCorrect Options... from a shortcut menu. I did not see this menu listed in Customize->Toolbars->ShortCut Menus either. Is there a way to suppress the AutoCorrect Options dialog box using VBA? Thank you, Tag: copy info from word to word form Tag: 105187
  - 11
    - How do you create a .dot file with Toolbar and Macro, but not from the Normal.dot? All, I would like to create a .dot file containing a toolbar and associated macro. Currently, I am adding the macro and toolbar manually to the Normal.dot file. Then I save and rename a copy of the normal.dot file. Is there a way to create this file without the extra baggage of my normal.dot file? Thanks Tag: copy info from word to word form Tag: 105183
  - 12
    - need help with AutoOpen print macro on mail merge document We use an application which allows us to generate and print mail merge documents via Word. As near as I can tell, trying to print a mail merge document via this application opens Word, populates the merge fields with the appropriate data, then prints the document to the system default printer. One such document we use is a label document, and we use the following AutoOpen macro to divert the print job to their label printer without making them change their default printer each time: Sub AutoOpen() Application.WordBasic.FilePrintSetup Printer:="Dymo LabelWriter 330 Turbo-USB", _ DoNotSetAsSysDefault:=1 End Sub With this macro in place, the document is opened, the data is merged, and it's printed to the label printer. In most situations, this is adequate. However, we've been getting requests from people who want to be able to specify how many copies to print, and I've been having a lot of trouble figuring out how to make that happen. I've tried various methods of showing the print dialog box, so they could specify how many copies to print and be happy. Unfortunately, any time I've been able to get the print dialog box to pop up with AutoOpen, it will print the mail merge document before the data is merged in (it prints the merge field names rather than the data). If I tell the print dialog to print 3 copies, it will print 3 copies of the pre-merged document, then print one copy of the merged document. I'm pretty new to WordBasic and macros, and basically gave myself a crash course yesterday. I had also tried using an inputbox to prompt for the number of copies, then try to pass that to FilePrint (I think... I tried so many different things it's hard to keep track now) using the NumCopies argument, but that just resulted in errors. I'm open to suggestions at this point. Unfortunately, I have no control over the program that actually invokes Word to open and print the mail merge document, so I'm basically limited to what I can do with macros during the brief period the document is opened. Tag: copy info from word to word form Tag: 105181
  - 13
    - Problems with opening TextStream files I run a macro which selects sections of a Word document, then opens a TextStream file object and pastes in the text. The code I'm using is: Set docNew = fs.CreateTextFile(strNewDoc) docNew.Write (strNewFile & vbCr & vbCr & _ "This doc created on " & _ Format(Now, "dd mmm yyyy")) docNew.Close (fs is FileStreamObject). I have another macro in Excel that opens a selected doc created this way using: WD.Documents.Open doc (all variables are set good and the code works). Occasionally, the File Conversion dialog opens. I know these are not "real" Word docs, but simply text files with a .doc extension, but saving each of hundreds of files as Word docs adds an enormous amount of time to the loop. Is there anything I might be able to do to these files to prevent the Conversion dialog from opening? Or is there something I can add to the Excel code to assist these files in opening without the user having to mess with this? Ed Tag: copy info from word to word form Tag: 105178
  - 14
    - Running Word Macro from iSeries I've created a Document Template that contains a Macro. This Macro reads a file from the iSeries and populates bookmarks within the Template and prints the Document. Currently, the user has to open the document, click Tools, Macro's, Marco's, Run to produce the report; very messy. I want to fire off the document from the iSeries so the user doesn't have to mess with Word. I'm able to bring the document up from the iSeries, but it's not running the macro. I've tried everything I can think of, including things on this board and others. My code is running in an ILE program. I'm loading the command line from an array. My array looks like: STRPCCMD PCCMD('C: \Progra~1\Micros~3\OFFICE11\winword O:\COMMON\TEMPLATES\MQE*.* /mMQE()') . Everything works fine up to the /m. My document is MQE Letters.dot, and the Macro is MQE. In addition to the /m, I've also tried Call MQE, Call "MQE", Application.Run MacroName:="MQE", Run MacroName:="MQE", Call MacroName:="MQE"....the list goes on. Any help would be GREATLY appreciated. Tag: copy info from word to word form Tag: 105176
  - 15
    - How do I customize a toolbar for an addin template I've just created a few macros and now I'd like to create a toolbar to go along with it. This seemed very simple in 2003, but I'm having trouble creating one in 2007. Tag: copy info from word to word form Tag: 105169
  - 16
    - Copy Paste (special-unformatted) from Excel to Word Hi I'm trying to copy-paste (unformatted), a series of cells from excel into Word. I've got the below macro which does some of this but it keeps pasting the whole table either as a picture or a normal table (if you use the disabled line instead of the enabled paste line). However, if I manually copy-paste special and select unformatted text I get a load of text and no tables or borders which is what I want. Any ideas how to achieve this with the below macro? Sub OpenAWordFile() Dim wordApp As Object Dim fNameAndPath As String ActiveSheet.Range("I5:I51").Copy fNameAndPath = "C:\Documents and Settings\tom.jordan\My Documents\Projects\FFEC Headed Paper.doc" Set wordApp = CreateObject("Word.Application") With wordApp .Documents.Open (fNameAndPath) .Visible = True .Selection.PasteSpecial DataType:=wdPasteText '.Selection.PasteAndFormat (wdPasteDefault) .Selection.WholeStory .Selection.Font.Name = "Arial" .Selection.Font.Size = 11 End With Set wordApp = Nothing Application.CutCopyMode = False End Sub Tag: copy info from word to word form Tag: 105165
  - 17
    - Word 2002 TOC format does not update correctly I have a big document and I inserted a table of contents. I selected specific formatting for each TOC level, but my formatting is not applied. Instead the formatting of the TOC (fonts type, font size, Bold, Italic, ...) is all wrong. Can you please tell me how can I modify those styles? Thank you P.S. If there is already a response to this question please help me find it. thanks Tag: copy info from word to word form Tag: 105161
  - 18
    - Extracing scetions of a document Hi I am after some advice on how to proceed. I would like to write some code to extract certain sections out of a document and copy them into a new document. Is it better to use sections or bookmarks? These sections may span multiple pages. Any advice would be very gratefully received. Cheers Dan Tag: copy info from word to word form Tag: 105159
  - 19
    - changing a certain word in many files. Hi everyone , I have a folder with hundreds of one page word documents. I want to use VBA to search through all these files and change a certain name (e.g. New York) to something else (e.g. los angeles) and save the file and go to the next file. Any thoughts? Any help greatly appreciated. -- Best regards, Harvey Tag: copy info from word to word form Tag: 105146
  - 20
    - EXE that invokes Word won't run macros I have a Windows 2003 scheduled task parsing process that calls Word 2003 and runs a specified Word macro, however, the macro will not run unless the user is logged in. I know you can configure the Word Document Properties, via the identity tab, to use a specific user to run the application, however, I want to use the launching user and not require a user to be logged into windows. I've tried security settings in macros with no luck. Any ideas?? Tag: copy info from word to word form Tag: 105143
  - 21
    - Spawned document from Template (Dot) loses macros Here is a screenshot I am working on: http://www.jkfweb.com/files/Example.JPG The file is a .Dot template file. It works great normally when a user opens from the Template and fills in the appropriate information. I have a few users who want to open the file, fill in there name and the Company Name and other appropriate fields and then save that as a .dot file. This would allow them to not have to re-type and look up the information everytime. The problem is the macros are apparently not being copied when word spawns document1 from the template. I'm assuming this is normal word behavior, but haven't been able to find a solution on word.mvps.org and a quick search in newsgroups didn't find the solution either. Any ideas how to get the macros to go into the newly spawned document as they are used to create new rows, do some error correction, and formatting of fields. Thanks in advance for any help. Tag: copy info from word to word form Tag: 105140
  - 22
    - Toggle symbols with VBA I'm trying to set up a roster where I can click on a symbol in front of a person's name and it will change from an "X" to a "O". I'm an expert at Excel VBA, but not familiar with Word VBA. Can someone give me some ideas on how I could set up a macro to allow the user to check on a symbol (or character) in front of a person's name in a list and it would toggle between 2 or 3 symbols? The list will be dynamic, so I need to write some generic code that can identify which symbol is clicked on and toggle it to the next symbol. Thanks. John Tag: copy info from word to word form Tag: 105134
  - 23
    - Remove character style with direct formatting I have text styled with a custom character style. Some of that text also has direct formatting applied (bold, ital, etc.). I need to remove the character style, but retain the direct formatting. Possibly I also need to retain any font formatting provided by the style as. I can do this: For Each c In Selection.Characters Set f = c.Font.Duplicate c.Font.Reset c.Font = f Next c but this is slow and I keep thinking I'm missing a simpler, faster way to do this. Any suggestions? Tag: copy info from word to word form Tag: 105132
  - 24
    - Adding in an XML Schema I am using Office 2003 Professional. I am trying to follow an example for adding an XML schema to a Word document and I get the following error: "The XML expansion pack or schema file could not be installed". I can't see anything wrong. Here is the xsd code: <?xml version="1.0" encoding="UTF-8" ?> <xsd:schema xmlns:xsd="http://www.w3.org/2001/XMLSchema" xmlns="urn:schemas-microsoft-com.office11demos.WordProductsSD" targetNamespace="urn:schemas-microsoft-com.office11demos.WordProductsSD" elementFormDefault="qualified" attributeFormDefault="unqualified" id="Contract"> <xsd:complexType name="contract"> <xsd:complexContent> <xsd:restriction base="xsd:anyType"> <xsd:sequence> <xsd:element name="CaseCode" type="xsd:string" /> <xsd:element name="Casediscription" type="xsd:string" /> <xsd:element name="element1" type="xsd:string" /> <xsd:element name="Nextdateofhearin" type="xsd:string" /> <xsd:element name="summary" type="xsd:string" /> </xsd:sequence> </xsd:restriction> </xsd:complexContent> </xsd:complexType> </xsd:schema> Tag: copy info from word to word form Tag: 105130
  - 25
    - DSO file fails with word 2007 docx files of size zero byte. Hi I am using dsofile.dll(latest, which supports office 2007 formats) to set attributes of office files. The dsofile fails with .docx files if the file size is 0 bytes(Such a file can be created by rightclicking on desktop and selecting New ->Microsoft Office Word Document. If you right click on the created file and select Properties, It shows Seze as 0 bytes). Is there any fix/workaround available for this bug? Thanks in advance, Tag: copy info from word to word form Tag: 105127

I am in desperate need of help. I need to create a macro that will copy
specific strings of text from a word document to a word form. The document
that the info is being pulled from is constantly being writen over w/ new
information, but the information I need is always in the same location within
the document. I have created a macro in our mainframe that copies data I
need and pastes it as a laundry list on document zzz. From there I need that
info to be placed into form aaa. The form is protected except for certan
fields and I am pulling my hair out not getting anywhere. Please help me.

Thanks,

Ryan

Top

Re: copy info from word to word form by fumei

fumei
Mon Sep 24 14:37:46 CDT 2007

rman220 wrote:
>I am in desperate need of help. I need to create a macro that will copy
>specific strings of text from a word document to a word form. The document
>that the info is being pulled from is constantly being writen over w/ new
>information, but the information I need is always in the same location within
>the document. I have created a macro in our mainframe that copies data I
>need and pastes it as a laundry list on document zzz. From there I need that
>info to be placed into form aaa. The form is protected except for certan
>fields and I am pulling my hair out not getting anywhere. Please help me.
>
>Thanks,
>
>Ryan

Can you be a bit more specific? "specific strings of text from a word
document to a word form." That sounds like two different documents. Yes?

document zzz is a different document from "form" aaa.

form aaa is still a document...yes?

Are these formfields? If they are, then you simply make their .Result be
whatever you want.

If you have both documents open, then i suggest making each one a document
object. This is just to give you an idea. You would have to be actually
specific in order for me to be specific.

Dim SourceDoc As Document
Dim ResultDoc As Document
Set SourceDoc = your document zzz
Set ResultDoc = your "form" aaa

ResultDoc.Formfields("Yadda").Result = SourceDoc.Paragraphs(3).Range.Text

This would make the formfield "Yadda" in ResultDoc (form aaa) = the text of
paragraph 3 in SourceDoc (doc zzz)

Other than that, you are going to have to be clear and detailed in your
question.

--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.aspx/word-programming/200709/1

Top