moving characters around in a word doc

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Odd Table add problem I'm writing some code against the Word object model to add a table to some word documents. I have tens of thousands of these files that need these tables added to them. Here is some code that shows me adding the table as well as setting some properties on the table to adjust how it looks: Range tableLocation = aDoc.Range(ref start, ref start); theTable = aDoc.Tables.Add(tableLocation, 1, 3, ref missingValue, ref autofitBehavior); theTable.LeftPadding = 0.0f; theTable.RightPadding = 0.0f; // eliminate table borders theTable.Borders.Enable = 0; Every once in a while (it appears to be random) I get en error thrown on this line: theTable.LeftPadding = 0.0f; The error is: The server threw an exception. (Exception from HRESULT: 0x80010105 (RPC_E_SERVERFAULT)) I don't get this error consistently. I can run the same code on the same document immediately after the failure and it works. Can anyone help with this? Tag: moving characters around in a word doc Tag: 105339
  - 2
    - Word is very slow when I try to move characters around I'm having to manually manipulate about 400 characters in a word doc individually. This process is very slow. Word seems to do a lot of layout stuff each time I add or delete a character. Is there a way to tell Word not to do the layout stuff when I do this to each character? Like a way to turn off auto layout adjustment or something? Thanks Tag: moving characters around in a word doc Tag: 105338
  - 3
    - default filepath in XP I've got this same problem and I can't figure it out. I call a function that gets the UserName. I then insert it into a string and use that to set the path. Here's a bit of the code: Options.DefaultFilePath(Path:=wdWorkgroupTemplatesPath) = "V: \Reference \Templates\" Options.DefaultFilePath(Path:=wdStartupPath) = "C:\Documents and Settings\" & GetUserName _ & "\Application Data\Microsoft\Word\STARTUP\" Options.DefaultFilePath(Path:=wdUserTemplatesPath) = "C:\Documents and Settings\" _ & GetUserName & "\Application Data\Microsoft\Templates\" I can successfully run this once. But the next time I run it, I get: Run-time Error '4101' Illegal Function Call on the 3rd line, wdUserTemplatesPath. I've truncated the string to Options.DefaultFilePath(Path:=wdUserTemplatesPath) = "C:\Documents and Settings\" _ & GetUserName & "\Application Data\Microsoft\" and it works perfectly every time. As soon as I add "Templates\" to the line, it crashes after the first run. In Word 2003, this isn't a problem, and both of the other strings (WorkgroupTemplatesPath and StartupPath) don't have this problem. I've tried adding "Application." to the Options to no avail, and I've left the trailing slash off with no effect. Any ideas? Thanks || In Word 2k, the following code successfully "set" the default filepath: || Options.DefaultFilePath(Path:=wdUserTemplatesPath)="C: \Documents and || Settings\username\Application Data\Microsoft\Templates" || || Now, in Word XP, this code results in an error: || Run-time error 4101 || Illegal function call || || If I use the macro recorder, to "set" the same path, I am unsuccessful || (won't let me select this folder), but if I use the macro recorder to "set" || the path to "C:\" , I am successful, and then g0don't get the error on || running the sub. Is there some different kind of permissions structure for || XP files for my chosen filepath in XP, or else what's the deal, guys? || Works OK here (I pasted your code in a Word XP module). Are you sure you did not forget to change "username" for the actual name? Just checking... you never know! I have done much dumber mistakes! -- Salut! _______________________________________ Jean-Guy Marcil - Word MVP jmarcilREM...@CAPSsympatico.caTHISTOO Word MVP site: http://www.word.mvps.org Tag: moving characters around in a word doc Tag: 105335
  - 4
    - Export Block of Emails and Format to New Word doc I have Word 2003 I am trying to take a block of Emails in word and put them into new Word Document Format, so then I can Export to Excel and have each Email address in a cell. I found this code, that I thought would take the block emails put into new Word doc and Format. I have never programed in Word, and I am just learning in Excel and Access. It stops at this line- runtime error 9 subscript out range. For i = 1 To UBound(HyperlinkArray()) ' Looping through our array Any help would greatly be appreciated. '////////////////////////////////// Option Explicit Option Base 1 Dim HyperlinkArray() ' Dimension array to contain hyperlinks Public Sub Main() Dim btn Dim pos Dim pos2 Dim mytemp Dim i Selection.Find.ClearFormatting Selection.Find.Replacement.ClearFormatting On Error GoTo BYE Dim Count As Integer Count = 0 btn = MsgBox("This macro will copy the hyperlinks from the current." & vbCrLf & _ " document into a new document." & vbCrLf & vbCrLf & _ " Do you WISH TO PROCEED?", vbYesNo + vbQuestion, _ " Startup Message") If btn = vbNo Then Exit Sub Selection.HomeKey Unit:=wdStory ' Go to the top of the document OUTERLOOP: With Selection.Find .Text = "<a href" ' Find the start of the hyperlink .Replacement.Text = "" .MatchWildcards = False .Format = False .Wrap = wdFindStop .Forward = True End With Selection.Find.Execute If Selection.Find.Found Then Selection.ExtendMode = True ' Set extension mode to true With Selection.Find .Text = ">" ' Finding the end of the hyperlink. .Replacement.Text = "" .MatchWildcards = False .Format = False .Wrap = wdFindStop .Forward = True End With Selection.Find.Execute Selection.ExtendMode = False ' Turn the extension mode off pos = InStr(Selection.Text, Chr(34)) pos2 = InStr(pos + 1, Selection.Text, Chr(34)) mytemp = Mid(Selection.Text, pos + 1, pos2 - (pos + 1)) Count = Count + 1 ReDim Preserve HyperlinkArray(Count) ' Dynamically resizing the array HyperlinkArray(Count) = mytemp Selection.Start = Selection.End GoTo OUTERLOOP Else GoTo ARRAY_FEED End If ARRAY_FEED: Documents.Add Template:="", NewTemplate:=False ' Adding a new document For i = 1 To UBound(HyperlinkArray()) ' Looping through our array Selection.InsertAfter Text:=HyperlinkArray(i) & Chr(13) ' Inserting the hyperlinks Selection.Start = Selection.End Next BYE: Selection.ExtendMode = False Selection.HomeKey Unit:=wdStory ' Returning to the top of the document. btn = MsgBox("There were" & Str(Count) & " hyperlinks extracted to the 2nd document.", _ vbOKOnly + vbInformation, _ " Final Results") End Sub -- ca1358 Tag: moving characters around in a word doc Tag: 105334
  - 5
    - copy info from word to word form 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 Tag: moving characters around in a word doc Tag: 105328
  - 6
    - 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: moving characters around in a word doc Tag: 105322
  - 7
    - 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: moving characters around in a word doc Tag: 105321
  - 8
    - 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: moving characters around in a word doc Tag: 105319
  - 9
    - 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: moving characters around in a word doc Tag: 105316
  - 10
    - 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: moving characters around in a word doc Tag: 105313
  - 11
    - 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: moving characters around in a word doc Tag: 105309
  - 12
    - 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: moving characters around in a word doc Tag: 105307
  - 13
    - 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: moving characters around in a word doc Tag: 105299
  - 14
    - 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: moving characters around in a word doc Tag: 105298
  - 15
    - 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: moving characters around in a word doc Tag: 105296
  - 16
    - 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: moving characters around in a word doc Tag: 105294
  - 17
    - 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: moving characters around in a word doc Tag: 105290
  - 18
    - 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: moving characters around in a word doc Tag: 105286
  - 19
    - 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: moving characters around in a word doc Tag: 105284
  - 20
    - 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: moving characters around in a word doc Tag: 105275
  - 21
    - 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: moving characters around in a word doc Tag: 105269
  - 22
    - 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: moving characters around in a word doc Tag: 105267
  - 23
    - 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: moving characters around in a word doc Tag: 105262
  - 24
    - 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: moving characters around in a word doc Tag: 105244
  - 25
    - 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: moving characters around in a word doc Tag: 105235
- Next
  - 1
    - 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: moving characters around in a word doc Tag: 105232
  - 2
    - 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: moving characters around in a word doc Tag: 105231
  - 3
    - 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: moving characters around in a word doc Tag: 105224
  - 4
    - 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: moving characters around in a word doc Tag: 105221
  - 5
    - 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: moving characters around in a word doc Tag: 105219
  - 6
    - 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: moving characters around in a word doc Tag: 105218
  - 7
    - 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: moving characters around in a word doc Tag: 105217
  - 8
    - 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: moving characters around in a word doc Tag: 105213
  - 9
    - 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: moving characters around in a word doc Tag: 105205
  - 10
    - 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: moving characters around in a word doc Tag: 105201
  - 11
    - 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: moving characters around in a word doc Tag: 105200
  - 12
    - 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: moving characters around in a word doc Tag: 105196
  - 13
    - 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: moving characters around in a word doc Tag: 105195
  - 14
    - 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: moving characters around in a word doc Tag: 105190
  - 15
    - 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: moving characters around in a word doc Tag: 105187
  - 16
    - 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: moving characters around in a word doc Tag: 105183
  - 17
    - 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: moving characters around in a word doc Tag: 105181
  - 18
    - 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: moving characters around in a word doc Tag: 105178
  - 19
    - 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: moving characters around in a word doc Tag: 105176
  - 20
    - 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: moving characters around in a word doc Tag: 105169
  - 21
    - 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: moving characters around in a word doc Tag: 105165
  - 22
    - 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: moving characters around in a word doc Tag: 105161
  - 23
    - 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: moving characters around in a word doc Tag: 105159
  - 24
    - 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: moving characters around in a word doc Tag: 105146
  - 25
    - 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: moving characters around in a word doc Tag: 105143

I'm having to manually manipulate about 400 characters in a word doc
individually. This process is very slow. Word seems to do a lot of
layout stuff each time I add or delete a character. Is there a way to
tell Word not to do the layout stuff when I do this to each character?
Like a way to turn off auto layout adjustment or something?

Thanks

Top

Re: moving characters around in a word doc by Helmut

Helmut
Wed Sep 19 09:44:39 CDT 2007

Hi Omatase,

what kind of Word doc? Simple, complicated, long, short?
Dozens of tables, textboxes, cross references, pictures,
paragraph styles, character styles?

What do you mean by manipulate characters
or move them around?
Except with the mouse, which could be used to
move the selection to another place, IMHO,
characters can't be moved at all.

You can cut and paste,
or set the text of a range of a character
to the text of a range of another character...

One way could be, to save the doc as xml
and process the xml-code.

Or read all the document's text in a string
and process the string, which will ruin most
of the formatting.

Hard to give a better advice without further information.

--
Gruß

Helmut Weber, MVP WordVBA

"red.sys" & chr$(64) & "t-online.de"
Win XP, Office 2003 (US-Versions)

Top