-
-
Is it, really difficult to do?
Then it is satisfactory putting in the table only the first document. Thanks
Pasquale
-
This VBA macro works only for first documents.
[VBA]
Sub Tabella1()
'
' Tabella1 Macro
' Macro registrata il 11/11/05 da Pasquale
'
Selection.Find.ClearFormatting
With Selection.Find
.Text = "GRK Mt [0-9]{1;3}:[0-9]{1;3} *^13"
.Replacement.Text = "^pGRK"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = True
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Cut
Windows(1).Activate
Selection.Paste
Selection.MoveDown Unit:=wdLine, Count:=1
Windows(2).Activate
Selection.Find.ClearFormatting
With Selection.Find
.Text = "GRK Mt [0-9]{1;3}:[0-9]{1;3} *^13"
.Replacement.Text = "^pGRK"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = True
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Cut
Windows(1).Activate
Selection.Paste
Selection.MoveDown Unit:=wdLine, Count:=1
Windows(2).Activate
End Sub
[/VBA]
Pasquale
Posting Permissions
- You may not post new threads
- You may not post replies
- You may not post attachments
- You may not edit your posts
-
Forum Rules