Replies

Thanks for the quick response. I’m still having trouble, though. With field codes visible, I can Find.Text = “^d” and I can Find.Text = “INCLUDEPICTURE” but I can’t Find.Text = “^dINCLUDEPICTURE”. Also, when I unlink the graphics while the field codes are visible, the graphics disappear.

Thanks,
Bob

This might help explain things:

My original Visio drawings were linked and embedded. When I broke the link, the Visio graphics turned into WordArt graphics.

Bob

The standard module, I believe. It’s entered before the procedure that brings up the form. That is:

Option Explicit

Public ActiveUserName As String ‘Active User Name

Sub ChangeUserName()

code code code

Load frmUserName

code code code

End Sub

frmUserName is where the code in question appears.

Application.UserName seems to have a value in the non-form code until I press the button that triggers the event in question.

Thanks,
Bob

I’ve made a little bit of progress with this issue. The file I was working with included many inserted files. The change in page orientation occurs within those inserted files. When I broke the links to the inserted files, which hard-coded the content in the big file, the macro started identifying the page orientation OK.

I’m still having some problems. We use even/odd footers, and the macro doesn’t seem to be working in even-numbered, landscape pages. I’ve attached a zip file that shows the kind of file I’ve been working with.

Also, my current code is at the end of this e-mail.

Thanks everyone for your help,
Bob

****************************************

Sub FixSectionOrientation()

Dim oSec As Section
Dim counter1 As Long
Dim tabSetting As Single

‘Set tab stop for first section footer

With ActiveDocument.Sections(1).Footers(wdHeaderFooterPrimary). _
Range.ParagraphFormat.TabStops
.ClearAll
.Add Position:=InchesToPoints(6), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderSpaces
End With

‘Loop through sections, starting with Section 2

For counter1 = 2 To ActiveDocument.Sections.count

Set oSec = ActiveDocument.Sections(counter1)

‘ Link, then unlink content from previous footer
‘ to pull in content and then freeze it in a section

oSec.Footers(wdHeaderFooterPrimary).LinkToPrevious = True
oSec.Footers(wdHeaderFooterPrimary).LinkToPrevious = False

‘ Determine tab setting depending on page orientation

If oSec.PageSetup.Orientation = wdOrientPortrait Then
‘If oSec.PageSetup.PageHeight > oSec.PageSetup.PageWidth Then

tabSetting = 6

Else

tabSetting = 9

End If

‘ Set tab stop for section footer

With oSec.Footers(wdHeaderFooterPrimary). _
Range.ParagraphFormat.TabStops
.ClearAll
.Add Position:=InchesToPoints(tabSetting), Alignment:=wdAlignTabRight, Leader:=wdTabLeaderSpaces
End With

Next counter1

Set oSec = Nothing

End Sub

Thanks for the replies. We do use Link To Previous, to keep the content consistent in the footers. I’ll try turning that off before checking the page orientation.

This looks good. However, I’m still returning a “9999999” value for oSec.PageSetup.Orientation, rather than 0 or 1.

Thanks,
Bob

akavev,

Did you transfer a project from Word to FM, or did you start a project in FM?

Thanks,
Bob

Everyone has years of experience with Word, but our FM experience is pretty much limited to the testing we’ve done. The chapters of many of our books are combinations of inserted files, and there have been some formatting problems with material as it goes from the source files to the combined files. To me, these problems can be dealt with, but others don’t see things that way. A lot of our input about FM has come from a writer in another office who worked with FM at another job, but who isn’t familiar with the processes in my office. This might sound prejudiced, but it seems that the decision-making process is being guided by a “Grass is Greener” mentality. That is, FM might help us do other things, so we should consider it.

One other thing, I’ve noticed that the O’Reilly computer books (whose design I really admire) use FM for layout. That seems to me to be the best use of FM–a layout tool for large projects.

Thanks,
Bob

Gary,

We produce technical documentation for a software product. They’re mostly text, with pasted-in GIF graphics, and linked Visio drawings. Some of the books have a lot of tables. Right now, we use the Adobe Acrobat PDFMaker to produce PDFs from Word. Those PDFs are used for CD-ROMs and printed manuals.

Thanks,
Bob

Phil,

Thanks for the reply. I found this KB link which helps answer my question:

http://support.microsoft.com/search/previe…b;en-us;Q209729%5B/url%5D

Bob

I found this code while searching the list, and it didn’t help. Word seems to think the list has no numbering, so it blanks out the restart numbering and continue list options.

However–good news–I changed the template of the doc from the custom template to Normal.dot, and I was able to restart numbering. I then changed back to the custom template and continued work. Not the best fix, but it’s something.

Thanks for your suggestion,
Bob

I tried your suggestion, and it showed the same Bullet/Number spec for the style and the problem text. I’ve tried running different macro code on it, and that hasn’t helped either.

Thanks anyway,
Bob

Are you saying that the library references that were set up when the macros were created might not be valid on the problem PC? The MISSING reference that I’m encountering seems to be spontaneously created on the problem PC.

Thanks,
Bob

Sometimes the path comes up:

{INCLUDEPICTURE “C:DirectoryFile.gif” * MERGEFORMAT}

while other times it comes up:

{INCLUDEPICTURE “DirectoryFile.gif” * MERGEFORMAT}

or

{INCLUDEPICTURE “File.gif” * MERGEFORMAT}

Thanks,
Bob

Gary,

Here’s the AutoOpen code, with company-specific info x’d out:

*****************

Sub AutoOpen()

Dim UserMessage As String
Dim Release As String
Dim UsrNme As String
Dim Solution As String
Dim Change As String
Dim DocCheck As Boolean

OriginalUserName = Application.UserName
UsrNme = OriginalUserName

Do Until Release = “xxx” Or Release = “xxx” Or Release = “x” Or Release = “xxx”

UserMessage = “What xxxx or xxx are you working on? You must enter xxxx, xxxx(for xxxx), xxxx (for xxxx), or R (read-only).”
Release = InputBox(UserMessage, “xxxx”, “”)

If Release = “xxxx” Or Release = “xxxx” Or Release = “r” Then

Release = UCase(Release)

End If

If Release “xxxx” And Release “xxxx” And Release “R” And Release “xxxx” Then

MsgBox “You must enter xxxx, xxxx, xxxx, or R (read-only).”

End If

Loop

If ActiveDocument.ProtectionType = wdAllowOnlyRevisions Or ActiveDocument.ProtectionType = wdAllowOnlyComments Then

ActiveDocument.Unprotect Password:=”xxxx”

End If

DocCheck = False

If Release = “xxxx” Then

Do Until DocCheck = True

UserMessage = “xxxx”
Release = InputBox(UserMessage, “xxxx”, “”)
Release = UCase(Release)
DocCheck = InStr(Release, “xxxx”) Or InStr(Release, “xxxx”)

Loop

End If

If Release = “R” Then

ActiveDocument.TrackRevisions = False

ActiveDocument.Protect Password:=”xxxx”, NoReset:=False, Type:= _
wdAllowOnlyComments

MsgBox “You have accessed this document for read-only purposes. You cannot make any changes to the document.”

Else

ActiveDocument.Protect Password:=”xxxx”, NoReset:=False, Type:= _
wdAllowOnlyRevisions
Application.UserName = UsrNme + “” + Release
Application.UserAddress = “”
ActiveDocument.TrackRevisions = True
MsgBox “Change-tracking has been turned on in this document. While you are working in this document, your Word user name will be ” + Application.UserName + “. It will be automatically changed back to ” + UsrNme + ” when you close this document.”

End If

End Sub

************

Also, I checked the object references on both my machine and the user’s machine, and they were the same.

Thanks,
Bob