add textbox while textbox is selected

JustALittleHelp · Guest

2 part question:

Is this specific to Word 2003 or up? I get an error with the line:
Target.SaveAs FileName:=DocName

I modified the following only:
DocName = "C:\MergedSplit\" & Source.Bookmarks("\Line").Range
(didn't like the right bracket after Range and I'm trying to send it to a
specific path.)

Is there a way to maintain the page setup of the originating document, i.e.,
orientation and margins?

This is so amazingly helpful!
Michele
I apologize if this is redundant.

"Doug Robbins - Word MVP" wrote:

Google · Sponsor

JayM · Guest

Jonathan
Thanks for the reply.
Unfortunately I still can't get it to work.
Because of the pre-printed letterhead on the HP printers we need to Rotate
the paper (Rotated is an option on the Basics tab in the printing
preferences).

I have searched and searched for info on this but can't find it - do you
know where I might be able to get advice on this one

At the moment I have a macro that stops so the user can change printer(or
profile) with the duplex and rotated settings on and then stops after the
print to reset it.

JayM

"Jonathan West" wrote:

JayM · Guest

Jonathan
Many thanks for all your help with my many printing queries - unfortunately
I have another one for you.
I have written a macro to use your duplexing code and this works fine
locally but when using word in Citrix it seems to ignore the duplex code. At
the moment Citrix just has a universal driver and each pc has the printer
installed locally if this is of any help.

JayM

"Jonathan West" wrote:

Mickey · Guest

I know I'm getting into this late but could this code be modified to create a
cross reference based on existing bookmarks in the document. The situation
is this....I have multiple headers in a document due to portrait and
landscape pages. There are 4 bookmarks in the header (DOC_NAME, DOC_VERSION,
DOC_TITLE, DOC_SITE). The headers each need the same bookmarks. I have a
macro to add the bookmarks but the bookmarks are only retained in the last
header. I'm wondering if I can search the headers where the bookmark was
lost and include cross reference code. For example, search for "[DOC_NAME]
and have code that cross references it to the bookmark DOC_NAME.

Any help is very much appreciated.

Thanks,
Mickey

"Russ" wrote:

Russ · Guest

Mickey,
I think your question was answered by Tony in the other thread:
"Retaining Bookmarks in Autotext Macros"

Guest

I posted this question several months ago (under y dmitri karpov account), and have finally stumbled on the answer.
There is a bug in Word 2007.
If the username and initials fields are not filled in, then for some inexplicable reason, the VBA code

options.printbackground

will fail to execute with a bad parameter error.

Custom solutions that require this code for printing will fail silently (or with a bad parameter error).

The solution: have the user put their username and initials in word. Close word. Try again.

I have reported this bug to Microsoft.

EggHeadCafe - .NET Developer Portal of Choice
http://www.eggheadcafe.com

Russ · Guest

Thanks for the feedback.

Tyll · Guest

Dmitri,

Also see the thread "Word 2007: Options.ReplaceSelection -> Run-time
error 4120 Bad Parameter" from 10/19/07 which contains more extensive
documentation of the bug and the solution.

Regards, Tyll.

Hans · Guest

Here's a code sample to work around the bug:

Private Sub OfficeUserName()
'User name bug solution
'Validate user name and ask for a correction if needed
Dim MsgText As String
Dim dlgUserInfo As Dialog

Set dlgUserInfo = Dialogs(wdDialogToolsOptionsUserInfo)
MsgText = "An invalid user name was found in Word Options. "
MsgText = MsgText & "Please type in your name!"
Again:
With dlgUserInfo
If Not ValidateUsername(.Name) Then
.Name = InputBox(MsgText, "[My Add-In]", "[Your name]")
If ValidateUsername(.Name) Then
.Execute
Else
GoTo Again
End If
End If
End With
End Sub

Private Function ValidateUsername(OffUserName As String) As Boolean
'A valid user name needs to have at least one character
'which is not a blank space
If Len(OffUserName) >= 1 Then
For I = 1 To Len(OffUserName)
If Mid(OffUserName, I, 1) <> " " Then
ValidateUsername = True
End If
Next
End If
End Function

Regards, Hans

<Dmitri Karpov> schrieb im Newsbeitrag
news:2007115145340maxl@compusenseinc.com...

Guest

Try this:

Set myRange = ActiveDocument.Range(Start:=0, End:=0)

oCaptions = _
ActiveDocument.GetCrossReferenceItems(wdCaptionTable)
....or wdCaptionFigure

I found that if a range was not set, then only about 9 elements would be returned, and those 9 elements correspond to the first 9 elements in the displayed cross reference window.

Good Luck

EggHeadCafe - .NET Developer Portal of Choice
http://www.eggheadcafe.com

MIrving · Guest

Hi Greg

I found your macro perfect for deleting unselected check box paragraphs.
The only additional functionality I would like to add to my document is for
the remaining check boxes (ie. the checked boxes) to also be deleted, leaving
only the paragraph text for the selected items. Is there anyway of achieving
this? Thank you for any suggestions.

"Greg" wrote:

Shauna Kelly · Guest

Hi Greg

I'm interested in following this up because I've had trouble over the years
using .GetCrossReferenceItems. It doesn't always pick up all items, and I
had to roll my own routine, which runs much slower than the built-in one.

I can't see that
Set myRange = ActiveDocument.Range(Start:=0, End:=0)
is related to
oCaptions = _
ActiveDocument.GetCrossReferenceItems(wdCaptionTable)

But are you saying that setting a range variable to a more or less random
range immediately before running .GetCrossReferenceItems causes it to work
reliably? Stranger things have happened in Word, so nothing would surprise
me!

Shauna

Shauna Kelly. Microsoft MVP.
http://www.shaunakelly.com/word

<Greg Stanford> wrote in message news:200711814489no_spam_thanks@com...

Bob W · Guest

There's definitely some Twilight Zone things that can happen to
autotextlists. In my experience, although they offer great promise for
simplifying work, they often tend to get mysteriously corrupted over time,
even when carefully stored in a template (other than Normal.dot) attached to
a document. Sometimes one or more unintended autotext items mysteriously
start appearing in the autotext dropdown, even though they were never defined
in that autotext list! Sometimes one, or all, of my autotext fields,
suddenly start showing me ALL my autotext items, not just the ones I defined
in an Autotext List. In one case, after working properly for many weeks, I
suddenly notice that when I clicked on the field for Autotextlist A, the
autotext list items that I had defined for Autotext List B were appearing
instead of the the items I had so tediously defined for Autotext List A! For
these reasons, I've very regrettably begun moving away from autotext lists -
they take a lot of time to set up, and when they get mysteriously corrupted,
fixing them takes at least as long again. I am pretty sure they don't save
much time, overall, because of the hassles involved with creating and
maintaining them. At one time I thought they were going to be very helpful
to our workgroup and rolled out some templates to help the team work faster,
with some autotext list items in them. They worked for a while, and then
problems like I've described, above, started happening. Autotextlists exist
and reside kind of in the background, and lack convenient dialogs that might
otherwise make them easy to create and manage. To me, although they appear
to be a great novelty feature and a source of interesting discussions among
Word MVPs in theory, putting these kinds of features into serious, reliable
practice has been disappointing, at least for me, despite the enormous
patience and time I've expended on them. Other users may disagree, but I have
reluctantly come to feel that they are not robust enough - or, maybe, at
least in my case, idiot-proof enough - for Prime Time usage.

"Ed" wrote:

Russ · Guest

Shauna et al.,

Here's what VBA help says about .GetCrossReferenceItems in my version of
Word. The asterisks were added by me for emphasis.

Although it says "for which box", it later only gives 5 types. Because
wdCaptionTable is not a wdRefCaptionTable type, maybe it is unreliable?
Maybe everything in the "for which box" has not been fully integrated or
debugged to work with that method yet?

===Quote
Returns an array of items that can be cross-referenced based on the
specified cross-reference type. The array corresponds to the items listed in
the **For which box** in the Cross-reference dialog box (Insert menu).
Note An item returned by this method can be used as the ReferenceWhich
argument for the InsertCrossReference method.
Syntax
expression.GetCrossReferenceItems(ReferenceType)
expression Required. An expression that returns a Document object.
ReferenceType Required Variant. The type of item you want to insert a
cross-reference to. Can be one of the following WdReferenceType constants:
**wdRefTypeBookmark, wdRefTypeEndnote, wdRefTypeFootnote, wdRefTypeHeading,
or wdRefTypeNumberedItem**.
====UnQuote

Shauna Kelly · Guest

Hi Russ

I think it's a bit more complicated than that and the documentation in VBA
help is, shall we say, incomplete.

The array that you get back from GetCrossReferenceItems is equivalent to the
"For which" box. The Reference Type you must give it is equivalent to the
"Reference Type" box in the dialog.

The "Reference Type" box includes caption labels. But none of the
wdReferenceType constants cope with caption labels. And obviously you can
create a cross-reference to, eg, a Table or Figure or Equation caption. So
you can use a string, eg:

Dim va As Variant
va = ActiveDocument.GetCrossReferenceItems("Table")

Or, you may have created your own label so you could use
Dim va As Variant
va = ActiveDocument.GetCrossReferenceItems("MyLabel")

Unlike "MyLabel", the Table, Figure and Equation labels are built-in. And
they have their own wdCaptionLabelID constants, wdCaptionTable,
wdCaptionFigure, wdCaptionEquation.

In an English install,
va = ActiveDocument.GetCrossReferenceItems("Table")
should produce the same results as
va = ActiveDocument.GetCrossReferenceItems(wdCaptionTable)

But since "Table" isn't "Table" except in English, it's safer to use the
constants.

But I have found in a large document with many tables, that
GetCrossReferenceItems does not always return an array containing an element
for all the tables in the document. It will do the first 100 or so tables,
but not the rest. It's not reproducible, and it seems to depend on document
complexity rather than sheer size. And, I don't think it's related to
hardware grunt, since giving it more processor speed and memory doesn't
solve the problem.

So I'm wondering if Greg found some mysterious way to solve that problem.

Shauna

Shauna Kelly. Microsoft MVP.
http://www.shaunakelly.com/word

"Russ" <drsN0SPAMmikle@hotmailD0Tcom.INVALID> wrote in message
news:C35A1C78.1EFA4%drsN0SPAMmikle@hotmailD0Tcom.INVALID...