help creating macro

[tingker]

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

[macropod]

Try the following macro. It includes a folder browser, so all you need do is select the folder to process.

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

For PC macro installation & usage instructions, see: http://www.gmayor.com/installing_macro.htm

[tingker]

Thank you so much! works perfectly!!!

[tingker]

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!

[macropod]

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.