- #Ms word 2011 for mac comment color by author update#
- #Ms word 2011 for mac comment color by author code#
- #Ms word 2011 for mac comment color by author windows#
#Ms word 2011 for mac comment color by author code#
Hi there - I have nearly no experience with VBA, would you mind please clarifying where this portion of the code should be merged with the 'File Handling' code from the other page? I've attempted to insert in a few places, and am having no luck - without this portion, I am able to see the 'Open.' dialog box and select the files however, it's not clear how I can then go about doing the 'Replace' portion. The following is the VBA code that needs to be merged with File Handling code from the above article. Volunteering to "pay forward" to return help I've received in the Microsoft user community.] Charles Kenyon Sun Prairie, Wisconsin wordfaqaddbalancecom Legal website: Using a macro to replace text where ever it appears in a document including Headers, Footers, Textboxes, etc. To replace in headers and footers you must cycle through stories. However, you would, after saving as, want to use something to close the document without saving changes. I do not know the precise language you would use. The place to invoke the SaveAs is before the statement: doc.Close I take it you are talking about Rich's code, though. You were replying to my comment noting additional utilities. The code I have only works when the Document window is active and during during a loop. What method would I use to look in the footer section to make changes?
#Ms word 2011 for mac comment color by author update#
How would I accomplish this?Īlso, I need to update information in the footer. I would like to invoke the Save As dialog box so the user must rename file before closing the file. 'This is where you will insert your code for replicating the editsĭoc.Close "Do you want to continue?", vbYesNo, "Click Yes to Continue") = vbNo Then "replacement update on the other files you selected." & vbCr & vbCr & _ If MsgBox("We will now save this document and perform the same " & _ 'This is where you will insert your code for applying the edits
Set doc = Documents.Open(FileName:=selFiles(i)) 'It leaves the first document open so the Replace all changes can 'The following is setup to perform a conditional first time check The following is the VBA code that needs to be merged withįile Handling code from the above article. When the process is completed this final message is provided. If they choose to continue then all remaining documents that are included in the batch are updated.
Next, if more than one document has been selected to update, the user is provided with the opportunity to continue. Closing this dialog triggers the running of the next part of the VBA code. Replace All, which applies the changes to the active document, and is the first one in the batch of documents selected. When this portion of the code executes, the user is presented with theįind and Replace dialog and they are to make their desired Find/Replace entries. The code provided here is meant to be used with the VBA code provided in the article:Įditing MS Word Documents – File Handling Cross Platform. With Mac Word 2011 because that Mac version of VBA did not support automating the Find and Replace dialog.
#Ms word 2011 for mac comment color by author windows#
It works with the Windows versions of Word 2016 down to 2007 and with Mac Word 2016. The VBA code for this process is included below. Summary: To perform a Batch Find and Replace requires a macro.
0 kommentar(er)
