Macro to accept revisions

Tutorials Win: Microsoft Windows Forum

- Previous
  - 1
    - underline with color I am trying to underline with a wavy coloured line however the wavy line is appearing but there it is gray and no matter what colour i use it is always gray. Here is the code i am using : font.UnderlineColor = wdColorTurquoise Any ideas why this is happening? Tag: Macro to accept revisions Tag: 63685
  - 2
    - menu how would i create a menu that drops down when u right-click a certain word in a word document. just like in a spell and grammar check? Tag: Macro to accept revisions Tag: 63680
  - 3
    - How do I determine current column and lines left in column? Any ideas how I can determine 1) which column I'm currently in and 2) how many lines are left from the insertion point to the bottom of the column/top of the next column. I'm using VB6 with Word to dynamically (no template) create a three (3) column/ two(2) page legal size layout that will be used for a folding brochure. I'm populating the columns from an ADO recordset. Depending on the data, I may need to insert special messages at the bottom/top of any column. For example I may need to insert a literal string message at the bottom of a column if the text in that column meets certain criteria. Any help would be appreciated. Hopefully this hasn't been too confusing of a post. Tag: Macro to accept revisions Tag: 63679
  - 4
    - file exists question Hi All, I am seeking code to find if a file exists on the user's computer. The file might be named something like "c:/TestFolder/" & variableABC. So, something like: If file exists "c:/TestFolder/" & variableABC Then Application.Run MacroName:="Project.NewMacros.test" End If tia, Gil Tag: Macro to accept revisions Tag: 63675
  - 5
    - search for word in word doc I want to write code so that if a word in a variable in the vba behind word is equal to a word in the word document, it changes that word in the document to bold. How would i do that? Tag: Macro to accept revisions Tag: 63673
  - 6
    - search for word in word doc I want to write code so that if a word in a variable in the vba behind word is equal to a word in the word document, it changes that word in the document to bold. How would i do that? Tag: Macro to accept revisions Tag: 63672
  - 7
    - How do I get the drop down feature to work in Word 2003? I am creating a form and trying to use the drop-down form field and check box form field in the form. I'm able to add my selections in the drop-down dialog box, but when I go to choose in the form--can't. Have have a check in the Fill-in Enabled box. I can not get the check boxes to work in the form either. Tag: Macro to accept revisions Tag: 63671
  - 8
    - Save to users templates folder I need to distribute a Word tutorial and a test. The test requires a template I have created. I thought I could use an autoexec macro to save it to c:\documents and settings\%username%\application data\microsoft\templates\testtemplate.dot but it seems that %username% creates an error. Is there any way I can achieve my aim programatically please? -- Many thanks Wicked Wizard Tag: Macro to accept revisions Tag: 63669
  - 9
    - I want to open my documents in FINAL View but they open in Mark U. Will someone please tell me how to reset the default opening of my Word Documents to FINAL (for opening saved documents). I used the Mark Up View once and seem to be stuck with it forever! HELP! Tag: Macro to accept revisions Tag: 63668
  - 10
    - Start of Word does not fire AutoExec-macro My Word 2003 VBA-application (in XP-environment) is dependent on an autoexec-macro, supposed to be fired when Word starts. My code is contained in Words startup directory and it works as expected on all computers but one. Any ideas why this beast does not execute the autoexec-procedure? /BosseH Tag: Macro to accept revisions Tag: 63666
  - 11
    - Macro in document availablke only to one user I have written a macro in a document on a shared network drive. When I open any document, I can see and run the macro as the macros are in the Normal.dot. The other two people do NOT see and cannot run the macro. The actual VBA is in the Normal.Dot. The macro (atcually series of macros) rebuilds the "master" document out of a collection of individual documents. Basically it insert a series of files into the "master" document and then creates a hyperlinked TOC. Does everything we want it to do in terms of rebuidling the document. Even wehn I take this Normal.Dot and drop it into their "My Documents" where their original Normal.Dot was kept, they still can't see these macros. I had them both set their Macro Security to low. So that is not an issue. I have exported the two modules to .BAS files. Do I need to import them to their copy of Normal.Dot even though I copied my Normal.Dot into their "My Documents"? Tag: Macro to accept revisions Tag: 63664
  - 12
    - Change Word Links via VBA ? Hello Group, I have a document in Word with Bonds to Excel. I need to change statements I link using VBA. For example: My old Source Path "C:\Source Project\My file.doc" My New Source Path and I want to change a part to "C:\New Project\My file.doc" Any advisor will be Wellcome Best Regard Mario Tag: Macro to accept revisions Tag: 63655
  - 13
    - Trying to import Excel Spreadsheet into Word I have used Excel to develop a form to be printed on legal sized paper. There are 11 columbs and 104 rows. The columbs are various widths and all together are 8 1/4 inches wide. The rows are symetrical at 9.00 pixels and fit in 14". When I cut and paste to Word, the cells do not hold their formatting. And merged cell do not behave as the do in Excel. Does anyone know the proper sequence for getting this .XLS spreadsheet into .DOC format with all cells still funtioning properly? Tag: Macro to accept revisions Tag: 63653
  - 14
    - WordBasic being recorded in Word 2002 Could someone answer my question of Feb 16th about WordBasic statements being recorded in Word 2002? (Title: "Printing without or with markup...") That would be very much of help to me! Thank you! Peter Tag: Macro to accept revisions Tag: 63651
  - 15
    - Task as a link object How to use task item as a linked object? For example if I was in words and a link is place in the word document of a Task Item,, and bu clicking on this I would get the corresponding task to open up for editing or viewing. Tag: Macro to accept revisions Tag: 63650
  - 16
    - How to take text from RichTextBox in VB6 to Word object? Hi! There, I have an application which has RichTextbox in it. Now, I need to produce word document which has text with the same format as the RichTextBox. Suppose, user has typed a letter with formatting like Bold, Underline, color etc. Now, I would like to create a word document which should have the same text and formatting. When I take TextRTF to a string variable and write it into word document it doesn't work. It shows all the formatting characters too..... This can be done using Clipboard. But, I would like to avoid clipboard if possible. Any suggestion(s) or answer(s) Thanks in advance, Ritesh. Tag: Macro to accept revisions Tag: 63647
  - 17
    - Range could not be deleted Dim DateBegin As Date Dim DateEnd As Date DateBegin = TxtBeginDisability DateEnd = DateBegin + 2 StrDateEnd = Str(DateEnd) ActiveDocument.Bookmarks("txtEndDisabilityDate").Range.Text = Str(DateEnd) give error the range could not be deleted. Why? Tag: Macro to accept revisions Tag: 63646
  - 18
    - Delete in Registry Hi, I add the key by using: System.PrivateProfileString (Empty, "HKEY_CURRENT_USER\Software\Apps\AV_Word", "Settin gs") = "ABC" How do I delete this key in the registry? I do not just want to set it to empty. I have tried DeleteSetting, but it does not seem to work for me. / Ulf Tag: Macro to accept revisions Tag: 63644
  - 19
    - Start-up templates I am using Word 03 (SP1) on Windows XP (SP2). I have a customised template that is in placed in the startup folder. Sometimes, I have noticed that Word does not display the toolbars and Menu. When I check under Tools/Templates and Addins this template has been disabled. The security settings for Macro is set to Low. I never had this problem under Word 2000 (on Win 98 SE) using the same template. Tag: Macro to accept revisions Tag: 63636
  - 20
    - Header and Footer macros I have tried to create a header macro and a footer macro but when I click the header macro it appears in both the header and the footer. Does anyone know how to create macros for a header and a footer without them overriding each other? Any assistance would be greatly appreciated!!! Tag: Macro to accept revisions Tag: 63631
  - 21
    - How to reference Userform in another project I am trying to figure out how to reference a form in another project in order to pass variables to it. This is what I have: With Hannani_TestTemplate.frmCreate_Hannani_Personal .txtRptDateMonth.Text = "02" .txtRptDateDay.Text = "17" .txtRptDateYear.Text = "2005" .show End With The project name is "Hannani." The template name is "Hannani_Test.dot", the form name is "frmCreate_Hannani_Personal". I keep getting an "object" error. Thank you. -- singeredel Tag: Macro to accept revisions Tag: 63629
  - 22
    - underline in red how do i underline words in red just like they appear when they are spelt wrong and spell and grammar highlights them? Can i do this using vba? Tag: Macro to accept revisions Tag: 63628
  - 23
    - Disappearing text when doing a paste Hello all, Having a problem coping data from one document to another. I need to automate the following task. I have a document that my customer opens and clicks a button that does a copy. When the button is clicked, I need the following to happen. The file open dialog box displays so they can pick the file that has data to be copied from The selected file is opened Data from an enclosed bookmark in the newly opened file is copied The data is then pasted to a bookmark location in the intial document I have this working, the problem is when I do the past into the initial document, it deletes all the text in the document and then paste the new text. What am I doing wrong?? I needed to be sure the copied data retains all formatting, like bullet list, etc. My code is listed below. thanks Sub Copy_Description() Dim DescriptionDoc As Document Dim pTarget As Range Dialogs(wdDialogFileOpen).Show Set DescriptionDoc = ActiveDocument Set pTarget = ActiveDocument.Bookmarks("BM_TheDescription").Range.FormattedText pTarget.Copy If ThisDocument.Bookmarks.Exists("BM_Description") Then ThisDocument.Bookmarks("BM_Description").Select ThisDocument.Range.Paste End If ActiveDocument.Close End Sub Tag: Macro to accept revisions Tag: 63627
  - 24
    - Adding TextBox Shapes becomes slow I need to add about 200 TextBox Shapes to a document through Visual Basic using Word 9.0 Library The Code i use is: Set textBox22 = wordDoc.Shapes.AddTextbox(msoTextOrientationHorizontal, 10, y, 100, 15) Then i add formatting: With textBox22 .Name = "TextBox" & i With .TextFrame .MarginTop = 0 .MarginLeft = 0 .TextRange = "sdfgsf" With .TextRange .Bold = True .Font.Name = "Verdana" .Font.Size = 12 End With End With End With This all works like a charm... except it works SLOOOOOOOW The first 30 or so controls are added at a reasonable speed (i have a counter and a progressbar to monitor the process) After that it starts to slow down more and more.... On textbox 150 it adds about one textbox per second... Very Slow!!!!! I tried following: Turned off spelling and grammar checking, Word app is not visible while textboxes are added, I even used LockWindowUpdate TOGETHER with ScreenUpdating = False. Didn't help. Still slow.... Here's the code for you to try. Visual Basic 6.0. Add a reference to the Word library before running the code. Add a progressbar to Form1 and name it PB1. The code adds 300 textboxes to a word document and sets margins and font format options. if you comment the formatting (all With..End With) the code runs faster. P.S. I HAVE tried it on different computers, and no they were not 486, but decent p4 machines. And it must be done from outside, thus i can't use the code from within a word macro. [CODE] Dim wA As Word.Application Dim wD As Word.Document Private Sub Command1_Click() PB1.Min = 1 'PROGRESSBAR PB1.Max = 300 Dim ttt As Word.Shape, y As Long y = 10 wA.ScreenUpdating = False For i = 1 To 300 PB1.Value = i y = y + 18 Set tB = wD.Shapes.AddTextbox(msoTextOrientationHorizontal, 10, y, 100, 15) With tB .Name = "TextBox" & i With .TextFrame .MarginTop = 0 .MarginLeft = 0 .TextRange = "Sample Text" With .TextRange .Bold = True .Font.Name = "Verdana" .Font.Size = 12 End With End With End With Next wA.ScreenUpdating = True wA.Visible = True End Sub Private Sub Form_Load() Set wA = New Word.Application wA.Options.CheckGrammarAsYouType = False wA.Options.CheckGrammarWithSpelling = False wA.Options.CheckSpellingAsYouType = False wA.Options.CheckHangulEndings = False 'wA.Options.Pagination = False Set wD = wA.Documents.Add wD.Activate wD.ShowSpellingErrors = False wD.ShowGrammaticalErrors = False End Sub Private Sub Form_QueryUnload(Cancel As Integer, UnloadMode As Integer) On Error Resume Next wA.Quit wdDoNotSaveChanges End Sub Tag: Macro to accept revisions Tag: 63623
  - 25
    - language This is a very general question but i have message boxes in vba that display variables. These variables contain characters with accents such as "Ã©" and "Ã¡". Whe these are displayed they come up in really funny symbols. Is it something to do with the settings on my computer or word or must i type some command to change language?? Tag: Macro to accept revisions Tag: 63621
- Next
  - 1
    - wdFieldType values Where can I find an exhaustive explanation to the meaning of wdFieldType values? As it usually happens with VBA help, a complete list of values is presented (wdFieldAddIn, wdFieldAdvance...), but there's no way to know how those constants work. I've searched in WordBasic help too, trying to find some kind of analogy, but that didn't help me at all. Thanks. -- ______________________ Life is a dream, make it real. Tag: Macro to accept revisions Tag: 63614
  - 2
    - Changing code to put a frame in a table Hi Community, I've read that Word does not allow frames in a table. Does anyone know of any VB code that will let me "trick" Word into allowing this? :) Rosanne Ramos San Diego, CA -- Rosanne Ramos San Diego, California USA Tag: Macro to accept revisions Tag: 63612
  - 3
    - First empty row in table Hi all I am trying to find out how to programmatically reach the first empty row in column 1 of a Word table. Does anybody have a clue? TIA Cordially Pascal Tag: Macro to accept revisions Tag: 63610
  - 4
    - xml an word I have a line of xml code reading into vba from a text file and it's something like this <E offset="" fromy="" fromx="" toy="" tox="" sentence="" errortext="" msg=""> I would like to use the values of errortext and msg, how would i use xml code in vba? Tag: Macro to accept revisions Tag: 63609
  - 5
    - Controlling a "Microsoft office document image writer" option in W When printing a word document to the "Microsoft office document image writer" - a dialog opens that enables to select a file name and modify a check-box indicating "View document image". If this check-box is checked then the "Microsoft office document imaging" will be opened with the "printed" document. If the check-box is not checked then the file will be ready without opening the above application. My question is: Using full automation if I want to print the word document into a tiff file using the "Microsoft office document image writer" printer, how do I set the values for the above check-box. In other words, I would like to avoid opening the "Microsoft office document imaging" and just prepare the tiff file with no user interference â?? it is possible to do this fully through automation? -- Thanks Eric Tag: Macro to accept revisions Tag: 63608
  - 6
    - Create Document Variables from a multiline text box is a user form I am creating a userform for a meeting agenda template. When the user types in the agenda items in a multiline text box, I would like to assign each agenda item (each paragraph or line) to a document variable. The number of items will vary with each meeting, so that is why I decided to use the multiline text box. I have tried loops without success, please would someone be kind enough to help me? Thank you so much Tag: Macro to accept revisions Tag: 63607
  - 7
    - Change $ to Local Currency Hello All, I am using Office 2003 and have the following problem: I use the following macro to convert currency to Word The macro does the following: $1,234.50 - converts to One Thousand Two Hundred Thirty Four Dollars and Fifty Cents ($1,234.50) I wish to change - the $ to IRS (our local currency) - Dollars to Rupees - Cents to Paise - It should show the numeric value as IRS 1,234.50 (without bracket and in the beginning, instead of the end) followed by One Thousand Two Hundred Thirty Four Rupees and Fifty Paise (in brackets). Any help would be greatly appreciated. TIA Rashid Khan Tag: Macro to accept revisions Tag: 63605
  - 8
    - How do I get my computer to use the fn key and alt to put interna. I recently had my computer restarted and before was able to hold down the fn key and the alt key while typing a number in order to do international letters for example Ã©,Ã¨,Ã? etc. I have checked everywhere on how to turn this feature on to work in Word as this seems to be the only place it will not work. ANY HELP NEEDED THANKS! Tag: Macro to accept revisions Tag: 63603
  - 9
    - How to avoid the "There is a large amount of data in the clipboard... " dialog box I have a Word VBA Subroutine the opens an excel spreadsheet, copies a range into the clipboard, closes the excel application, and then pastes the information from the clipboard into the word document. I am getting the "There is a large amount of data in the clipboard... " dialog box. How can I disable this feature from within my Word VBA subroutine? Thanks, Keith Tag: Macro to accept revisions Tag: 63599
  - 10
    - Creditwrench And the truth shall set ye free http://www.creditwrench-thetruth.blogspot.com/ Uncle Normie Tag: Macro to accept revisions Tag: 63597
  - 11
    - microsoft word i need you help me doaw load microsoft word Tag: Macro to accept revisions Tag: 63594
  - 12
    - How do I take data from excel spreadsheet and move into word docum I am taking a clients listing and moving it into a word document that is already set up. Depending on certain values in certain columns it populates certain areas of the word document. Also if the client listing has the same person with 2 different values I am supposed to just list the 2 different values and not create 2 different word documents. This sounds confusing and maybe it's because I am confused. Can I set this up in a macro and if so do I create the macro in word or excel?? Thanks for any help or advice. Tag: Macro to accept revisions Tag: 63591
  - 13
    - form field lost I am creating a document in MS-Word with a check box form field. I need to track revisions in the form fields when the data is entered. However, when I protect the document for forms, any check box form fields are lost. If they aren't lost initially, they disappear as soon as the user clicks on the check box form field. Any ideas? Tag: Macro to accept revisions Tag: 63589
  - 14
    - form field lost I am creating a document in MS-Word with a check box form field. I need to track revisions in the form fields when the data is entered. However, when I protect the document for forms, any check box form fields are lost. If they aren't lost initially, they disappear as soon as the user clicks on the check box form field. Any ideas? Tag: Macro to accept revisions Tag: 63588
  - 15
    - 10 Mb Limitation Word Perl Win32 I am using active Perl to generate a mailing document using Word. I found out that the document stops adding new entries when it is close to 10 Mb, Is there a workaround? Any help will be appreciated. Thanks Tag: Macro to accept revisions Tag: 63584
  - 16
    - Cursor Question Hi, I have a process that updates a "hidden" document with main document data. During execution the cursor "blinks" (arrow, hourglass, arrow,hourglass...). I have a "timer" macro that executes a DoEvents in a loop and I do not have an Application.ScreenUpdate statement in the code. I need the time to update and display form data and document progress. The timer routine does not seem to be the problem.. Is there a way to stop the cursor from "blinking", i.e; steady hourglass, arrow or whatever? Using Word2000 VBa. Any suggestions, or even an emphatic NO, would be appreciated. Jerry Bodoff Tag: Macro to accept revisions Tag: 63583
  - 17
    - Addin Field Hi, I am trying to use the ADDIN Field typ eto create a bibliography using a VSTO C# application. I can create the field and put information into the Field's Code (The part that is shaded when field codes are turned on) and can add information into the Data property. I am having trouble creating the fields Result. If I try to add text to the result property then the text is just inserted after the field. If I then check the value of Result I find that it is null. So when I select the field with field codes switched off nothing is highlighted. I am trying to get my bibliography to work in a similar way to the Table of Contents feature in Word. Any suggestions? Regards Rich Lawrence Tag: Macro to accept revisions Tag: 63582
  - 18
    - postnet Microsoft Word's postnet is incomplete. It should also provide, according to USPS, the capability to include "delivery point" in the data required to produce the barcode. Currently, it uses Zip+4 only and defaults the delivery point data to 99. Is there a fix for this? Is the VB code that executes this conversion exposed and editable? Is there substitute code out there anywhere? Tag: Macro to accept revisions Tag: 63577
  - 19
    - What is a control array, how to used, and what is it for? I'm a Network Systems student,and i kind of dont understand the way my teacher talks,I've try though,but I've only been speaking English for 2Years and my teacher isn't from here;sois kind of hard. Any ways if you can give me a hand on this, tht'd be terrific, it'll help me out a lot. This Is my question:What is a control array, how to use it and what is it for? Thank you. Tag: Macro to accept revisions Tag: 63576
  - 20
    - Document changes Is there a way to compare two word documents to the difference Tag: Macro to accept revisions Tag: 63575
  - 21
    - Choices under the heading AUTOTEXT -> Can I create mutliple choices in the INSERT -> AUTOTEXT -> SIGNATURE Field? When I create an autotext entry it automatically put them in a Heading under AUTOTEXT -> NORMAL!!! Can I move them to different Headings? Tag: Macro to accept revisions Tag: 63567
  - 22
    - Open Word with a gray screen I would like to have Word default to not opening any templates on startup and have it open with the gray screen. Is this possible? I then want to make a company template (several) the users can choose the one they want to use. Is this workable, if so, what do I need to do? Thank you in advance for all your help. Tag: Macro to accept revisions Tag: 63564
  - 23
    - Set Initial Variables for Userform I am trying to set initial variables and bring up the Userform in Project "Julie" from a Project named "Variables" because these initial variables change regularly, and if I edit the variables in frmCreate_Julie_Report manually using the VB Editor and then save the Project, I lose my digital certificate. I attempted the following code, but I get a compile error "method or data not found". The Variables template has been placed in the Start folder so that it is a global template. With Julie.frmCreate_Julie_Report .txtReportDateMonth.Text = "02" .txtReportDateDay.Text = "17" .txtReportDateYear.Text = "2005" .txtDictationDateMonth.Text = "02" .txtDictationDateDay.Text = "17" .txtDictationDateYear.Text = "2005" .txtBillingPeriod.Text = "021605-022805" .Show End With What is the code needed to access the Userform in the Julie Project from another project? Are Public variables necessary at all as well? -- singeredel Tag: Macro to accept revisions Tag: 63560
  - 24
    - can you tile word documents similar to excel Is there a way to tile documents in Word the way you can in Excel. It would be helpful if this is possible. Tag: Macro to accept revisions Tag: 63558
  - 25
    - Hyperlinks from footnotes to "Headings" do not work in Word 2003 . I cannot hyperlink to "Headings" from footnotes, endnotes, text boxes, ect. (I can hyperlink only to Bookmarks). I've called Microsoft Support with no help as to when Word will incorporate this back into Word (it works in Word 2000 & Word 2002). They told me to use Cross References which will not allow you to change the tile of the hyperlink or style of the hyperlink (go figure?). I guess I could go through all 1500 Headings and Bookmark them all so I can hyperlink to them (ya right!) I can't understand how something so crucial was overlooked in Word 2003? Especially when everthing is developed around hyperlinks no-a-days! If anyone has a way around this problem besides going back to Word 2002 let me know... - NelJun - Tag: Macro to accept revisions Tag: 63557

I have tried 47 ways to create a macro that accepts a (selected)
revision, and skips to the next revision. None of them work.

Has anyone had any luck doing this?

Many thanks.

Tom Kreutz

P.S. I'm using Word 2003 on Windows 2000

Re: Macro to accept revisions by Klaus

Klaus
Mon Feb 21 17:08:06 CST 2005

Hi Tom,

Might be easier to display the old dialog for accepting/rejecting revisions?
Dialogs(wdDialogToolsAcceptRejectChanges).Show

Once you have it, you can use it to record the macros, too ;-)

Selection.NextRevision (True)
to go to the next revision, and

Selection.Range.Revisions.RejectAll
Selection.Range.Revisions.AcceptAll
to then accept/reject the selected revision(s).

Regards,
Klaus

<tomkreutz@gmail.com> wrote:
> I have tried 47 ways to create a macro that accepts a (selected)
> revision, and skips to the next revision. None of them work.
>
> Has anyone had any luck doing this?
>
> Many thanks.
>
> Tom Kreutz
>
> P.S. I'm using Word 2003 on Windows 2000
>

Re: Macro to accept revisions by Helmut

Helmut
Mon Feb 21 21:38:28 CST 2005

Hi Tom,

how about this one, only in principle:

Sub accept()
Dim l
Dim rtmp As Range
Set rtmp = Selection.Range
Selection.Collapse direction:=wdCollapseEnd
Selection.Bookmarks.Add Name:="bTmp", Range:=Selection.Range
' rtmp.Select ' for testing
l = rtmp.Revisions.Count
While l > 0
rtmp.Revisions(1).accept
rtmp.End = ActiveDocument.Bookmarks("bTmp").Range.End
l = rtmp.Revisions.Count
Wend
End Sub

I think the temporary bookmark is essential,
as the end of the range would otherwise move
into the following text with every deletion accepted.

You may delete the bookmark after finishing.

Greetings from Bavaria, Germany

Helmut Weber, MVP
"red.sys" & chr(64) & "t-online.de"
Word XP, Win 98
http://word.mvps.org/