View Single Post
  #6   Report Post  
Posted to microsoft.public.word.newusers
Tico[_2_] Tico[_2_] is offline
external usenet poster
 
Posts: 19
Default How to remove automatically some pages?

Thank you very, very much.
I created a sample file and it works!
Now I have to put the macro into my big file which is a result of MailMerge
and make a lot of tests.

By the way, I know almost nothing about VBA for Word.
I looked at your page and I found a lot of interesting things there.
However what I need most at the moment is any tutorial how to create
simple macros in Word from the very beginning. Not just examples,
which are important too, but first of all the most basic rules.
I read that one of ways is to record macros using Word and then
to analyse it in VBA Editor. I think that this can be useful later,
when you know a lot, but not at the beginning.
I am looking for any lessons, step by step showing what is neccessary
in a macro and what it means. Then more and more functions to
write working macros.
Having such background I'll be able to learn using other methods.

I tried to find anything like this in the Internet to download or use
on line, but without any success. I found a lot for Excel but I read
that the rules are not the same.

Could you please advice me anything suitable for a person who
is just starting with writing macros for Word?

Thanks again for your help.

Regards
Tico


Użytkownik "Graham Mayor" napisał w wiadomości ...
The lines indicated in red have wrapped prematurely use the following which should not wrap

Sub DeleteMarkedPages()
Selection.HomeKey wdStory
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(findText:="\", _
MatchWildcards:=False, _
Wrap:=wdFindContinue, _
Forward:=True) = True
Selection.Bookmarks("\page").Range.Delete
Loop
End With

http://www.gmayor.com/installing_macro.htm

The macro will remove any page with the \ character in Word 2007 and should work in Word 97 also, though I don't have it available
to check. Word 2007 will open a Word document from Word 97 without the need to 'convert' it.


--

Graham Mayor - Word MVP

My web site www.gmayor.com
Word MVP web site http://word.mvps.org



Tico wrote:
Thank you very much for your prompt reply.

Unfortunately I don't know enough about macros to be able to use the
macro. When I tried to use it I got the following lines in red:

Do While .Execute(FindText:="#*#", MatchWildcards:=False,
Wrap:=wdFindContinue, Forward:=True) = True
Selection.Bookmarks("\page").Range.Delete
regardless what I replaced the "#*#" with.
My special character is \. I don't even know what I should writei n
the macro: "#\#", "\" or simply \
I haven't found FindText in the "VBA for Dummies" for Office 97 that
I have so I think I should save my file as Word 2007 first and then use the macro.
I have Office 2007 (home edition) but I am not familiar with it yet,
at least not to use macros.
I am afraid I'll have to remove the pages manually. :-(

Regards
Tico


Użytkownik "Doug Robbins - Word MVP" napisał
w wiadomości ...
Use a macro containing the following code where you replace the #*#
with the special character that you intend to use. Selection.HomeKey wdStory
Selection.Find.ClearFormatting
With Selection.Find
Do While .Execute(FindText:="#*#", MatchWildcards:=False,
Wrap:=wdFindContinue, Forward:=True) = True
Selection.Bookmarks("\page").Range.Delete Loop
End With


--
Hope this helps.

Please reply to the newsgroup unless you wish to avail yourself of my
services on a paid consulting basis.

Doug Robbins - Word MVP

"Tico" wrote in message
...
Hi All,

I have a big MS Word 97 file.
I am looking for any method that let me remove
automatically some pages which I can mark
using, for example, a special character as the
first on each page or in any other way.
I would be also satisfied if I could automatically
skip the pages whilst printing the file.

I can use the MS Word 2007 to do it, if necessary.

Could anyone help me please?
The matter is urgent.:-)

Regards
Tico