Popup in office (Macro)

[KenZu]

Hello. Im new here and a newbie on VB.
I got like 100+ documents (word 2007 and excel 2007) and the main thing will be, to have the opportunity to choose a footer when you open a doc from a popup. im this case, three different offices.

This is my code:

Private Sub Document_New()
Call Document_Open
End Sub

Private Sub Document_Open()
Application.ScreenUpdating = False
Dim Rng As Range, Str As String, Fld As Field, i As Long
i = CLng(InputBox("Which Office?" & vbCr & "1: Gothenburg, 2: Stockholm, 3: Malmö"))
If i = 0 Or i > 3 Then Exit Sub
With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary)
Set Rng = .Range.Characters.First
Rng.Collapse wdCollapseStart
For Each Fld In .Range.Fields
With Fld
If .Type = wdFieldQuote Then
Set Rng = Fld.Result
.Delete
Exit For
End If
End With
Next
Select Case i
Case 1
Str = "Gothenburg AB, Tel 010-123456, www.gothenburg.com"
Case 2
Str = "Stockholm AB, Tel 010-123456, www.stockholm.com"
Case 3
Str = "Malmö AB, Tel 010-123456,www.malmö.com"
End Select
Set Fld = ActiveDocument.Fields.Add(Range:=Rng, Type:=wdFieldQuote, _
Text:="""" & Str & """", PreserveFormatting:=False)
End With
Set Fld = Nothing: Set Rng = Nothing
Application.ScreenUpdating = True
End Sub


As it it now, the script change my footer on page 2 and forward. Is it possibly to change the first page as well?
Could you have different footer on different pages at the same time? In a script?

/KenZu

[westconn1]

with word you can have 3 different footers in a document
first page, odd pages and even pages
you can change all in your script by adding the same code for each footer as required

[KenZu]

Ok. Sorry to ask, but how will it look if i want one foot as first page and one for the rest?

And one thing else... When I tried it on the intranet, it didnt work. The popup showed, but then something got wrong.
"Wrong nr '4248'... This command is not available because no document is open. "

And this code were marked yellow: With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary)

[westconn1]

And this code were marked yellow: With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary)

avoid using activedocument, specify the document you want to work with, i do not see where you open a document to work with

but how will it look if i want one foot as first page and one for the rest?

.Footers(wdHeaderFooterFirstPage)

[KenZu]

What if I change to the specific document. How will the new code look like? (exampel)

[westconn1]

you can use documents("documentname.doc"), this guarantees you are working with the document you intended

[KenZu]

So that row will look like this?
With Documents("Brevmall utan rubrik_110101.doc").Sections(1).Footers(wdHeaderFooterFirstPage)
instead of:
With ActiveDocument.Sections(1).Footers(wdHeaderFooterFirstPage)

[KenZu]

the first one didnt work.
or how will the new code look like? Should I add more codes?
Im very glad for all help I get! =)

[westconn1]

the first one didnt work.

i do not know why, it certainly looks correct

[KenZu]

i do not know why, it certainly looks correct

Hmm.
I get the same error, "Wrong nr '4248'... This command is not available because no document is open. "

It doesnt work when I'm open the file from the intranet, but if I save the file first and then opends it work.

[westconn1]

It doesnt work when I'm open the file from the intranet, but if I save the file first and then opends it work

.
that makes sense, the document name may be some temp file

[KenZu]

.
that makes sense, the document name may be some temp file

Do you think I could go around the problem?

[westconn1]

Do you think I could go around the problem?

while i very much refer not to use active anything, this maybe a case to do so

[KenZu]

How would you do/write?

[KenZu]

Hmm..

What if we only want the possibility to save the document and not open. What would you change in the code?

I'm really thankful for all the help!

[KenZu]

I guess there's something wrong with my settings in IE8 or word.
I tried to open the file in FF and it work perfect.

Now i just have to search in IE8 & word after my problem.

What if we only want the possibility to save the document and not open. What would you change in the code?

[westconn1]

What if we only want the possibility to save the document and not open.

you have to open to make changes
but you can close and save
at the end add thisdocument.close true

ideally you should have all the code in some other document, open each document in folder, make appropriate changes, close and save, open next
not have the code in the open event for every document

[KenZu]

Hmm,didnt work
It works in FF but not in IE. Do you think the setting problem is in word or the browser?

[Mobilt]

Every time I open the file I am presented with a securuty pop up that tells me .

[KenZu]

Lets open this again...
I got it to work... But when I tried to copy code to other documents it won't work.
I get the popup to work, but it doesnt change office.

Guess im back to basic... How/what do I have to write in the foot, so that the script knows what to change?

[westconn1]

Lets open this again...

ok, what code have you got now?

I got it to work... But when I tried to copy code to other documents it won't work.

why do yo want to copy it to other documents?, see post #17

I get the popup to work, but it doesnt change office.

what office do you want to change? i thought it was just to edit some documents

How/what do I have to write in the foot, so that the script knows what to change?

like the script i am not a mind reader, you need to explain more, what you want to do

[KenZu]

Let's try again. My code below.
It worked fine in document 1. But when I copied the code to doc. 2, the foot dont change. I got the popup to work, but after i choose office (from the popup) the foot doesnt change.

Let's say I start a new document. Is it only to copy the code and paste it in "ThisDocument" or should I write something In the document (foot) before?

Private Sub Document_New()
Call Document_Close
End Sub

Private Sub Document_Open()
Application.ScreenUpdating = False
Dim Rng As Range, Str As String, Fld As Field, i As Long
i = CLng(InputBox("Välj kontor" & vbCr & "1: Samtliga, 2: Göteborg, 3: Stockholm"))
If i = 0 Or i > 3 Then Exit Sub
With ActiveDocument.Sections(1).Footers(wdHeaderFooterFirstPage)
Set Rng = .Range.Characters.First
Rng.Collapse wdCollapseStart
For Each Fld In .Range.Fields
With Fld
If .Type = wdFieldQuote Then
Set Rng = Fld.Result
.Delete
Exit For
End If
End With
Next
Select Case i
Case 1
Str = "Göteborg"
Case 2
Str = "Sthlm"
Case 3
Str = "Stockholm"
End Select
Set Fld = ActiveDocument.Fields.Add(Range:=Rng, Type:=wdFieldQuote, _
Text:="""" & Str & """", PreserveFormatting:=False)
End With
Set Fld = Nothing: Set Rng = Nothing
Application.ScreenUpdating = True
End Sub

[KenZu]

I think I needed a night sleep. Solved the problem the first thing this morning
The "error" were that Different firstpage should be active, and it wasnt before. Happy!

But... The scipt tells only the foot on the first page. If I would like to add that the other pages should have one "standard" foot, how should I do that?
= You open the document, popup shown and you choose office, it change only on the first page, and on the other pages it should be a standard foot.

[westconn1]

If I would like to add that the other pages should have one "standard" foot, how should I do that?

your script should only change the first page footer, if you want to create a footer for the other pages, try wdHeaderFooterPrimary

[KenZu]

It worked on the first page.

But if I want to decide both first and the other pages in the script? The first will be as the code above, then for the other pages, I need to write a code for that?

[westconn1]

I need to write a code for that?

of course

With ActiveDocument.Sections(1).Footers(wdHeaderFooterFirstPage) 
  'your code as above
end with
With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary) 
  'your new code for other pages
end with

[KenZu]

Thanks a lot westconn1..

Sorry if Im stupid. But the first code have a lot of "text" (below).... What would i write/add if i want the other pages to have "Text" as foot?

With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary) 
  'text?
  'text?
end with

With ActiveDocument.Sections(1).Footers(wdHeaderFooterFirstPage)
Set Rng = .Range.Characters.First
Rng.Collapse wdCollapseStart
For Each Fld In .Range.Fields
With Fld
If .Type = wdFieldQuote Then
Set Rng = Fld.Result
.Delete
Exit For
End If
End With
Next
Select Case i
Case 1
Str = "Göteborg"
Case 2
Str = "Sthlm"
Case 3
Str = "Stockholm"
End Select
Set Fld = ActiveDocument.Fields.Add(Range:=Rng, Type:=wdFieldQuote, _
Text:="""" & Str & """", PreserveFormatting:=False)

[westconn1]

try

With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary)
    .Range.Text = "Text"
End With

it really depends what you want to put in the footer
if you want pagenumber, you have to insert the appropriate field

[KenZu]

Thanks mate! Have learned a lot from you!
Now, i think, it won't be anymore problems. I hope.

But... I tried to paste it in excel (in ThisWorkbook), and of cause, it didnt work. Do you have any clue how to do that?

[westconn1]

this is a word macro so it will not work in excel, as is

if you want to do this from excel you should read the tutorial for automating office applications, in faq thread at the top of this forum

you would need to create an object of word then convert the code to work with the word object, all ranges etc would need to be fully qualified and any word constant used would have to be declared, or use literal values

[KenZu]

I thought so... Thanks for everything =)

[KenZu]

If i choose "Dont print hidden text" (in settings), then both head and footer won't print. But if I want footer to print but not the head. Is there any code for that?

[westconn1]

temporally remove the header, or set its font to hidden, change back after printing