E
erin.sebastian
Hello Everyone, I posted this message back in May but was then pulled
off of the project and onto something new and didn't have time to
revisit it. I am still having this exact error. The program is actually
sitting on a network drive on a windows 2000 box and when the user open
from there the margins are set the same as the normal template and have
not changed to what i set them too, they do not experience any error
messages or anything out of the ordinary. Any ideas would help
greatly!!
I have a macro that produces a word document when all is said and done.
I have some code that goes and sets the margins programmatically, the
code is as follows:
Set myRange = ActiveDocument.Range
With myRange
.PageSetup.TopMargin = CentimetersToPoints(1)
.PageSetup.BottomMargin = CentimetersToPoints(1)
.PageSetup.LeftMargin = CentimetersToPoints(0.9)
.PageSetup.RightMargin = CentimetersToPoints(0.9)
.Font.Size = 11
.Font.Name = "Times New Roman"
End With
this works perfectly when i run it on my own machine but when it's run
on other people's machines it doesn't work at all. I should also note
that the font setting works on any computer and that the page margins
and font are different in Normal.dot on my computer and the others i
have tested on. Am i doing something wrong??
Thanks,
Erin
off of the project and onto something new and didn't have time to
revisit it. I am still having this exact error. The program is actually
sitting on a network drive on a windows 2000 box and when the user open
from there the margins are set the same as the normal template and have
not changed to what i set them too, they do not experience any error
messages or anything out of the ordinary. Any ideas would help
greatly!!
I have a macro that produces a word document when all is said and done.
I have some code that goes and sets the margins programmatically, the
code is as follows:
Set myRange = ActiveDocument.Range
With myRange
.PageSetup.TopMargin = CentimetersToPoints(1)
.PageSetup.BottomMargin = CentimetersToPoints(1)
.PageSetup.LeftMargin = CentimetersToPoints(0.9)
.PageSetup.RightMargin = CentimetersToPoints(0.9)
.Font.Size = 11
.Font.Name = "Times New Roman"
End With
this works perfectly when i run it on my own machine but when it's run
on other people's machines it doesn't work at all. I should also note
that the font setting works on any computer and that the page margins
and font are different in Normal.dot on my computer and the others i
have tested on. Am i doing something wrong??
Thanks,
Erin