#1
|
|||
|
|||
help creating macro
Hello all,
I have about 200 files that I need to edit and I was wondering if someone can help me create a macro that will make my life a little easier. I have to insert a text before each question (see below -in red). There's about 20 questions per document. Is there an easy way of doing this with macro? Instead of copy and pasting. Many thanks, any feedback is greatly appreciated! <cgi=”0000000000” type=”mc”> 1. Which Microsoft Word feature allows you to create individual form letters? A. Envelopes and Labels B. Macro C. Mail Merge D. AutoText <cgi=”0000000000” type=”mc”> 2. To save an existing document with an alternative name you would…. A. Click on the Save button B. Select File, Save As from the menu bar C. Select File, New from the menu bar D. Click on the Open button |
#2
|
||||
|
||||
Try the following macro. It includes a folder browser, so all you need do is select the folder to process.
Code:
Sub UpdateDocuments() Application.ScreenUpdating = False Dim strFolder As String, strFile As String, strDocNm As String, wdDoc As Document strDocNm = ActiveDocument.FullName strFolder = GetFolder If strFolder = "" Then Exit Sub strFile = Dir(strFolder & "\*.doc", vbNormal) While strFile <> "" If strFolder & "\" & strFile <> strDocNm Then Set wdDoc = Documents.Open(FileName:=strFolder & "\" & strFile, AddToRecentFiles:=False, Visible:=False) With wdDoc With .Range.Find .ClearFormatting .Text = "^13[0-9]@." .Replacement.Text = "^p<cgi=”0000000000” type=”mc”>^&" .Forward = True .Wrap = wdFindContinue .Format = False .MatchWildcards = True .Execute Replace:=wdReplaceAll End With .Close SaveChanges:=True End With End If strFile = Dir() Wend Set wdDoc = Nothing Application.ScreenUpdating = True End Sub Function GetFolder() As String Dim oFolder As Object GetFolder = "" Set oFolder = CreateObject("Shell.Application").BrowseForFolder(0, "Choose a folder", 0) If (Not oFolder Is Nothing) Then GetFolder = oFolder.Items.Item.Path Set oFolder = Nothing End Function
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
#3
|
|||
|
|||
Thank you so much! works perfectly!!!
|
#4
|
|||
|
|||
Hello Macropod, Just a quick question, they have updated my office to 2013 and now the macro is not working. Can you help please!
Thanks in advance! |
#5
|
||||
|
||||
There is nothing about the macro that is specific to any Word version, so I can't see any reason it wouldn't work with Office 2013.
__________________
Cheers, Paul Edstein [Fmr MS MVP - Word] |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Need Help Creating Macro | rsrasc | Word VBA | 1 | 10-22-2014 03:09 PM |
Need Help Creating Macro | rsrasc | Word VBA | 4 | 03-28-2014 01:31 PM |
Creating a generic macro? | suerose | Word | 2 | 07-04-2011 07:59 PM |
Creating a MACRO | Nikb3522 | Word VBA | 0 | 10-21-2010 05:55 PM |
creating macro | steveb | Word VBA | 0 | 08-14-2010 01:29 AM |