Automating search/replace within a block

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - Formfield wdDateText Hi, I'm having a problem adding a formfield in Word 2000. I'm adding a textbox and want it to be formatted with the DateText setting. I want the formatting to spell out the month day, year when the user enters the date. I've been playing with the TextInput property, but must be missing something. This is the code w/o TextInput property. Set ffield = ActiveDocument.FormFields _ .Add(Range:=Selection.Range, Type:=wdFieldFormTextInput) With ffield .OwnStatus = True .StatusText = "Type Prior Application Filing Date, xx/xx/xx" End With Thank you. jbc Tag: Automating search/replace within a block Tag: 115545
  - 2
    - Visual Studio VSTO Projects wants Office 2003?? I just installed Visual Studio 2005 and VSTO. When I try to create a Word Document project it complains that I don't have Office 2003 installed. I do have Office 2007 installed. What's up with that? Tag: Automating search/replace within a block Tag: 115541
  - 3
    - Repopulate UserForm from Document I have created a 2003 Word Template [2007 Compatibility Mode] that uses 2 userforms. (The 2 userforms are identical, except for the Name and some of the VBA coding.) The first userform loads when the template opens as a document to which the user enters information in each field and upon clicking OK, the new document populates with the entered information. The second userform was created to appear with the help of a keyboard shortcut macro to appear so that the user has the option of changing the previously entered information. My problem is that I want the second userform to populate with the information that was previously entered. Here is a sampling of my code for the second userform: Private Sub DisplayEditForm1() With ActiveDocument txtProjectDescription = ActiveDocument.Variables("ProjectDescription").Value etcâ?¦.. End With End Sub I have tried some of the other posted suggestions, but I'm still having problems. Does anyone have any suggestions? Thanks bunches!! Tag: Automating search/replace within a block Tag: 115539
  - 4
    - Using KeepTogether for paragraph formatting Hi everyone, Here is my scenario: I'm creating a MS Word document using the Interop/Word API. My document consists of multiple "blocks" and I need to ensure that each block does not overflow a page. I have found multiple references to the KeepTogether property but have not been successful at getting it to work. Currently I am treating a document as a collection of paragraphs. In my code, whenever I encounter a new "block", I am creating a new paragraph. I then pull the range from the paragraph object and write out to the document until I detect the end of the block. // New block... Range.InsertAfter("some text"); Range.Collapse(ref end); Range.InsertAfter("most text"); // say I detect end of block here Range.InsertParagraphAfter(); // repeat from top If I try to set the KeepTogether property of a given paragraph, I get a "invalid value for range exception"... I'm setting the property like so: doc.Paragraph[1].KeepTogether = 1; I can't figure out what it is I'm doing wrong here... Thanks for any help! Tag: Automating search/replace within a block Tag: 115537
  - 5
    - Error! No document variable supplied. Hi to all I have developed a system in Delphi and want to print into Word some information. I have created the field in Delphi that will print in word (DOCVARIABLE varname, IF{DOCVARIABLE varname}=" " "" ) but I keep having the message "Error! No document variable supplied." when no data is in Delphi database field. It works when there is data. Can any one out there help me in building the intructions to avoid the message mentioned above when the field is blank? Thanks for your valuable help. -- CP Tag: Automating search/replace within a block Tag: 115522
  - 6
    - Header usage Hi, I`m not new to code but not an expert with office..is there a way to produce a header only on certain pages?.What I am tring to do is insert our company Logo into some batch processed documents. We do not want to use letterhead so the best would be to insert the logo within the Doc itself. Trying to use headers really isnt an option because every page will have the header and we really dont want that.. I have thought of using a text box and embeedding the image which makes sense but being that I need to do this in batches its hard to do beacuse of the section breaks and so forth.. Would anyone have any ideas on how I could go about insert the logo once per document, keeping in mind that the batch merges can draft many letters onto 1 doucment. Hope that explains it enough.. thanks R Tag: Automating search/replace within a block Tag: 115521
  - 7
    - Application.screenupdating = false?? What's going on? Hi, I have the following code: Private Sub RadBtnCI_Click() Dim otable As Table For Each otable In ActiveDocument.Sections(4).Range.Tables Application.ScreenUpdating = False Call HideTableRows_fromRadioButtons(otable) Application.ScreenUpdating = True Next RadBtnCI.Select End Sub The "HideTableRows_fromRadioButtons" subroutine unhides plenty of rows in many tables and calls other subroutines. It takes 15-20 seconds to complete. During this time, despite of the Application.ScreenUpdating = False, the left side of the screen gets filled up with black horizontal lines. Application.ScreenUpdating = False DOES prevent the screen from showing how each table expands and collapses gradually, but I'd like to know whether it's possible to get rid of these annoying black lines that might confuse the user and led him to think that the computer is going to crash. The black lines do dissappear when the subroutine is complete, but 20 seconds of black lines filling up the screen is annoying, unprofessional and makes you think the program is crashing. Any help is appreciated, Thank you Tag: Automating search/replace within a block Tag: 115510
  - 8
    - Progress bar that tracks actual progress?? I just finished implementing and testing my first progress bar. I got the code from this link: word.mvps.org/faqs/Userforms/CreateAProgressBar.htm I was dissappointed though!! As far as I understand how the progress bar works and based on my timing results, the progress bar does not track actual progress, it simply fills up a bar independently of the actual progress of a subroutine. In the end, you get a slower program that does nothing to keep the user informed of the actual progress. Is there a way to code a real progress bar, one that actually tracks the actual progress of a subroutine? Even if it does it with an error margin? Thank you, Juan Tag: Automating search/replace within a block Tag: 115508
  - 9
    - Use Saveas to convert document to PDF without prompting? Is it possible to use Saveas to convert a Word document to PDF without prompting? I'm using Word 2007 (and Vista), and I have the line: newDoc.SaveAs FileName:=sNewFileName, FileFormat:=wdExportFormatPDF It worked, but I had to answer two promts for each PDF file saved. Is there a way to accomplish this without prompting? Steven Craig Miller Tag: Automating search/replace within a block Tag: 115506
  - 10
    - Forming a sentence from a checkbox list Hiya - first post alert! I'm try to get word to form a sentence from user selected checkboxes, for example a user selects the items that they want and then word forms a sentence such as "i want X, Y and Z" So that it inserts commas and the word "and" in the correct place. i tried having a count, for the items and then when the count is > 1 getting word to type ", " but this code never called. any help please? Tag: Automating search/replace within a block Tag: 115497
  - 11
    - Re: How to get to email from Word Hi, I am referring to the thread "How to get to email from Word" dated 4/20/2008. Virtually you have made the formatting worked. I'm using Word 2003/Outlook 2003. I copied the whole sub from Gramham's final version dated 04/22/2008, but I am stuck with error 91 - object variable or With block not set) on the statement objDoc.Range.Paste. What do I need to do get around with the this error? Many thanks, Tag: Automating search/replace within a block Tag: 115491
  - 12
    - Convert Document object to byte array without using hard drive I'd like to use MS Word as a text editor and store the data as a byte[] within a name in Excel. I'd like to embed a Word document in an Excel file so the user can create rich 'how-to' documentation which gets transported with the workbook. Document's SaveAs and Open methods require a filename to be passed in, and a Document object is not serializable. To save the file, I could save the Document as a temporary file as an intermediary, and then open up that file as a FileStream which I could then convert to a byte array. However, creating the FileStream doesn't work if the Document is still open in Word as it is being used by another process. Outlook seems to be able to use Word as a text editor for composing email messages, I'd like to do something similar. Any ideas? I'm using C# in VS 2008 Professional, and Office 2003. Thanks. Tag: Automating search/replace within a block Tag: 115485
  - 13
    - HELP PLEASE My boss is very picky about how he wants this project manual done. Here are his requests that I need assistance with: 1.) He wants the page #s to be on the right side on the front pages and the page #s on the left side on the back of the same paper. How do I do this? 2.) He has each chapter broken up into separate word documents but he wants the page numbers to change in all other chapters if he adds or subtracts pages in other documents. Can this even be done? If so, how? 3.) How do you import all information from Adobe Acrobat to Word? I am in a bind and he is expecting me to be some kind of expert. Please help me. -- LL Tag: Automating search/replace within a block Tag: 115480
  - 14
    - Insert sentence only if text field is not null My searching is coming up empty, because I don't know what my intended result is called. Can someone tell me the name of what I'm trying to do, and direct me to the right reading? I want to insert some text if a certain field is not null. I also want to insert the contents of that field in the conditional text, i.e.: ...renew extensions of credit to the BKBORROWER[ and BKBORROWER2, each singly or collectively]. Thanks in advance. Sandi Tag: Automating search/replace within a block Tag: 115473
  - 15
    - Find and Replace all occurrences except the first I have a find and replace vba script that can replace what I want, but it does it to all occurrences, and the requirements are to replace all of the occurrences except the very first one in the document. The code is: Sub FindAndReplacewithAcronym() Selection.Find.ClearFormatting With ThisDocument.Application.Selection.Find .Text = "Full name of the item" .Replacement.Text = "Acronym of the item" .Forward = True .Wrap = wdFindContinue .Format = False .MatchCase = False .MatchWholeWord = False .MatchWildcards = False .MatchSoundsLike = False .MatchAllWordForms = False End With ThisDocument.Application.Selection.Find.Execute Replace:=wdReplaceAll End Sub How can I modify it to do this? Do I have to count the occurrences and then do something while the count is greater than 1? Tag: Automating search/replace within a block Tag: 115470
  - 16
    - VBA scripting in Word 2003 I created a form using the web tools (I plan to add to company website). I am having problems validating required user input. On a regular word form, I validate the fields using ActiveDocument.FormField(FieldName). How would I do this same thing on a form created with the web tools? Tag: Automating search/replace within a block Tag: 115465
  - 17
    - Code to recover passwords Hi, I am looking for a code to recover the password protection I put on a word document, I can't remember the password and I need to alter the document, can anyone help me please. i know you can run a vba in excel to recover the passwords but dont know about word. Regards Tag: Automating search/replace within a block Tag: 115457
  - 18
    - Templates - choosing a header/footer I have created numerous templates all based upon 1 letterhead with the company logo on top and address info in the footer. I populate form fields from our host systems, select drop downs, check boxes, etc upon doc new. Recently our company started marketing new poducts within a new company. All correspondece for this company uses a different header/footer, although eveything else is the same (body of letter, form fields, etc). Rather than creating templates for each company, I was thinking of having a userform where the person could select which company. Based upon that info it could load the appropriate header/footer. I'll use Comp A and Comp B for example. Thinking I could leave templates with Comp A header/footer. Upon doc (new) a userform would ask which company. If Comp A selected then no change. If Comp B selected then would need to delete header/footer and insert new header/footer. By delteting and inserting header/footer, would that affect the body text, form fields,etc? Or is it easier to start with a blank doc and then show userform and then insert the header/footer based upon choice? Is this possible to do either of these and if so please offer suggestions on how to go about this. Or am I reaching and the best practice would be to use different templates and just copy the letter body and macros? Thanks, Bryan Tag: Automating search/replace within a block Tag: 115454
  - 19
    - copy document to other document Hi, I have searched a few day's for the next problem. I have several document in a directory. With a simple form I would make one big document. The form part is working, but I can't merge the documents together. With the code below, I get only the result of the last document. Public Sub copy_selection_from_file_2() Dim docBron As Word.Document Dim docOut As Word.Document Dim rngIn As Word.Range Dim rngOut As Word.Range ' Set docBron = Documents.Open("D:\Data Offline\Word \copy_test_bron") Set rngIn = docBron.Content Set docOut = Documents.Open("D:\Data Offline\Word\copy_test_doel") Set rngOut = docOut.Content rngOut.FormattedText = rngIn.FormattedText docBron.Close (wdSaveChanges) docOut.Close (wdSaveChanges) Set docBron = Documents.Open("D:\Data Offline\Word \copy_test_bron_1") Set rngIn = docBron.Content Set docOut = Documents.Open("D:\Data Offline\Word\copy_test_doel") Set rngOut = docOut.Content rngOut.FormattedText = rngIn.FormattedText docBron.Close (wdSaveChanges) docOut.Close (wdSaveChanges) Set docBron = Documents.Open("D:\Data Offline\Word \copy_test_bron_2") Set rngIn = docBron.Content Set docOut = Documents.Open("D:\Data Offline\Word\copy_test_doel") Set rngOut = docOut.Content rngOut.FormattedText = rngIn.FormattedText docBron.Close (wdSaveChanges) docOut.Close (wdSaveChanges) End Sub somebody a hint how it could work?? Tag: Automating search/replace within a block Tag: 115452
  - 20
    - Word Macros and Merging Hi I've written a very simple find and replace macro, however when I merge a document into the template, the macro runs BEFORE the merging (I tested this with a msgbox that shows the macro has run beforehand). I am using "autonew" for the macro at the moment but I really want it to wait until after the merging to run. Any ideas? Thanks. Matthew Tag: Automating search/replace within a block Tag: 115449
  - 21
    - Determining Font Colour G'day! I'm working on a little tool that presents key information about the styles in a document in a more user-friendly format. One of the data points I want to provide is the font colour. I've read heaps about changing the colour of various things - bits of text, graphs, even fonts - but I haven't seen anything about determining what the colour of a font is currently. If I use the value of the .Color property of the Font object, it gives me _really_ useful things like: -16777216 for Automatic; 255 for Red; 16711680 for Blue; etc. Unfortunately, I don't think too many of my users are going to understand this. <g> Is there an easy way to "translate" the .Color values into something that a wetware-based system can make sense of? I'd be happy with just the wdColor constants and show anything else as "Custom". -- Cheers! Gordon Uninvited email contact will be marked as SPAM and ignored. Please post all follow-ups to the newsgroup. Tag: Automating search/replace within a block Tag: 115442
  - 22
    - Extract form field data to Access I have used Greg Maxey's "Extract Formfield Data" macro fairly extensively and I think I almost have is just perfect. I am trying to use an (If, Then, Else,). If the formfield has data than write it, if not, than go to the next formfield and check it for data etc. I have many many form fields so the code would be reputitious. The macro hangs if there is not data in the field identified or if the field does not exist. I need it to skip if no data ....... or ........ if that field doen't exist. Here is a snap shot of the reputitious portion of the macro and where it hangs. What do I need to complete the If, Else etc. If .FormFields("ReviewTitle").Result <> "" Then _ vRecordSet("ReviewTitle") = .FormFields("ReviewTitle").Result If .FormFields("FHWAUnitOffice").Result <> "" Then _ vRecordSet("FHWAUnitOffice") = .FormFields("FHWAUnitOffice").Result If .FormFields("ReviewTeamLeader").Result <> "" Then _ vRecordSet("ReviewTeamLeader") = .FormFields("ReviewTeamLeader").Result If .FormFields("ProgramCategory").Result <> "" Then _ vRecordSet("ProgramCategory") = .FormFields("ProgramCategory").Result Thanks for your helpful comments in advance. -- Eric the Rookie Tag: Automating search/replace within a block Tag: 115439
  - 23
    - VBA scripting for Web Tools I have created a form in Word using the web tools (want to make it a web form). When I try to validate in the required user input, I do not know how to call the required fields. In a regular word form, I have been using ActiveDocument.FieldForm(FieldName). Any ideas on what how to do that in a web form? Tag: Automating search/replace within a block Tag: 115437
  - 24
    - Word 2007 Use buildingblocks from other templates L.s, I have a .dotm file with macro's, buidingblocks, changes in the UI, etc. I placed this in the startup folder from word. When i start word all is availible and works fine. I placed it not in Normal.dotm fot each user, this is a read-only file wich all users use so its easy to maintain. I recorded a macro to place a buidingblock in the header. It says: activedocument.atachedtemplate.buildingblocks("name").... But when I run the macro from the UI I get a error. I could replace atachedtemplate with something like temlates("name"). But I like to keep the macro simple and without fixed filenames. Is there a way to let the macro look in all the open templates (like it works when I look for a buildingblock "by hand"), without programming all sorts of loops. Something like "all-templates", "open-templates", "active-templates" Thanks Peter Tag: Automating search/replace within a block Tag: 115436
  - 25
    - Autotext drop-down list I need to create a document with drop-down lists but not use a form. I thought I could create an "autotext" field but I am having trouble following the Word Help or any of the tips here. I want the default field label to be "List of Ratings" and then give the user a choice of five different performance ratings to select from. Can anyone give me instructions or a link to a site where someone has already documented it? TIA Tag: Automating search/replace within a block Tag: 115434
- Next
  - 1
    - Help with excel tables in Word Hello, I have to work with word (2003) documents in which are embedded (I believe that is the right term) a number of excel tables. I need to be able to extract info from each of the tables, with the information in the excel tables, in named ranges ( 1 cell each name) to use in the Word document. If possible, I would probably like to be able to edit the text within the cells as well, or even add/delete rows and columns with vba programs that I have already for the current version of the report which uses word tables in a word document. Why they decided to change is beyond me. How do I programatically identify, access and perhaps alter the excel tables from word. As far as I can tell, the tables are not identifed by names/bookmarks, and they are not liked to any actice excel files either as I am working on a different computer than that which makes the files initially (not on a network etc). I am ok at VBA but can't find out how to accomplish this by using the help files. Thank you . Jim joconnor@aspsm.net Tag: Automating search/replace within a block Tag: 115428
  - 2
    - Apply RGB color into a MSGraph Hi, I use the following code but the line ".Border.ColorIndex = RGB(225, 76, 38)" doesn't give the right color. It returns a standard windows color that is similar but not the same. I have add the color into the windows custom color (MSGraph/Tools/Options [Color] at Cells(6,1) = right custom color but I can't access this color using the 56 standards ColorIndex. Even if there's 7 rows X 8 colors per row = 56. Any idea? Thank you! Alex With oChart2.SeriesCollection(i) .Border.LineStyle = xlContinuous .Border.Weight = xlMedium .Border.Color = RGB(225, 76, 38) 'doesn't work .Interior.Color = RGB(225, 76, 38) 'doesn't work .HasDataLabels = False End With -- Alex St-Pierre Tag: Automating search/replace within a block Tag: 115425
  - 3
    - Setting what #'s can be typed into a text form field I am putting together an evaluation form in which each category can be scored from 1-5. I would like to set it so that only 1,2,3,4 or 5 can be typed into that field. Is this possible? How? Any help is appreciated. Tag: Automating search/replace within a block Tag: 115421
  - 4
    - Macro for Saving to Two Locations I have run the Macro for Saving to Two Locations successfully..however, everytime I exit out of Word and go back in, the Macro addition to the toolbar is gone...the macro is still there, but I have to to go into Customize, and then pull the Macro up to the toolbar. Is there a way to get that to permanently remain there whenever I start Word? Tag: Automating search/replace within a block Tag: 115418
  - 5
    - SaveAs problem with Word 2007 docx format My web site hosts an add-in created by fellow MVP Doug Robbins to split a merge into individual files. This worked fine, but occasionally there was an issue when the original document template on which the merge was based was not available and the resulting merge, then based on the normal template, produced some odd formatting. To overcome that issue I added the following piece of code which saves the document with a new name (so as to leave the original merge document intact). The copy document is then stripped of content and saved as a template and closed, The copied merge document is then reopened and the template so created attached ready to merge.. Sub CreateMergeTemplate() Dim sTempPath As String Dim sQuery As String Dim sRestore As String Dim sATemp As String Dim oSection As Section Dim oStory As Range Dim oMergeDoc As Document If Documents.Count = 0 Then MsgBox "No document present!" & vbCr & _ "Open the merge document and run this macro again", _ vbCritical, "Merge Template Creator" Exit Sub End If Set oMergeDoc = ActiveDocument If InStr(1, oMergeDoc, ".dot") Then MsgBox "Active document is a template!" & vbCr & _ "Open the merge document and run this macro again", _ vbCritical, "Merge Template Creator" Exit Sub End If If ActiveDocument.MailMerge.MainDocumentType <> wdFormLetters Then MsgBox "Active document is not a letter merge document!" & vbCr & _ "Open the merge document and run this macro again", _ vbCritical, "Merge Template Creator" Exit Sub End If sTempPath = Options.DefaultFilePath(Path:=wdUserTemplatesPath) & Chr(92) With oMergeDoc If Application.Version = 12 Then .SaveAs FileName:="SplitMerge.docx", _ FileFormat:=wdFormatDocument Else .SaveAs FileName:="SplitMerge.doc", _ FileFormat:=wdFormatDocument End If sRestore = .FullName For Each oSection In .Sections oSection.Range.Delete Next oSection For Each oStory In .StoryRanges oStory.Delete If oStory.StoryType <> wdMainTextStory Then While Not (oStory.NextStoryRange Is Nothing) Set oStory = oStory.NextStoryRange oStory.Delete Wend End If Next oStory Set oStory = Nothing With .PageSetup .OddAndEvenPagesHeaderFooter = False .DifferentFirstPageHeaderFooter = False End With If Application.Version = 12 Then .SaveAs FileName:=sTempPath & "SplitMerge.dotx", _ FileFormat:=wdFormatTemplate Else .SaveAs FileName:=sTempPath & "SplitMerge.dot", _ FileFormat:=wdFormatTemplate End If sATemp = .FullName .Close SaveChanges:=wdDoNotSaveChanges End With Documents.Open sRestore With ActiveDocument .AttachedTemplate = sATemp .Save End With End Sub This produces an error message when run on Word 2007 docx format merge document from the SaveAs function and is unable to attach the template, but it works fine on Word 2003 As a temporary workaround I have changed the sections below to work in compatibility mode thus: If Application.Version = 12 Then .SaveAs FileName:="SplitMerge.doc", _ FileFormat:=wdFormatDocument97 and If Application.Version = 12 Then .SaveAs FileName:=sTempPath & "SplitMerge.dot", _ FileFormat:=wdFormatTemplate97 which does work without error, but I would prefer to work with docx and dotx formats in case the merge document contains features introduced by Word 2007. Does anyone have any insights into what this needs to force it to work in Word 2007's native formats? Thanks -- <>>< ><<> ><<> <>>< ><<> <>>< <>><<> Graham Mayor - Word MVP My web site www.gmayor.com Word MVP web site http://word.mvps.org <>>< ><<> ><<> <>>< ><<> <>>< <>><<> Tag: Automating search/replace within a block Tag: 115415
  - 6
    - If this date then do this Hello, I want to add a conditional statement a Sub I have to do something like this: Psuedo Code: ______________________________________________ If (today = first weekday of the month) Then MsgBox "Today is the first weekday of the month" End If ______________________________________________ I was thinking maybe using Datediff, or a Select Case. But you guys are the experts, open to suggestions. Tag: Automating search/replace within a block Tag: 115408
  - 7
    - Format Email in body Hello, I am using this code below to put the contents of the document into the body of an Outlook email. Almost everything works perfect except for three Excel Graphs that are links from Excel into the Word doc. When they show up in the body of the email (before and after it is sent) they are blow up about 3x's the size they are in the Word document. Why would this happen? I have try .formattedtext etc.. and nothing seems to fix it. Also there is a picture in the Word doc (.GIF) that is copy/pasted into the doc, and when it is displayed in the message body it has the red "x" and it says, "The image cannot be displayed. Your computer may not have enough memory to open the image, or the image may have been corrupted. (etc....)". If I delete it and copy/paste it directly into the message body it displays correctly, just not when I use the code. Any info would be much appreciated!! _____________________________________________________ Sub SendDocumentInMail() 'Send document in body of email Dim bStarted As Boolean Dim oOutlookApp As Outlook.Application Dim oItem As Outlook.MailItem On Error Resume Next 'Get Outlook if it's running Set oOutlookApp = GetObject(, "Outlook.Application") 'Outlook wasn't running? Start it from code. If Err <> 0 Then Set oOutlookApp = CreateObject("Outlook.Application") bStarted = True End If 'Create a new mailitem Set oItem = oOutlookApp.CreateItem(olMailItem) With oItem 'Set the recipient for the new email .To = "Email@mail.com" 'Set the recipient for a copy .CC = "Email@mail.com" 'Set the subject .Subject = "Daily Report" 'The content of the document is used as the body for the email 'ActiveDocument.Range.FormattedText 'Selection.Copy ActiveDocument.Range.Copy .GetInspector.WordEditor.Range.Paste End With If bStarted Then 'If started Outlook from code, then close it oOutlookApp.Quit End If 'Clean up Set oItem = Nothing Set oOutlookApp = Nothing End Sub _______________________________________________________ Tag: Automating search/replace within a block Tag: 115407
  - 8
    - changing footers I have a document that I am working on that has an index. The index needs to be numbered with roman numerals and then the numbering of the actual document needs to contain the standard numbers. Is there a way to do this using the autonumber feature of word or do I have to manually type in each page number? Tag: Automating search/replace within a block Tag: 115403
  - 9
    - Add Paste Unformatted Text to the right click menu Another listserve pointed me to the following code that adds Paste Special to the right-click menu. Can anybody help me so one step further...instead of having to select a format and click OK in the Paste Special window, can I give the user Paste Unformatted Text right there on the right-click window? (ABOVE regular Paste if possible?) Thanks in advance! Sandi Sub AutoExec() Call AddPasteSpecial End Sub Sub AddPasteSpecial() Dim cb As CommandBar Dim c As CommandBarButton Set cb = Application.CommandBars("Text") Set c = cb.FindControl(, , "VBAxPasteSpec") If c Is Nothing Then Set c = cb.Controls.Add(msoControlButton, 755, , 4, True) With c .Caption = "Paste &Special..." .Style = msoButtonCaption .TooltipText = "Paste Special" .Tag = "VBAxPasteSpec" End With End If End Sub Tag: Automating search/replace within a block Tag: 115397
  - 10
    - A macro to extract any para that starts a specific word into another I'm looking for a Word macro that would search a list of documents (all *.doc in a specific folder) for a specific word and extracts any para that starts with that word into another document. Any tips will be greatly appreciated, Thanks, Tag: Automating search/replace within a block Tag: 115395
  - 11
    - Problem on inserting RTF file. I have the following RTF file {\rtf1\ansi\ansicpg1252\uc1\htmautsp\deff2{\fonttbl{\f0\fcharset0 Times New Roman;}{\f2\fcharset0 Microsoft Sans Serif;}}{\colortbl \red0\green0\blue0;\red255\green255\blue255;}\loch\hich\dbch\pard\plain \ltrpar\itap0{\lang1033\fs16\f2\cf0 \cf0\ql{\fs24\f2 {\ltrch This is test}\li0\ri0\sa0\sb0\fi0\ql\par}}} That basically has a string with font size 12. When I open the RTF file, the font size is set at 12 correctly. However when I tried to insert it to a Word document, the 12 font size will magically become 10. All other formatting (font family, font weight, or any font size other than 12) is intact. Tag: Automating search/replace within a block Tag: 115393
  - 12
    - Insert Logo via code in a macro. Hey all, I am trying to have a logo,which resides on a server here, inserted via code into either (hopefully)a header for the document or perhaps a text box. I only need to do this on certain merge letters ( data from access). I was hoping I can insert into a header which I think will not skew the tables that are within the documents. If not I will need to insert into a text box. This project is needed since we cannot have letterhead paper for all documents.. Can any one shed some light on this . TIA Ron Tag: Automating search/replace within a block Tag: 115386
  - 13
    - Find/Replace bug? Hi there! I have a routine that looks for highlighted text and then copies each instance of such found text in a new document. The main part of the main sub goes like this: Dim rgeDoc As Range Dim lngWordCount As Long Dim i As Long Dim docNew As Document Dim docCurrent As Document Set rgeDoc = ActiveDocument.Range lngWordCount = 0 Set docCurrent = ActiveDocument Set docNew = Documents.Add 'wdMainTextStory = 1 and wdTextFrameStory = 5 CheckRange rgeDoc, docNew, docCurrent i = 1 With docCurrent.Shapes If .Count > 0 Then For i = 1 To .Count If .Item(i).Type = msoTextBox Or .Item(i).Type = msoAutoShape Then If .Item(i).TextFrame.HasText Then Set rgeDoc = .Item(i).TextFrame.TextRange CheckRange rgeDoc, docNew, docCurrent End If End If Next End If End With I have to search each shape separately because the built-in Find ignores them. This sub calls the following function: Function CheckRange(ByVal rgeFind As Range, _ ByVal docCopy As Document, ByRef docFrom As Document) Dim rgeKeep As Range Dim rgeCopy As Range Set rgeKeep = rgeFind.Duplicate If rgeFind.StoryType = 1 Then With rgeFind.Find .Highlight = True .Format = True .Wrap = wdFindStop Do While .Execute With .Parent Set rgeCopy = docCopy.Range rgeCopy.Collapse wdCollapseEnd rgeCopy.FormattedText = .FormattedText rgeCopy.Collapse wdCollapseEnd rgeCopy.InsertParagraphAfter .Collapse wdCollapseEnd If .End = docFrom.Range.End Then Exit Do If Asc(.Characters(1)) = 13 Then .MoveStart wdCharacter, 1 End If Set rgeFind = docFrom.Range(.Start, docFrom.Range.End) End With Loop End With Else With rgeFind.Find .Highlight = True .Format = True .Wrap = wdFindStop Do While .Execute With .Parent Set rgeCopy = docCopy.Range rgeCopy.Collapse wdCollapseEnd rgeCopy.FormattedText = .FormattedText rgeCopy.Collapse wdCollapseEnd rgeCopy.InsertParagraphAfter .Collapse wdCollapseEnd If .End = rgeKeep.End Then Exit Do If Asc(.Characters(1)) = 13 Then .MoveStart wdCharacter, 1 End If rgeFind.SetRange .Start, rgeKeep.End End With Loop End With End If End Function I needed to have two "With rgeFind.Find" because the ranges are handled differently if they are in the main story or part of a text frame. Here is the context: I have a document that has Figures made up of many textboxes connected by lines. They were created by converting embeded Visio drawings into enhanced meta files, and then edited by right clicking on them. The Figures were cleaned up so that they consit only of lines and textboxes containing textframes. All useless shapes that the Edit command created have been removed. (This complicated process was used because it would have been too long to recreate the complex Figures from scratch within Word. It was overall faster to convert these complex English Figures into editable ones so that people who do not have Visio installed can easily translate them.) Those figures are held within a 1x1 table. Here is the bug: All highlighted text in the main story is picked up. Many of the shapes within the figures have highlighted text in them. Only about 5% of the highlighted text is being picked up by the function. I debugged the code and I know that the second ""With rgeFind.Find" above is being executed, but the corresponding "Do While .Execute" fails, as if the range from the textframes did not contained highlighted text when in fact it does... Â¿QuÃ© este pasa? Tag: Automating search/replace within a block Tag: 115383
  - 14
    - Automatically updating fields I'm trying to design a "smart" form -- based on a pull down choice of "yes" or "no" to automatically fill in some text in a different part of a form. I'm knocking myself out due to lack of documentataion. I can use Bookmarks and an "If" Field -- but then how do you update the IF field automatically after changing the Pull-down Field? Help! Tag: Automating search/replace within a block Tag: 115382
  - 15
    - Convert currency to text If a user enters 34,106.25 in a numeric field, is it possible to convert that to Thirty Four Thousand, One Hundred Six Dollars and Twenty Five Cents, place it in another field for editing if necessary and then pass to a bookmark in the document? My VBA level is still beginner -- if you have the answer please be specific. Thanks in advance! Sandi Tag: Automating search/replace within a block Tag: 115379
  - 16
    - test test Tag: Automating search/replace within a block Tag: 115377
  - 17
    - Table formating Can you please suggest a way to color the borders and add shades in many tables in one go? I am using Word 2007 and need to color my tables with the same shade. My document has more than 250 tables and i need to color them similarly. Can i set a default table shading in the heading row and in the table rows? I dont want add macros. Is there and way that i can save the default table style in the styles list? Tag: Automating search/replace within a block Tag: 115374
  - 18
    - disable macro on a document Hi, I wonder if i could get some help here. What happens is that we have some word documents that sometimes may have some macros in it. And what i was trying to do is to disable them (if any) before saving the document and have it sent to our clients (who are not able to open them if there are macros). My question is that what might be the best way of accomplishing this task. Initially, i was thinking of saving it as .RTF file. But when i open it, it still has the macro in it. Then, i found some codes to disable the macro. This will disable the macro completely. What worries me now is that when the document is returned back from the client, i have to manually enable the macro through the code so that i can use it (this require someone who knows the code well - what about normal users?). Is there a better way of getting around this issue? Your help would be greatly appreciated. Thank you in advance Tag: Automating search/replace within a block Tag: 115369
  - 19
    - Email Form using VBA I have a WORD 2003 template which is basically a form that my supervisors will be filling out as each shift progresses. It has about 25 Form Fields on it of various types (text, number, dates). I would like the form to be emailed to me and I would like to preserve the format. What I've got so far is an email that has the information but all the formatting is lost. Is what I'm attempting even possible? Jeff Tag: Automating search/replace within a block Tag: 115368
  - 20
    - Remove/Modify borders within MS Graph Histobar Hi, I'm using a MS Graph and every time I add a new row, the bar and the legend have a borders. Is there a way to remove it (or modify the color). Thank you! Alex Dim ds As Graph.DataSheet ds.Rows("4").Insert Does anyone know how to modify the label color/border of the new item? -- Alex St-Pierre Tag: Automating search/replace within a block Tag: 115366
  - 21
    - Populate ListBox from Building Blocks Hi, Is it possible to populate a userform listbox using building block catagories? All replies appreciated, Mike Tag: Automating search/replace within a block Tag: 115363
  - 22
    - generique pharmacie en France meridia canada belgique acheter meridia concernées par cette meridia suisse soft generique acheter meridia canada generique generique pharmacie en France meridia canada belgique acheter meridia concernées par cette meridia suisse soft generique acheter meridia canada generique +++ PERTE DE POIDS +++ PERTE DE POIDS +++ PERTE DE POIDS +++ + ACHETER MERIDIA BON MARCHE (ALL CARD ACCEPTED) http://jhku.net/ACHETER-MERIDIA-BON-MARCHE/ + + + ACHETER ACOMPLIA BON MARCHE (ALL CARD ACCEPTED) http://jhku.net/ACHETER-ACOMPLIA-BON-MARCHE/ + + + ACHETER XENICAL BON MARCHE (ALL CARD ACCEPTED) http://jhku.net/ACHETER-XENICAL-BON-MARCHE/ + + + ACHETER PHENTERMINE BON MARCHE (Western Union, Diners, AMEX, VISA) http://jhku.net/ACHETER-PHENTERMINEA-BON-MARCHE/ + + + + + + + + + + + + + + + + + + + + + + + + http://ibm-news.for-um.de/showthread.php?t=11792 http://ibm-news.for-um.de/showthread.php?t=11791 http://www.buy-viagra-where.info/ http://viagra.learnerblogs.org/ http://www.rwdmag.com/forum/member.php?u=52279 meridia soft sans prescription femme en termes de meridia canada on meridia en France a vendre meridia suisse bon marche Sans Prescription Achat meridia Pro commander meridia us usa par mail Acheter meridia canada en ligne sur Webacheterenligne meridia canada commande en ligne commander meridia en France par mail meridia Generique Inde meridia suisse pharmacie en ligne meridia suisse pharmacie meridia bon marche meridia au rabais en ligne sans prescription meridia suisse soft sans prescription meridia suisse citrate de SIBUTRAMINE meridia suisse Achat meridia canada france meridia belgique sur internet acheter meridia generique meridia soft bon marche Achetez meridia commander meridia us usa en ligne un Achat de meridia avec livraison meridia soft sans prescription achat meridia PERTE DE POIDS us usa commander meridia us usa par mail commander comprime de meridia canada meridia belgique soft bon marche meridia canada sur internet meridia bon marche Sans Prescription meridia suisse Generique Inde commander comprime de meridia canada meridia canada au rabais au Canada Tag: Automating search/replace within a block Tag: 115360
  - 23
    - SEX MOVIES WITH ACTRESS PORN VIDEOS SEX MOVIES WITH ACTRESS PORN VIDEOS SEXY BOOBS WITH HOT SEXY PICTURES ACTRESS NUDE SEX GALLARY **************************************** http://amothini-bollywood.blogspot.com **************************************** free download hot movies latest cini clips images,pictures,and videos **************************************** http://amothini.blogspot.com ****************************************s Tag: Automating search/replace within a block Tag: 115359
  - 24
    - Problem with getting values from Kitchen Draw. Hi , We as being B.S.A. Computer Programming & Devolopment using VB to make makros for the Kitchen Draw programs.For more www.kitchendraw.com and www.bsabilgi.com.tr. We have problem with gettin values from Kitchen Draw[ KD ]. When we try to get value from KD to Office Word we get error : "Runtime Error '438' Object does'nt support this property or method " and in the debug screen it says : Private Sub TmpDDE() WordBasic.Call "WD_ScreenUpdatingOn" End Sub We get this error Office Word 2003 and above. It works Office Word 2000 and below. We discus this problem with the KD devolopers they say that it works for all Office Word products and all languages except Turkish. This is very important for us and we had to solve this as soon as possible. Thanks from now. Tag: Automating search/replace within a block Tag: 115357
  - 25
    - How can I remove an embedded image in Word? I put it in the Programming group for two reasons: 1, there is no documentation for any similar feature, meaning it probably is _not_ a feature of Word. The people on the Programming board (as opposed to the Drawing board) are more likely to know exactly when Word accesses embedded images, and so even if Word has no feature like the one I'm looking for, you may know of some trick or inconsistency in Word that I can exploit to trick it into doing what I want. To summarize my needlessly long message below, I need to find out how I can unembed an image from the document file. The embedded copy of it is blurry, meaning that whenever I paste the image, it's burry. Here's the long version, if you want to read it... I am making a database of something from a video game series (Mega Man Battle Network). I tried recreating several elements of the game in just black and white (as a monochromatic, 1-bit color bitmap) in Paint, and I'm now copying and pasting bits and pieces of those bitmaps into Word. They all copied perfectly. However, three images were inaccurate. So I fixed their bitmaps in Paint, and then, one by one, I directly replaced the three bitmaps in Word by selecting each one and pasting the new versions over it. But there's apparently something wrong with that method; the new versions appear fuzzy like JPEGs. And now, no matter how I try to paste the new bitmaps, they appear all fuzzy. The only way I can get them to be clear is if I change the bitmap; modify a pixel or two and then paste it. My guess is that this has to do with embedded images. Apparently, regardless of how the image is copied or what method I use to insert it, when I insert a bitmap that exactly matches an embedded image, another instance of the embedded image object is used instead. And, unfortunately, the embedded image for these three things are all JPEG-like. Where can I access a list of all the embedded images in a document so I can remove the problem images, and allow these bitmaps to be reinserted the proper way? If there is no list, is there some alternative method I can use to remove them? Note: Even if all instances of the object are deleted, the bitmap is still embedded. They are still embedded even after saving the document with 0 instances of them. They're such a nuisance! Tag: Automating search/replace within a block Tag: 115350

Hi,

At the end of a macro automating the search/replace within a block, how
do I answer no to the dialog box asking if I want to search the
remainder of the document? Recorder does not record my answer.

Sorry, it must be basic, but cannot find the answer.

thanks
--
John Doue

Top

Re: Automating search/replace within a block by Helmut

Helmut
Sat Jul 12 00:54:58 PDT 2008

Hi John,

it is the wrap-property of the find-object.

.Wrap =wdFindStop

--

Greetings from Bavaria, Germany

Helmut Weber, MVP WordVBA

Vista Small Business, Office XP

Top

Re: Automating search/replace within a block by John

John
Sat Jul 12 02:16:13 PDT 2008

Helmut Weber wrote:
> Hi John,
>
> it is the wrap-property of the find-object.
>
> .Wrap =wdFindStop
>
> --
>
> Greetings from Bavaria, Germany
>
> Helmut Weber, MVP WordVBA
>
> Vista Small Business, Office XP

Thanks a million Helmut, I would never have guessed it!

--
John Doue

Top