shortcut or macro for "Paste Unformatted Text"

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Checking for the existence of a Macro Here's a curly one for you all! I have a series of standard 'office practice' type templates (Fax, Letter, Memo, etc.) all of which contain code for creating the document in the first place. This code saves the input in document variables to allow the code to be rerun should the user get to the end and realise they forgot something. The rerun code works a treat - or at least it does in the one prototype template that I've done so far. ;) I also have a global 'toolkit' type template that's designed to make doing some key functions easier or just make Word work like it should work: e.g. insert/delete a landscape section without stuffing up everything; apply bullets/numbering using the 'List' styles instead of whatever Word wants to use; copy/reset the standard styles in a document. This works really well, too. But now for the tricky part... I know I could provide access to the rerun macro in each template in a variety of ways: add a custom button a standard toolbar or create a custom toolbar for each template or some such. However, since I'd rather not mess around with any of the standard toolbars (and have my Rerun Template button get lost in the clutter) and since I don't want to create a bunch of 1-button toolbars and since the toolkit already has a custom toolbar, what I'd really rather do is have a button on the Toolkit toolbar for invoking the rerun macro. But I have some concerns and questions. First, as would be expected, if just add a button to the Toolkit toolbar for the rerun macro in a specific template, it only works with a document based on that particular template. And since there are 11 templates, I would have to add 11 buttons and then trust the users (stop LAUGHING!!!) to click the right one or try to trap errors or show/hide buttons based on the attached template for a document... and I don't even want to think about what would happen if there were multiple documents open... GAHHH!!! So I reckon a better approach would be to have a macro (and associated button) in the toolkit template that just calls the rerun macro in the attached template. I can guarantee that the name of the macro in each template would be the same, so that's no problem. However, I'm concerned/unclear about: 1) how to check that the attached template does indeed contain a rerun macro; and 2) the actual syntax for calling the macro in the attached template. Suggestions? Recommendations? Or have I just spent too much time with the sheep and am now delusional to even consider it? -- Cheers! The Kiwi Koder Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104948
  - 2
    - Drop down list size in a form Hello, I have a form with a drop down list with 63 entries. I found out that the drop down in a form will only accept 25 entries. This is really a very simple form and I was wondering if anyone has a good workaround to get more than 25 entries into a drop down list. Thank you for any help you can provide. Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104939
  - 3
    - How do I lock the size of a drop down menu inserted in word? I'm a business process SME in my industry, but an intermediate level user of the Office tools. I'm building a mock web interface using Word 2003 and the various forms available. Is there a way to lock the size of a drop down menu I've inserted, (once I've sized it to fit the menu text content) without protecting the entire form (which appears to lock down the entire document) ? Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104930
  - 4
    - Need Macro to UnBold TOC My TOC is bold and I want it unbold. All my Headings are Character Bold (from another application) so I changed all Heading Styles to be NOT bold so they remain bold. But the TOC stays bold independent of the style definition of bold or not bold. I can manually select the TOC an unbold it but would like a macro to select TOC an unbold it. Thanks Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104927
  - 5
    - Working with SUBs Kinda new to writing subroutines within VBA. I didn't realize that all the module-level variables declared in the body of the procedure are not available to you in the SUB. I guess I have to pass any that are needed in the SUB, as arguments? Is there another technique? Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104924
  - 6
    - Macro list drop down Hello, I think this is a really silly question but...I have created a form and within the form I have a text field for which I want to add a macro when a user enters the field. So I clicked on the drop down to pick the macro and I noticed that the way macros are listed makes no sense at all. The macros in normal.dot are for the most part just listed by themselves, i.e. without mentioning the module they're in. But then one of them is listed as <module name>.<macro name>. Some of the other listings sometimes include the name of the template, sometimes not. There seems to be no rhyme or reason to how macros are listed. Could someone clarifiy this for me? Thanks very much. Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104920
  - 7
    - Stop Printing Hello In a bid for Sustainable working (reducing my companies carbon footprint) i'm trying to limit the amount of printing done on my network. i can block printing using VBA in Excel but i'm scoobied about how to do it in word any ideas ? Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104918
  - 8
    - Copy commandbar from template to normal.dot Hey, I want to copy a commandbar from my current template to the normal.dot template. This has to happen when the user opens the template, so it has to be done i VBA code. It also have to make a check to see if the commandbar is already in the normal.dot file. I have seached the internet and haven't really found anything that could solve me problem... hope that there is someone in here that has a solution. Mvh Birger Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104913
  - 9
    - Counting Merged Records Hello, I've been writing a word macro that takes 2 excel files and merges them into 2 different documents. What I am trying to do is to count the Records being merged and display them in a message box. However, where ever I put MsgBox .RecordCount, I get a message box saying -1. The code I am currently using is :- Sub MergeStickers() ' ' MergeStickersMacro ' Macro recorded 3/19/2007 by GOakham ' strFileZ = Format$(Date, "yy-mm ") Const sFILE As String = "Fulfillment" Const sPATH As String = "\\Server\Dir\Dir2\Dir3\" Const sVAR As String = "" Const sVAR2 As String = " UK" ChangeFileOpenDirectory "\\Server\Dir\Dir2\Dir3\" Documents.Open FileName:="New Merge Settings2.doc", ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _ PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _ WritePasswordTemplate:="", Format:=wdOpenFormatAuto ActiveDocument.MailMerge.MainDocumentType = wdFormLetters ActiveDocument.MailMerge.OpenDataSource Name:=sPATH & sVAR & _ Format(Now - 1, "dd-mm-yy ") & sFILE & ".csv" _ , ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _ AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _ WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _ Format:=wdOpenFormatAuto, Connection:="", SQLStatement:="", SQLStatement1 _ :="", SubType:=wdMergeSubTypeOther With ActiveDocument.MailMerge .Destination = wdSendToNewDocument .SuppressBlankLines = True With .DataSource .FirstRecord = wdDefaultFirstRecord .LastRecord = wdDefaultLastRecord LNewDOC = ActiveDocument.Name End With .Execute Pause:=False End With ' Windows("New Merge Settings 2.doc").Activate ' ActiveWindow.ActivePane.VerticalPercentScrolled = 0 ' Windows(1).Activate 'MsgBox ActiveDocument.Sections.Count & " Pages." 'MsgBox ActiveDocument.MailMerge.DataSource.RecordCount '' ChangeFileOpenDirectory "\\Server\Dir\Dir2\Dir3\" Documents.Open FileName:="New Merge Settings2.doc", ConfirmConversions:=False, ReadOnly:=False, AddToRecentFiles:=False, PasswordDocument:="", _ PasswordTemplate:="", Revert:=False, WritePasswordDocument:="", _ WritePasswordTemplate:="", Format:=wdOpenFormatAuto ActiveDocument.MailMerge.MainDocumentType = wdFormLetters ActiveDocument.MailMerge.OpenDataSource Name:=sPATH & sVAR & _ Format(Now - 1, "dd-mm-yy ") & sFILE & sVAR2 & ".csv" _ , ConfirmConversions:=False, ReadOnly:=False, LinkToSource:=True, _ AddToRecentFiles:=False, PasswordDocument:="", PasswordTemplate:="", _ WritePasswordDocument:="", WritePasswordTemplate:="", Revert:=False, _ Format:=wdOpenFormatAuto, Connection:="", SQLStatement:="", SQLStatement1 _ :="", SubType:=wdMergeSubTypeOther With ActiveDocument.MailMerge .Destination = wdSendToNewDocument .SuppressBlankLines = True With .DataSource .FirstRecord = wdDefaultFirstRecord .LastRecord = wdDefaultLastRecord End With .Execute Pause:=False End With MsgBox "Auto Merge complete.Now put the stickers in the Printer,and press the OK Button", vbInformation, "Phew...Finished" End Sub Any help would be great Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104909
  - 10
    - possible to copy/fill Bookmarks with VBA dynamically ? Hello! My Problem is, that i have to fill a Word Document(Template) with DataBase Data... I Found out how to set Bookmarks in the Document and correctly fill them with the Data from the DB. Now the question : Is there a way to define Bookmarks in the Template, lets say in one row in a table and fill this table according to the length of my DataBase data ? (Copy the row WITH the Bookmars and add it to the table as many times as i need it) Cheers Martin Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104907
  - 11
    - manipulating word document one character at a time I'm moving some text around manually in a word doc using some c# (I couldn't find a word.csharp newsgroup, please respond in vba if it makes you feel more comfortable though). Moving characters around a word document one character at a time is extremely slow. Even if the document isn't visible. Can someone offer a suggestion to speeding the below code up? I'm thinking about some sort of way to tell Word to not process events (or something like that) while I'm moving everything one character at a time. Range cellRange = aDoc.Tables.Item(1).Cell(1, 1).Range; object collapseDirection = WdCollapseDirection.wdCollapseStart; for (int i = mergeFields.Characters.Count; i > 0; i--) { string character = mergeFields.Characters.Item(i).Text; if (mergeFields.Characters.ShapeRange.Shapes.Count == 0) { // add this character directly to our range object fieldText = character; // add our field object type = WdFieldType.wdFieldEmpty; cellRange.Collapse(ref collapseDirection); cellRange.Text += character; // remove this character from its original position object unit = WdUnits.wdCharacter; object count = 1; mergeFields.Characters.Item(i).Delete(ref unit, ref count); } } Any help is appreciated Thanks Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104898
  - 12
    - What's the statement to invoke a macro within the active Word docu The statement for MATLAB invokes a macro that has been defined within the active Excel spreadsheet file is:handle.ExecuteExcel4Macro('!macroname()'),but I can't find the correct statement for MATLAB invokes a macro that has been defined within the active Word document, maybe it is one of word's externatal interface functions as ActiveX Automation Server. please help me. Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104895
  - 13
    - how to make a check box work I have a fax cover sheet that has marco check box but I cant check or uncheck the boxes. Please help Thanks JWG Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104894
  - 14
    - smart-tags and hyperlinks I need to be able to process a document and have certain text strings recognized and turned into a hyperlink to launch an external .exe program with that text as a parameter. This doesn't look quite possible with the word hyperlink capability (it adds a "#" between the .exe name and the parameter that isn't processed correctly). Can I do this with smart-tags? Can I write the programs needed for smart-tags in VBA or do I need to learn vb.net to do this? Thanks. Chip Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104885
  - 15
    - macro to highlight text in carrots Is there a macro that I could use to highlight text in carrots? I would like the dark gray highlighting color. For example, here is a section of the document. <question> <quest>Having a good attitude about school and work and feeling good about what you achieve.</quest> <answer>career wellness</answer> </question> I need everything inside the carrots to be highlighted dark gray. Thanks. Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104883
  - 16
    - Debug Macro in Word 2007 I have recorded a macro which inserts header & footer & address Autotext entries but when I try to run it bombs on the first line & comes up with error 'Run time error 5941 Requested member of the collection does not exist' My autotext entries are CIMSHeader, CIMSFooter & CIMSAddress - I have no idea what Plain Number 1 is referring to..... I don't know anything about VB so no idea what the problem is and any help much appreciated - code as follows Sub CIMSInvoice() ' ' CIMSInvoice Macro ' ' ActiveDocument.AttachedTemplate.BuildingBlockEntries("Plain Number 1"). _ Insert Where:=Selection.Range, RichText:=True NormalTemplate.BuildingBlockEntries("CIMSHeader").Insert Where:=Selection. _ Range, RichText:=True If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).Close End If If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ ActivePane.View.Type = wdOutlineView Then ActiveWindow.ActivePane.View.Type = wdPrintView End If ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader NormalTemplate.BuildingBlockEntries("CIMSHeader").Insert Where:=Selection. _ Range, RichText:=True ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument ActiveDocument.AttachedTemplate.BuildingBlockEntries("Plain Number 1"). _ Insert Where:=Selection.Range, RichText:=True NormalTemplate.BuildingBlockEntries("CIMSFooter").Insert Where:=Selection. _ Range, RichText:=True WordBasic.ViewFooterOnly NormalTemplate.BuildingBlockEntries("CIMSFooter").Insert Where:=Selection. _ Range, RichText:=True ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument ActiveDocument.AttachedTemplate.BuildingBlockEntries("Plain Number 1"). _ Insert Where:=Selection.Range, RichText:=True NormalTemplate.BuildingBlockEntries("CIMSAddress").Insert Where:=Selection _ .Range, RichText:=True NormalTemplate.BuildingBlockEntries("CIMSAddress").Insert Where:=Selection _ .Range, RichText:=True ActiveWindow.ActivePane.VerticalPercentScrolled = 0 If ActiveWindow.View.SplitSpecial <> wdPaneNone Then ActiveWindow.Panes(2).Close End If If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _ ActivePane.View.Type = wdOutlineView Then ActiveWindow.ActivePane.View.Type = wdPrintView End If ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader Selection.MoveDown Unit:=wdLine, Count:=3 Selection.TypeBackspace WordBasic.GoToFooter Selection.MoveDown Unit:=wdLine, Count:=4 Selection.TypeBackspace ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument End Sub Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104881
  - 17
    - Understanding IncludePicture I have a report that pulls a button image from a specified directory, my command: {includepicture "C\{mergefield inventory#}.jpg \*mergeformat} - this almost works. The two problems that I have are 1) I would like to specify the size of the box that the image is pulled into. These images are all buttons, but when the image is pulled into the document, I have a large box with a small image and now the table is no longer the size that I have created it to be. Is there a way that I can draw a box and import the button image into it?? 2) My other problem is when the report merges, I have to refresh the document to bring in the images? Is this what I expect with a merged report that uses the "includepicture"?? Thanks, Diane Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104880
  - 18
    - Word x Access PT-BR Pessoal preciso de uma ajuda. Ã? o seguinte, tenho um banco de dados e gostaria de fazer uma mesclagem com um texto, seria o seguinte: Quando eu abro o word eu digito um nome que estÃ¡ cadastradro no banco de dados e o word substitui todos os campos x no texto para com os dados referentes daquele nome no banco de dados. Tem como fazer isso no word? Valeu a ajuda. Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104879
  - 19
    - Using ActiveDocument.GoTo in a loop I've got a document with 3 table of contents levels and I want to reduce this to 1 level. I know that the table of contents is defined byTC fields in 3 consecutive paragraphs. So I want to replace the TC field in the first paragraph by the new text, delete the TC fields in the next 2 paragraphs, then move on to the next TC field. It's the last part I can't figure out. I can get the contents of the first TC field using: Dim aRange As Range Set aRange = ActiveDocument.GoTo(what:=wdGoToField, Which:=wdGoToFirst, Name:="TC") I can then make the modifications, but how would I move on to the next TC field? I can use: Set aRange = ActiveDocument.GoTo(what:=wdGoToField, Which:=wdGoToNext, Name:="TC") But how can I test if the GoTo was successful? Is there a property of aRange I can use to loop through all the TC fields of the document until all have been modified or deleted? Because I'm going to delete fields, I can't use the "for each fld in activedocument.fields" approach. Any other suggestions? Advance thanks for any help, John Hendrickx Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104878
  - 20
    - How to link to a field in a tabel from a header? Programming or? Hi We have some QA documents where there is a change log in the end of the document which consist of multiple columns and rows. e.g. Initials, version and a change description column (3 in total) I need to show the most resent version and the initials in the header (automatically) since users often forget to type the initials and version in the header - meaning inconsistent data and serious troubles with the QA department ;) So I imagine that I can grab the data directlly from the change log table somehow and put it in the header - but how do I do that? regards -- Henry Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104874
  - 21
    - PasteOptions to preserve formatting of Word 2000 document Hi, I'm using Word Automation to generate word document which can be opened in Word 2000 or higer versions. I'm using Visual Studio .NET 2005 and the word 2000 related OLB, dlls to achieve this. I'm trying to generate a master word document which is formed from 1 or more small word documents. The problem i'm facing is Word 2000 doesnt provide the "Paste Options" to preserve formatting from the source document when we copy & paste into the master document. This can only be achieved using Word 2003. Paste Special feature in Word 2000 also not helping me to preserve all formats/styles from the source document. Source document will be always .RTF file. Please let me know whether there is any work around for this problem in Word 2000. i tried all the following approaches : 1) _Application.Selection.Range.Paste(); to paste the content into the master document, 2) Application.Selection.InsertFile to insert small word document into the master document, 3) _Application.Selection.PasteSpecial and the parameter for DataType i used is WdPasteDataType.wdPasteRTF. None of them provided the intended results. If anyone can help me in this regard, i'll be very much thankful. Thanks in advance, Best Regards, Ram. Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104873
  - 22
    - Word 2007 Programming? I've been reading about some of the programming and new document types with Office 2007. Currently we use an addin that enables all of our templates to merge data via DDE from the primary CRM application. I may need to replace Office 2000 with Office 2007 and port this VBA addin to the new Office 2007. I'd like to know if the .Net version is capable of instantiating DDE when a template is launched? Can I simply port the current addin dot to Office 2007 dot by copy paste into a new Office 2007 template? I think that the .Net version works with the new document types and may contain the code in an assembly centrally located; I'm hoping that the older .dot files are compatible with Office 2000 as far as the VBA is concerned are still capable of being installed in the startup folder, any info would be helpful. TIA Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104858
  - 23
    - Using Microsoft Word 2007 with Windows pocket pc 2003 I cannot believe what I am about to relate. I have an iPaq H5555 using Windows Mobile 2003 and I also have onto my desktop Word 2007 and I CANNOT USE THE TWO PROGRAMS! How incredibly stupid is that? I have no problem whatsoever using Adobe Acrobat but windows devices cannot see or open the other program. Wow. How do I open Word 2007 documents onto my Windows Mobile device? Do I have to buy a NEW Windows Mobile device? Or is a 'patch' available? Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104856
  - 24
    - locked for editing Program runs fine from a removable usb drive. when run from my hard drive it says locked for editing. Would like to know why it is locked on my drive but not locked on removable drive. Thanks Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104854
  - 25
    - Can I modify, or create new, buttons in the quick access toolbar I would like to create a modified version of the "print" button to the Quick Access Toolbar in MS Word 2007 - where the modified button will trigger an macro that I set up to print to a different tray in my printer. What is the default location of these graphic files for the buttons, and can I use Photoshop, for example, to create a modified version? Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104851
- Next
  - 1
    - Normal frustration Where is the Normal template? I have looked for it many times. Nor could I find it on a friend's PC today. We both use XP and Word 2002. In anticipation - thank you. Francis Hookham Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104847
  - 2
    - how to store word document content in a variable hi, can you pls send me the code for my below request: how to store word document content in in a variable Regards Raju A Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104839
  - 3
    - Form Button Hello all, im having a little problem running a macro for e-mail automation on a word document. When creating sheets in excel i used the option button on the forms panel. In my version of word (2003), i can't find the form button, only the controls 'command button'. I have assigned the 'Sub' code for my macro to the command button but don't know how to get it to work. Previously in excel i created the form button, right clicked and 'Assigned macro'. Can anyone please tell me if the option on the forms toolbar does exist? If not then how do i make it work on a Controls command button? Can provide more detail if required. Thanks in advance Andrewbt Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104835
  - 4
    - Extract word document content and save in MS Access. hi, i need a VBA code to Extract word document content and save in MS Access. Regards Raju A Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104834
  - 5
    - How to deduce date in words in Word? How to deduce date in words in Word? For example: July 10, 2007 should be as "Tenth of July two thousand seventh year" Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104824
  - 6
    - Turning Off Same as Previous Just a heads up, VBA knowledge: low novice Aside from manually going into each Header or Footer and deselecting Same as Previous (the bane of Word's existence) does anyone out there have a macro to do it in one sweep (taking out every designation in all Headers and Footers). Had one in my previous job, but did not think to take it with me. Thanks in advance. Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104823
  - 7
    - running into a spreasheet vba programmes number,x, from cell A3 and a positive integer, n, from cell B3 then returns into cell C3 the value of x raised to the power n divided by n factorial. where x in cell a3 = 2 and n in cell b3 = 5 im using this formula, but when i run it nothing happens, how do i make this vba programme run and return the value? the vba programmes ok its just no running anything or doing anything to my spreadsheet this is the vba programme: Public Function MyFunction(X As Double, N As Long) As Variant If (N <= 0&) _ Then MyFunction = "N must be an integer greater than zero" Else MyFunction = (X ^ N) / Worksheet("sheet 1").Fact(N) End If End Function anyhelp would be great thanks Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104821
  - 8
    - how to move text around in a word doc without copy and paste? I have an application I'm writing that needs to move text from one place in a word doc to another. A simple enough process but it's proving to be difficult to get just right. Right now I have it *working* using cut and paste. The only problem with this is that, as their names imply, these methods actually use the Windows clipboard. This won't work for me as I don't want people to have to be aware of the fact that while this utility is running they cannot use the clipboard for anything or the application will mess up their documents. In my application I find and select a range of text. Then on the range I say Cut(). I know that on the same range object I have a property named "Text". The problem I have with using this is that the specific text I am moving has merge fields in it. They look something like this "{merge field}". When I try to read the text property of a range that has a merge field in it, instead of getting the above text, I get boxes where the "{" and "}" characters are. So, using the Text property to move the text around actually changes the text to something unusable. Does anyone know a fix for this? Thanks much Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104815
  - 9
    - NEWBIE:splitting multi-page word doc into single word doc - thank Hi, Environment: Windows XP/ home edition; sp2 Office 2000 [no help installed and no cd to install help :-( ] experience: newbie to vba, c coding experience This request is free of charge for a friend who would do anything for anyone. His hard drive of clients was hosed and is able to retrive it from another source. Unfortunately, the files retrieved are not named properly and incompatible with his business operations. Problem description/vba coding segment requested: Over 60 documents named xxxxxnnnn.doc that contain client info, delimited with over 65 page breaks. Within each page break contains the client info, which needs to be extracted into their own word document, and take on the name: client_name_date_of_service.doc to easily distinguish it. Relevant client information (including ultimate file name) is contained within each page break in the larger document. Last record in original file may not contain the page break, but I'd still like to be able to capture this one as well. Filename containing relevant client information should be of the form client_name_date_of_service.doc (this information is contained within each page break) Objective: - Cycle through all the word documents (approx 60 files) in a given folder -for each large document file (over 60 files) -- start the splitting process - open each file - for each page break found (between 65 - 80 page breaks) - for each paragraph in each page break - capture the first line of each page [this is the client name] - for each paragraph [search for the string "date"] - generate the client name (eg.joe_smith_1_24_07.doc) and save in a string variable - capture the entire page ---> including final page break for each page ---- select the contents of this page break and copy the entire page, including trailing page break [if absolutely necessary,] into client_name_date_of_service.doc. (eg. joe_smith_1_24_07.doc) - next [for each page break until no more page breaks in this file -- note: the final client info. may not contain the trailing page break, but I'd still like to be able to capture it and store it in its proper clientname_date_of_appt.doc - next [for each file containing all the client data within the page breaks] - close/properly dispose of any allocated resources - error handler to close/dispose to determine the cause of the failure and properly shutdown the application. ?? any additional steps that I've neglected to mention. I enjoy helping people and learning new things. Many thanks to all who take the time to share their time and talents by responding witih the code capable of accomplishing this task. With much gratitude and appreciation, Patti Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104812
  - 10
    - Replacing Text w/Autotext - Graham, Gred, Ed, Rus Hi Graham, I did not try your code since your original response (way back when) mentioned replacing entries [A], [B] with Include Text Fields using a document to hold variable info with bookmarked items then an alternate method was to put the variable info in individual documents, etc. It was getting a little bit hairy and out of control with bookmarks, documents, etc. Then Greg came in with the Array Code and it was compact (in that I wasn't having to bookmark items or flip through various docs) and then there was a slew of dialog amongst yourselves (you, Greg, Ed, Russ) that I wasn't quite sure what you guys were talking about "Option Explicit", etc. And then you made a comment "but I wonder if this would confuse beginners even more" which hit the nail on the head - you guys were assuming a level of knowledge that I did not possess - and while the dialog was interesting, there was one statement that Greg made in response to Ed (I tried Ed's solution but I'm sure that was error on my part) that caught my attention and that I had a sense of being right - he said, "I still think I would use the array though instead of having all of the routines and passing variablesâ?? (it was similar to me not wanting to do the bookmarking and various documents you suggested). It seemed like too much "stuff" for a simple task. I knew there had to be simpler way and it seemed that Greg was on the cusp with the solution for me. I hadn't tried your method (vFindText = Array) because in our previous communications between us it seemed that I couldnâ??t get past the Autotext code/Autotext entry issue. So, since I was getting so many attempts from various individuals, I stuck with Greg because it seemed right to me (despite my limited knowledge). And, by the way, the â??tagsâ?? [A], [B], etc. that are being used in my documents are [AB], [ABA], [OB], etc. I only used [A]â??s [B]â??s as examples for simplicity. I did, indeed, replace the text I needed to find in Gregâ??s my Array statement. So, long story short â?? itâ??s a tremendous plus to know the skill level of your audience. As Iâ??ve mentioned in various other posts â?? Iâ??ve taken programming courses eons ago â?? Assembly, Cobol so I have knowledge of Ifâ??s, Thenâ??s, Else, Loops, etc., but I do not speak VBA â?? my VBA is like my Spanish. I can conjugate some verbs and know a few sentences here and there, but stick me in Spain for a couple of months and Iâ??m going to have to resort to speaking English and drawing pictures to express myself. Oh, and pass onto Susan â?? my husbandâ??s not the sharing type either â?? was sort of a metaphorical way of expressing my delight. Thanks Graham and all of you out there. You are appreciated. Sorry if I disappointed you Graham, Ed and Russ. Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104803
  - 11
    - Zip Code Plus 4 Microsoft Word VBA Macro I am using Microsoft Word 2000 and Windows XP. I would like to take an address, send it to the US Post Office website: http://zip4.usps.com/zip4/welcome.jsp Format the address as the Post Office likes it, and put in the zip plus four zip code. Has someone already written the code for this? If not, any ideas how to do it? Examples would be greatly appreciated. Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104801
  - 12
    - Re: Replacing Text w/Autotext - Greg, Ed, Graham,Russ Summer, Yes, the .find method in VBA by default only searches the main body text area. See this webpage for more information. <http://word.mvps.org/faqs/customization/ReplaceAnywhere.htm> > It does not however do graphics in Hdr/Ftr's though - just in case you use > them. > > > "Greg Maxey" <gmaxey@mvps.oSCARrOMEOgOLF> wrote in message > news:u9%23X4tD7HHA.2752@TK2MSFTNGP06.phx.gbl... >> Jerem, >> >> That wasn't a 4 Star example of coding. It worked until I started trying >> to give you the option of making a choice between replacing your text with >> AutoText or AutoText fields. I didnt' test afterwards and admit the post >> was dog's breakfast. >> >> Here are two macros. The first replaces your [A], [B], [C] with autotext. >> The second replaces with AutoText fields. >> >> Sub ScrathMacroI() >> Dim myArray As Variant >> Dim i As Long >> Dim oRng As Word.Range >> myArray = Split("[A]|[B]|[C]", "|") >> For i = 0 To UBound(myArray) >> Set oRng = ActiveDocument.Range >> With oRng.Find >> .Text = myArray(i) >> .Forward = True >> .Wrap = wdFindStop >> While .Execute >> oRng.InsertAutoText >> oRng.Collapse wdCollapseEnd >> Wend >> End With >> Next i >> End Sub >> Sub ScrathMacroII() >> Dim myArray As Variant >> Dim i As Long >> Dim oRng As Word.Range >> myArray = Split("[A]|[B]|[C]", "|") >> For i = 0 To UBound(myArray) >> Set oRng = ActiveDocument.Range >> With oRng.Find >> .Text = myArray(i) >> .Forward = True >> .Wrap = wdFindStop >> While .Execute >> oRng.Fields.Add Range:=oRng, Type:=wdFieldEmpty, Text:= _ >> "AUTOTEXT " & myArray(i), PreserveFormatting:=False >> oRng.Collapse wdCollapseEnd >> Wend >> End With >> Next i >> End Sub >> End Sub >> >> -- >> Greg Maxey/Word MVP >> See: >> http://gregmaxey.mvps.org/word_tips.htm >> For some helpful tips using Word. >> >> "jerem" <jerem@discussions.microsoft.com> wrote in message >> news:3D045AC4-C171-4F47-BE5C-43D3FEFE18B6@microsoft.com... >>> Looks like the problem occurs at Replacement.Text = "" or at least that >>> statement is highlighted in Yellow when you go back into the Macro after >>> getting the Run Time Error '424', Object Required message >>> >>> "jerem" wrote: >>> >>>> Tried it, Result: Run time Error '424', Object Required >>>> >>>> "Greg Maxey" wrote: >>>> >>>>> Jerum, >>>>> >>>>> Here is code that works to replace either with AutoText or the >>>>> AutoText >>>>> field code. You decide which you want and then delete the message box >>>>> and >>>>> extraneous code: >>>>> >>>>> Sub ScrathMacroII() >>>>> Dim myArray As Variant >>>>> Dim i As Long >>>>> Dim oRng As Word.Range >>>>> myArray = Split("[AB]|[A]|[B]", "|") '[C] etc. >>>>> For i = 0 To UBound(myArray) >>>>> Set oRng = ActiveDocument.Range >>>>> With oRng.Find >>>>> ..Text = myArray(i) >>>>> ..Replacement.Text = "" >>>>> ..Forward = True >>>>> ..Wrap = wdFindStop >>>>> If MsgBox("Do you want to replace with AutoText fields?", vbYesNo, >>>>> "Choice") >>>>> = vbYes Then >>>>> While .Execute >>>>> oRng.Fields.Add Range:=oRng, Type:=wdFieldEmpty, Text:= _ >>>>> "AUTOTEXT [AB] ", PreserveFormatting:=False >>>>> oRng.Collapse wdCollapseEnd >>>>> Wend >>>>> Else >>>>> While .Execute >>>>> oRng.InsertAutoText >>>>> oRng.Collapse wdCollapseEnd >>>>> Wend >>>>> End If >>>>> >>>>> End With >>>>> Next i >>>>> End Sub >>>>> >>>>> -- >>>>> Greg Maxey/Word MVP >>>>> See: >>>>> http://gregmaxey.mvps.org/word_tips.htm >>>>> For some helpful tips using Word. >>>>> >>>>> "jerem" <jerem@discussions.microsoft.com> wrote in message >>>>> news:F9C12A52-B748-44A3-A41A-C154BECF4F60@microsoft.com... >>>>>> Hi Greg, Ed, Russ, etc. >>>>>> >>>>>> Greg, tried the code you gave me: >>>>>> Sub ScrathMacroII() >>>>>> Dim myArray As Variant >>>>>> Dim i As Long >>>>>> Dim oRng As Word.Range >>>>>> myArray = Split("[A]|[B]", "|") '[C] etc. >>>>>> For i = 0 To UBound(myArray) >>>>>> Set oRng = ActiveDocument.Range >>>>>> With oRng.Find >>>>>> .Text = myArray(i) >>>>>> .Replacement.Text = "" >>>>>> .Forward = True >>>>>> .Wrap = wdFindStop >>>>>> While .Execute >>>>>> oRng.InsertAutoText >>>>>> oRng.Collapse wdCollapseEnd >>>>>> Wend >>>>>> End With >>>>>> Next i >>>>>> End Sub >>>>>> >>>>>> and it doesn't seem to do anything. >>>>>> >>>>>> Ed, similar problem with the code below: >>>>>> Sub Test() >>>>>> ReplaceStuff ("[A]") >>>>>> ReplaceStuff ("[B]") >>>>>> ... >>>>>> ... >>>>>> End Sub >>>>>> >>>>>> >>>>>> Sub ReplaceStuff(pText As String) >>>>>> Dim MyRange As Range >>>>>> Dim FindString As String >>>>>> >>>>>> FindString = Replace(Replace(pText, "[", "\["), "]", "\]") >>>>>> >>>>>> With Selection.Find >>>>>> Do While .Execute(FindText:=FindString, _ >>>>>> MatchWildcards:=True, _ >>>>>> Wrap:=wdFindContinue, _ >>>>>> Forward:=True) = True >>>>>> Set MyRange = Selection.Range >>>>>> MyRange.InsertAutoText >>>>>> Loop >>>>>> End With >>>>>> End Sub >>>>>> >>>>>> So.......just one more question with the code below -- rather than >>>>>> using >>>>>> the >>>>>> Dim i As Integer >>>>>> i = 4 >>>>>> Do >>>>>> i = i - 1 >>>>>> and the Loop Until i = 0 to get my set of instructions to loop until >>>>>> all >>>>>> [A]'s appearing in the document are replaced with similarly named >>>>>> autotext >>>>>> entries (and the only reason I'm using these statements is because >>>>>> it's >>>>>> the >>>>>> only way I know how to get the darn thing to loop) >>>>>> >>>>>> >>>>>> >>>>>> I know all of you have been trying to help me by giving me other >>>>>> suggestions >>>>>> (but it's not accomplishing what I need to get done) but the code >>>>>> I've >>>>>> come >>>>>> up with does accomplish it. I just need something like >>>>>> >>>>>> Keep repeating the instructions below >>>>>> Selection.Find.ClearFormatting >>>>>> With Selection.Find >>>>>> .Text = "[AB]" >>>>>> .Replacement.Text = "" >>>>>> .Forward = True >>>>>> .Wrap = wdFindContinue >>>>>> .Format = False >>>>>> .MatchCase = True >>>>>> .MatchWholeWord = False >>>>>> .MatchWildcards = False >>>>>> .MatchSoundsLike = False >>>>>> .MatchAllWordForms = False >>>>>> End With >>>>>> Selection.Find.Execute >>>>>> Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, >>>>>> Text:= >>>>>> _ >>>>>> "AUTOTEXT [AB] ", PreserveFormatting:=False >>>>>> Until there are no more to replace then go to the next set of >>>>>> instructions >>>>>> following this one >>>>>> >>>>>> I know there are Whiles and Wends but have tried to fool around with >>>>>> these >>>>>> but can't seem to get them to work. I just need someone to get >>>>>> these >>>>>> instructions to loop without use a counter. ????????? >>>>> >>>>> >>>>> >> >> > > -- Russ drsmN0SPAMikleAThotmailD0Tcom.INVALID Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104796
  - 13
    - How do I create Macros for frequently used words & Phrases I want to be able to record a macro: For example, let's say I use the word bookkeeper very often and I want to be able to type "bkpr, space bar" and then the word spells out. Is this possible with word and if so, how do I do it? Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104789
  - 14
    - Ensuring units are inches instead of points In my office, I have several people who setup their MS Word 2003 to show units as inches instead of points, but oftentimes it switched to points. Is there a way, maybe using the AutoOpen macro, to ensure a file opens using inches instead of points? Thanks. Frank Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104784
  - 15
    - How do I mail an attachment from words 2007? Why can't I email from words 2007. It's grayed out. HELP. Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104783
  - 16
    - Getting customized Normal template to work in another computer I copied my Normal template (from Word 97) into a Windows XP computer with Word 2003, renamed the Normal that was already there as OldNormal, renamed my template as Normal. Word started up ok, but when I ran my macros, I got an error message, "Compile error--can't find project or library." What does this mean? The only thing I can think of is that I need to check the same items in Tools, References in the new computer as in the old. Or is there something more than that I need to do? Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104779
  - 17
    - Load document after start-up form New to VBA in Word. I have a simple form that I want to pop up when the user opens a document. When the user does something there and clicks a 'submit' button I want the document to open. Simple right? So far I have: In module AutoExec: Sub Main() Load UserForm1 UserForm1.Show End Sub In the click event for a button on UserForm1 I have this (for simplicity let's assume the button does nothing else but I just want to proceed with opening the document): Private Sub btnSubmit_Click() Me.Hide ThisDocument.Activate End Sub This is apparently not correct. I have tried a few other things such as: Load ThisDocument Unload Me This must be something simple. Any help? Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104777
  - 18
    - question about arrays I've declared a one-dimensional, fixed-size array and assigned values to SOME but not all of its elements. I know UBound() will return the upper bound of the array. Is there a function that will return to me the index number of the highest-numbered element **for which I've actually assigned a value**? Thanks. Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104759
  - 19
    - how to select multiple discontinuous blocks of text with VBA It's possible to use the control key when selecting text with the mouse to have multiple areas of selected text that aren't continuous with one another. I need to do this with VBA. I've tried recording a macro to see how it's done, but that didn't work. I've tried defines range for each block I need selected, but as I use the range.select method on each successive block of text, it unselects the previous block. Can anyone tell me how this can be done? Thanks. Chip Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104758
  - 20
    - Remove final macro dialog Outlook 2000 The following macro woks great on the selected text except that after it runs it displays the following message: "Word has finished searching the selection. 2 replacements were made. Do you want to search the remainder of the document?" Yes / No How can I get rid of this? I just want it to act on the selected text w/o this dialog box at the end. Yes, I know I can just click on "No" but that does not seem very clean. Thanks Sub ConvertWrap() With Selection.Find .Text = "([!^013])^013([!^013^t])" .Replacement.Text = "\1^032\2" .Forward = True '.Wrap = wdFindContinue .Wrap = wdFindAsk .Format = False .MatchCase = False .MatchWholeWord = False .MatchAllWordForms = False .MatchSoundsLike = False .MatchWildcards = True .Execute Replace:=wdReplaceAll End With End Sub Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104755
  - 21
    - microsoft word I wish to go into The Home version of "Word But I have lost the key to enter Please help? Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104751
  - 22
    - excel/word macro conversion Hello all. I am currently using the code below for setting up an e-mail function in excel. If anyone here knows of any way to transfer this macro for it to work on a word document rather than my excel sheet then any help would be greatly appreciated. Thanks in advance. Sub correctionmail() Dim FileExtStr As String Dim FileFormatNum As Long Dim Sourcewb As Workbook Dim Destwb As Workbook Dim TempFilePath As String Dim TempFileName As String Dim OutApp As Object Dim OutMail As Object With Application .ScreenUpdating = False .EnableEvents = False End With Set Sourcewb = ActiveWorkbook ActiveSheet.Copy Set Destwb = ActiveWorkbook With Destwb If Val(Application.Version) < 12 Then FileExtStr = ".xls": FileFormatNum = -4143 Else If Sourcewb.Name = .Name Then With Application .ScreenUpdating = True .EnableEvents = True End With MsgBox "Your answer is NO in the security dialog" Exit Sub Else Select Case Sourcewb.FileFormat Case 51: FileExtStr = ".xlsx": FileFormatNum = 51 Case 52: If .HasVBProject Then FileExtStr = ".xlsm": FileFormatNum = 52 Else FileExtStr = ".xlsx": FileFormatNum = 51 End If Case 56: FileExtStr = ".xls": FileFormatNum = 56 Case Else: FileExtStr = ".xlsb": FileFormatNum = 50 End Select End If End If End With TempFilePath = Environ$("temp") & "\" TempFileName = "Part of " & Sourcewb.Name & " " & Format(Now, "dd-mmm-yy h-mm-ss") Set OutApp = CreateObject("Outlook.Application") OutApp.Session.Logon Set OutMail = OutApp.CreateItem(0) With Destwb .SaveAs TempFilePath & TempFileName & FileExtStr, FileFormat:=FileFormatNum On Error Resume Next With OutMail .To = "" .CC = "" .BCC = "" .Subject = "" .Body = "" .Attachments.Add Destwb.FullName .Display send it. End With On Error GoTo 0 .Close SaveChanges:=False End With Kill TempFilePath & TempFileName & FileExtStr Set OutMail = Nothing Set OutApp = Nothing With Application .ScreenUpdating = True .EnableEvents = True End With End Sub Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104747
  - 23
    - Reselect the drop down box on exit macro when not tabbed out of I have a protected document that uses drop down form fields, and on exit I want the form field to be reselected if a certain value is selected. I am using this code for another area to get the name, but i haven't been able to use it as a selection If Selection.FormFields.Count = 1 Then 'No textbox but a check- or listbox BKMname2 = Selection.FormFields(1).Name ElseIf Selection.FormFields.Count = 0 And Selection.Bookmarks.Count > 0 Then BKMname2 = Selection.Bookmarks(Selection.Bookmarks.Count).Name End If I have tried: ActiveDocument.FormFields(BKMname2).Range.Select Selection.GoTo What:=wdGoToBookmark, Name:=BKMname2 ActiveDocument.Bookmarks(BKMname2).Range.Fields(1).Result.Select ...And none of these seem to select the bookmark. I can make it reselect the drop down menu when tab is pressed, that is not a problme as i simply use: SendKeys "{LEFT}" SendKeys "%{DOWN}" however the people using this form may not always use the tab key, or at all, and i just want to cover myself, otherwise I will be bombarded by calls. What am I doing wrong? Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104746
  - 24
    - deleting macros dear all, windows xp pro sp2, office 2003 pro sp2, i have recorded a macro and saved it within the document where the macro was used. now that i finished with the macro and have deleted it, i am puzzled that subsequently whenever i launched the document the security warning "C:\Documents and Settings\... contains macros -> Disable or Enable macros keep coming on. shutting down and rebooting does not seems to have made a difference. is this normal (i.e. "a bug in office 2003") or am i not doing something right? of note, this was my own document, it hasn't been anywhere, contaminated or infected. would appreciate advice and help in this situation. thank you, jes Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104733
  - 25
    - Copying styles from a .dot to .doc sometimes changes the condensin Hi I have some strange style copying behaviour in Word 2003 under XP here. I have a template.dot file with example text set up in all our corporate styles. We refresh our book chapters with this just before publishing. If we refrefresh using the same font as the book already contains, all is well. If we change the font (only the font name, nothing else) of a style in the template.dot file just before the refresh then about a quarter of the paragraphs (always the same ones) are changed to condensed by 1.0 points. Here is the core of the refresh macro (I have removed a couple of very long paths): '================================================== ' Count the styles avilable in Template.dot and create a list of their names Documents.Open FileName:="C:\....\Template.dot" Set myDoc = ActiveDocument StyleCount = 0 For Each sty In myDoc.Styles StyleCount = StyleCount + 1 StyleNames(StyleCount) = sty.NameLocal Next sty Documents("Template.dot").Close ' ActiveDoc is now the book chapter again For n = 1 To StyleCount Application.OrganizerCopy _ Source:="C:\....\Template.dot" _ , Destination:=ActiveDocument.Path & "\" & ActiveDocument.Name _ , Name:=StyleNames(n) _ , Object:=wdOrganizerObjectStyles Next n '================================================== If anyone has any idea what I may be doing to cause this condensing I'd be really grateful! Jeremy Tag: shortcut or macro for "Paste Unformatted Text" Tag: 104732

I would like to create either a keyboard shortcut or a macro for Paste>Paste
Special>Unformatted Text. The problem I have is that when I get to the
command, I cannot stop the macro recorder; hence, when I play the macro it
doesn't work.

I'd like to do the same thing for "add entry to autocorrect." In Word 2003 I
had keyboard shortcuts for both of these and they saved me lots of time.

Top

Re: shortcut or macro for "Paste Unformatted Text" by Graham

Graham
Thu Sep 06 01:09:52 CDT 2007

Sub PasteUnfText()
On Error GoTo Oops
Selection.PasteSpecial DataType:=wdPasteText, Placement:= _
wdInLine
End
Oops:
Beep
End Sub

See http://www.gmayor.com/installing_macro.htm

ALT+T, A activates the autocorrect dialog.

--
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>
Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org
<>>< ><<> ><<> <>>< ><<> <>>< <>><<>

Alan wrote:
> I would like to create either a keyboard shortcut or a macro for
> Paste>Paste Special>Unformatted Text. The problem I have is that when
> I get to the command, I cannot stop the macro recorder; hence, when I
> play the macro it doesn't work.
>
> I'd like to do the same thing for "add entry to autocorrect." In Word
> 2003 I had keyboard shortcuts for both of these and they saved me
> lots of time.

Top