DocVariable & Inserting Symbols
Hello,
I was wondering, whether somebody would be able to advise.
Within Word I have a Docvariable, which individuals would like to add
symbols too.
The DocVariable is updated via a VBA Dialogue box which contains a textbox.
Is there anyway I can get some sort of Symbol functionality, so people can
add symbols to the DocVariable via the VBA Dialogue Box or simply update the
Word DocVariable in the document.
Thanks. Tag: numbering multiple copies of a document Tag: 68743
sections and pagecount
Hi,
I want to count pages in a specific section, and futhermore I want to go to
the last page in the same specific section. How do I do that?
Christina Tag: numbering multiple copies of a document Tag: 68742
File/Properties Macro
I need to create a macro that opens the File/Properties dialog box. I cannot
find
a "wdDialog" that looks like it would be the right one. Can anyone tell me
what the code is to get this box to open?
With Dialogs(wdDialog?????????)
.Show
Thanks! Tag: numbering multiple copies of a document Tag: 68739
Deleting unwanted page breaks
I amusing WORD 97, can anyone supply me with some code that will delete all
the page breaks in a document?
Thanks in advance
--
Mark Tag: numbering multiple copies of a document Tag: 68736
AutoText - "Look In" <template> Question
Is there any way (for both Word 97 and beyond) to programmatically set the
"Look In:" template for AutoText? I want to make sure when my macro runs
that "All Active Templates" is set before proceeding. I'm concerned about
using "SendKeys" because it may not work in later versions and/or other
configurations.
Thanks, David Tag: numbering multiple copies of a document Tag: 68725
version problems - getting error message from macro run in 2000
I have created a macro that runs fine in both XP and word 2002. My problem
is that when it was run on word 2000 the macro crashed at this bit of code:
Sub UpdateBookmark(BkMrkToUpdte as string, TxtToUse as string)
Dim BMRange As Range
***** this is the line it stopped at below
Set BMRange= ActiveDocument.Bookmarks(BKMrkToUpdte).Range
BMRange.Text = TxtToUse
ActiveDocument.Bookmarks.Add BkMrkToUpdte, BMRange
End Sub
This code works fine in XP which I have and 2002 which my boss runs however
when he tried to distribute it to another person with word 2000 it crashed
here, with the message "requested member of the collection does not exist".
Since I don't have 2000 I can not test this but was wondering if this is a
version problem. I am currently trying to figure out if the person has all
the documents that are associated with the macro since that might be the
problem, however it should have bombed when I opened those documents. Any
help or assistance with this is appreciated.
HBO Tag: numbering multiple copies of a document Tag: 68720
Create table macro using a loop
I'd like to create a table macro using a loop. The columns are fixed. There
are 7 columns but the number of rows are dynamic. The number of rows will be
determined by a bookmark. Can this be done?
I cannot use a catalog merge. It's a long story.
Thanks
Tom Tag: numbering multiple copies of a document Tag: 68716
Preventing the steps to record into the undo stack
I type a simple 4-letter word in MS-Word. Then, I run a macro which
performs 1000 steps. The undo stack records the 4 characters + 1000 steps.
Is there a way in MS-Word that I can ask it to not to record only that 1000
steps into the undo stack? Any VB code is fine.
There is an article which explains as to how to clear the complete undo
stack, but that doesnt help much. Tag: numbering multiple copies of a document Tag: 68715
Converting Chart to Picture
What is the macro code to locate and change an Excel graph embedded in a Word
document to a picture? Actually, I have several graphs that need to be
converted.
I have tried the following without success.
Selection.Cut
Selection.PasteSpecial.Picture
and
Selection.Cut
Selection.PasteandFormat (Picture)
--
Jim Benet Tag: numbering multiple copies of a document Tag: 68708
Keycode Constants
Where can I obtain a list of Microsoft Word Keycode constants and their
definitions?
--
Jim Benet Tag: numbering multiple copies of a document Tag: 68706
Word Toolbar Not Showing Up
I have an AutoNew macro (below) that is supposed to make the "ModiTemp Macro
Button" custom toolbar visible when it runs, but it does not work.
CommandBars("ModiTemp Macro Button").Visible = True
Any help answering why this does not work will be greatly appreciated. Tag: numbering multiple copies of a document Tag: 68705
Formatting Table Columns
The following code snippet is from a VB6 routine that is trying to format
the columns in a table. It, however, gets an error upon attempting to set
the PreferredWidthType property. Any ideas?
Set oTable = oWDoc.Tables(1)
'
' code that works and is unimportant to this question goes here
'
oTable.Rows(1).Select
oWord.Selection.MoveDown Unit:=wdLine, Count:=1, Extend:=wdExtend
Set oRange = oWord.Selection.Range
With oRange
.Columns(1).PreferredWidthType = wdPreferredWidthPoints
.Columns(1).PreferredWidth = oWord.InchesToPoints(0.4)
End With
TIA!
--
TFWBWY...A Tag: numbering multiple copies of a document Tag: 68704
Range Selection X and Y For Drawing
Our customer is very demanding in that they need some artwork drawn begining
with the selected text.
How is it possible to find the X and Y positions of a selected range so that
I can start drawing lines from there? Tag: numbering multiple copies of a document Tag: 68703
Simple Question: clearing Shape Collection
Hello,
I am looping through a number of documents putting a specific paicture in
each document. They only problme I am having is that when the picture is
being placed int he .doc a number of other pitcures are imposed on top of it,
presumably the whole activedocument.Shapes collection.
I figure I need to clear/empty the collection at the end of the loop before
I use
Set oShape = ActiveDocument.Shapes.AddPicture
to put the new image into the document.
Any help would be very appreciated.
Matt (VB Newbie) Tag: numbering multiple copies of a document Tag: 68694
Getting a Path from File Open Dialog
I'm trying to use Word's File Open Dialog to have the user select an Excel
file (for linking purposes). I can return the Excel file's NAME, but I can't
seem to return the PATH.
My VBA code is:
With Dialogs(wdDialogFileOpen)
.Display
xlOpen = .Name
End With
What should I use to get the file's path? Also, is there an easy way to
have the File Open Dialog use "all files" as the default for the file type?
Thanks! Tag: numbering multiple copies of a document Tag: 68689
MailMergeAfterMerge event
Hi all,
I am developing a c# console application that takes data from a database and
doing a mail merge in word 2003 to create a contract. I added an event
handler for the MailMergeAfterMerge event:
_WordApp.MailMergeAfterMerge += new
Word.ApplicationEvents4_MailMergeAfterMergeEventHandler(wrdApp_MailMergeAfterMerge);
In the event handler I save the doc and am doing a Console.WriteLine to see
when it is firing so I can debug it:
result.SaveAs(ref _oContractPath, ref _oMissing, ref _oMissing, ref
_oMissing, ref _oMissing, ref _oMissing,
ref _oMissing, ref _oMissing, ref _oMissing, ref _oMissing, ref _oMissing,
ref _oMissing, ref _oMissing, ref _oMissing,
ref _oMissing, ref _oMissing);
Console.WriteLine(_oContractPath.ToString() + " Saved.");
The issue I am having is that this event does not fire all the time. It is
really inconsistent. Right now I am testing with 11 contracts. The first
time I run the application one of the contracts does not get saved. The next
time all will be ok. Then the next time I run it 4 contracts did not save.
I don't know why the inconsistency but it is really bugging me. Does anyone
have any ideas why it works only sometimes? Please Help!!
Thank you in advance.
Danny Tag: numbering multiple copies of a document Tag: 68688
Adding References
I have a question about Tools, References. I am working on custom templates
for a law firm who is using Windows XP and Word 2003. There is a global
template which has code modules which will be used in several other
templates, such as letter, memo, fax. Previously, the word startup
directory was the same for each user (C:\Program Files\Microsoft
Office\.....). Under Windows XP, each user has a different startup location
(C:\Documents and Settings\username\.....). How do I set a reference to a
global template that will be in a different location for each user who logs
onto a machine?
Thanks,
Anne P. Tag: numbering multiple copies of a document Tag: 68686
Problem driving Word from Access
Hello,
I have been learning to control Excel and Word from Access using VBA and
references to these two apps. I've had pretty good success, but I ran into
one, stubborn problem. My Access application uses the TransferSpreadsheet
method to populate some Excel worksheets. It then opens Word docs that have
tables which are linked to those Excel worksheets. After all that happpens,
I need to save the Word docs under a different name and break the links to
the Excel worksheets. I got the first part with this code:
ActiveDocument.SaveAs ("Copy of Document Name"). But I can't figure out how
to break the links in the Copy of document. Can anyone help?
Thanks, Jeff. Tag: numbering multiple copies of a document Tag: 68684
Select Case and Like Comparison
Hello,
The VBA help file for the Select Case statement says the test
expression should be a numeric or string expression. I am trying to
use a Select Case statement to perform a Like comparison on a test
string. Test1 below illustrates one of many failed attempts to use
"myString" as the test expression and a Like statement in the Case
statement.
Sub Test1()
Dim myString As String
myString = "ABCD"
Select Case myString
Case Like "A??D" 'Compile error here
MsgBox "Match"
Case Else
MsgBox "No match found"
End Select
End Sub
I did discover however, that I could use the boolean value "True" as a
test expression and the Select Case routing works as expected.
Sub Test2()
Dim myString As String
myString = "ABCD"
Select Case True
Case myString Like "A??D"
MsgBox "Match"
Case Else
MsgBox "No match found"
End Select
End Sub
Questions: Is there a way to use a string expression as the test
expression and Like in the Case statements? Would using the boolean
value True as the test expression cause instability or introduce errors
in procedure?
Thanks Tag: numbering multiple copies of a document Tag: 68680
Print Macro listing
Is ther e a way to print out a listing of the names of all the Macros a
person has created in Word VBA? Just all the names, not the VBA code. Thanks. Tag: numbering multiple copies of a document Tag: 68679
Adding the file path automatically to all 2003 word footers
I would like to be able to automatically be able to add the file path and
file name (In the Footer) to all of the 2003 Word Documents that I create
without having to add it manually each time I create a word document. Tag: numbering multiple copies of a document Tag: 68678
Error 4609- String Too Long
Anybody know anything about the string too long error message. I'm copying
form field text from one doc to another using the following line of code:
CurrentDoc.Range.FormFields("ScopeOfRegistration").Result =
OldReport.Range.FormFields("ScopeOfRegistration").Result
And I get the error if the text is too long. The formfields are set to
unlimited text, and I can manually copy from one to the other, so I know it's
not a table row size limitation, but I can't figure out why I am getting this
message. Any words of wisdom would be much appreciated. Tag: numbering multiple copies of a document Tag: 68677
Insert Database
Hello,
In MS Word I want to query (using MS Query) a database and insert the
results in a table. I have recorded the actions in a macro. This works fine
so far.
But when I want to run the macro again, there is still an action I have to
do by hand.
Below you'll find the code. When I run this code I still need to select a
datasource and click the 'Open' button. How can I alter the code so that
clicking 'Open' is not necessary?
Sub Macro()
Dim strT As String
strT = "Topology"
Selection.Range.InsertDatabase Format:=0, Style:=0, LinkToSource:=True, _
Connection:= _
"DSN=RAM
ODBC;ARServer=server;ARServerPort=1234;UID=xxxxx;PWD=xxxx;ARAuthentication=;ARUseUnderscores=1;ARNameReplace=1;SERVER=NotTheServer" _
, SQLStatement:= _
"SELECT strT.Status, strT.Relationship, strT.Parent_Name,
strT.Parent_ID, strT.Child_Name, strT.Child_ID FROM strT strT WHERE " _
& _
"(strT.Parent_Name Like 'Test%') ORDER BY strT.Parent_Name" _
, PasswordDocument:="", PasswordTemplate:="",
WritePasswordDocument:="", _
WritePasswordTemplate:="", DataSource:="", From:=-1, To:=-1, _
IncludeFields:=True
End Sub
Thanks! Tag: numbering multiple copies of a document Tag: 68662
VBA Errors in Excel
Hi all, I have code that runs, and has errors ignored - using an on
error resume next statement. However, after a while, I need it to again
check for errors - that is stop the resume next. For example
On error resume next
...
...code with errors ignored
...
... 'need it to stop it ignoring errors at this point
...code where errors are not ignored
...
...
...'need it not to ignore errors here
this is probably a really simple problem, but I am new to vba.
Is there a way to break out of the error ignoring. Also, I cant run the
second part of the code first (before the ignore errors statement,
since it relies on that code running in the first place.
Thanks
Cedop Tag: numbering multiple copies of a document Tag: 68656
export a word2003 document list to excel2003 in discreet rows
I have a long list of links (66 pgs) in word 2003 that I want to sort easily
in many ways. how do I export to excel2003 into discreet rows for each link
which are on separate lines in the document. I tried all (.doc,.html,.xml).
Can I do it directly? Or do I have to resort to a VBA solution? Tag: numbering multiple copies of a document Tag: 68655
Resizing footnote pane with keyboard
Is ther eany way to resize the footnote pane with the keyboard? I would like
to make a macro to do it, but I don't know how to do it with the keyboard.
Thanks for any help. Tag: numbering multiple copies of a document Tag: 68653
Pasting an Excel table as a metafile in word via VBA
I have been trying to paste a specified range of cells in Excel into Word as
an enhanced metafile, using the code below (modified from a listing in Guy
Hart-Davis' excellent book on Word VBA). If I paste as text or RTF, there is
no problem, but when I try and paste as a metafile, I get the following error:
"Run-time error 5342: The specified data type is not available"
Any thoughts?
Thanks in advance
Simon
Sub Getting_Value_from_Excel()
Dim MySpreadsheet As Excel.Workbook
Dim strSalesTotal As String
Set MySpreadsheet = _
GetObject("c:\Sales Forecast.xls")
With MySpreadsheet.Application
.Visible = True
.Parent.Windows("Sales Forecast.xls").Visible = True
.Range("salestotal").Copy
.Workbooks("Sales Forecast.xls").Saved = True
.Quit
End With
Set MySpreadsheet = Nothing
Selection.PasteSpecial DataType:=wdPasteEnhancedMetafile
End Sub Tag: numbering multiple copies of a document Tag: 68651
Relative file path
I have an excel spreadsheet that contains calculations and a Word document
that has a number of link references to it within the text of a report.
Everything works fine and the excel sheets show up in the report as another
page with headers and footers and correct page numbers etc.
The problem occurs when I want to copy the two files to another project
subdirectory and then try to make chnges to both. All the links in the Word
document still refer back to the original excel spreadsheet back in the
first project subdirectory. I have to manually repoint all the links to the
new project subdirectory. Is there any way to cause the link to be to a
relative address, that is make it look for the excel file in the same
directory that contains the Word file? I can only figure out how to tell it
absolute addresses of links. Is there a simple way to change the references
(about 75) using vba?
I will also post this in the Word and Excel group.. Tag: numbering multiple copies of a document Tag: 68650
Date Conversion
Is there any way to preserve formatting with date conversion.
Sub Test()
Dim myString As String
Dim myDate As Date
myString = "February 12, 1969"
myDate = CDate(myString)
End Sub
myDate in the above is returned as 2/12/69. I am trying to figure out how
to preserve the date format during conversion. If myString is 2/12/69 then
myDate should be 2/12/69. If myString is 12 February 1969 then myDate
should be 12 February 1969.
Can this be done without some elaborate analysis of mySting and setting up a
Format(myDate, ......) statement?
Thanks.
--
Greg Maxey/Word MVP
See:
http://gregmaxey.mvps.org/word_tips.htm
For some helpful tips using Word. Tag: numbering multiple copies of a document Tag: 68648
WinWrap Basic? Visual Basic for Applications?
I am playing with Dragon NaturallySpeaking (Naturally Speaking)
Advanced Scripting capabilities.
According to the documentation, it is "Visual Basic for Applications
compatible". It also mentions WinWrap Basic, once.
I own Microsoft's Visual C++ NET 2003. Can I buy and use Visual Basic
for a Visual Basic for Applications programming environment?
Is Visual Basic for Applications a language by itself, or is the
syntax, keywords, and stuff dependent on the application?
Thank you.
This is the language reference, a duplicate of the online help.
www.asent.com/downloads/at2k2vb50.pdf Tag: numbering multiple copies of a document Tag: 68637
Disable Copy Paste in a saved document
Is it possible to disable the copy paste function for other users in saved
Word 2003 documents? Tag: numbering multiple copies of a document Tag: 68632
How do I get a macro to stop at the bottom of the document using c
Many times I record a macro to do repeated actions. As an example, I record
the macro to do one set of actions and store the macro in Alt-5. To run the
macro down the page I keep hitting Alt-5. However, when I reach the end of
the document, the macro goes back to the top of the document and starts over
again. This is bad because of the text in the document. How do I stop a macro
from executing if the macro has reached the end of the document. Here is an
example of a multiple step macro I want to stop when the bottom of the page
is reached.
Selection.Find.ClearFormatting
With Selection.Find
.Text = "<p><a name="""
.Replacement.Text = "[GoTo]</a><br>^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Cut
Selection.HomeKey Unit:=wdStory
ActiveWindow.ActivePane.SmallScroll Down:=4
Selection.Find.ClearFormatting
With Selection.Find
.Text = """>[GoTo]</a><br>"
.Replacement.Text = "[GoTo]</a><br>^p"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.TypeText Text:="}}}"
Selection.PasteAndFormat (wdPasteDefault)
Selection.Find.ClearFormatting
With Selection.Find
.Text = "</a><a href="
.Replacement.Text = "[GoTo]</a><br>^p"
.Forward = False
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.MoveLeft Unit:=wdCharacter, Count:=1
Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
ActiveWindow.ActivePane.SmallScroll Down:=-1
Selection.Find.ClearFormatting
With Selection.Find
.Text = """>"
.Replacement.Text = "[GoTo]</a><br>^p"
.Forward = False
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
ActiveWindow.ActivePane.SmallScroll Down:=-2
Selection.Find.ClearFormatting
With Selection.Find
.Text = "<p><a name="""
.Replacement.Text = "[GoTo]</a><br>^p"
.Forward = False
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.Find.ClearFormatting
With Selection.Find
.Text = "<a href=""#"
.Replacement.Text = "[GoTo]</a><br>^p"
.Forward = False
.Wrap = wdFindAsk
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.MoveLeft Unit:=wdWord, Count:=1, Extend:=wdExtend
Selection.MoveUp Unit:=wdParagraph, Count:=1, Extend:=wdExtend
Selection.Delete Unit:=wdCharacter, Count:=1
Selection.MoveDown Unit:=wdParagraph, Count:=1, Extend:=wdExtend
Selection.MoveRight Unit:=wdCharacter, Count:=1
End Sub Tag: numbering multiple copies of a document Tag: 68627
How can I insert a name in Chinese in the header of a RTF doc?
I am creating a Chinese document using Word, and saving it as an RTF
template. Then from a program where a person enters their name in Chinese, I
am inserting the name as Unicaode 8 in the RTF. When the new document is
opened in Word, the Chinese text is fine, but the name in the header appears
as question marks ("?????"). I would appreciate any hwlp yuou can give - I
am stuck. Thanks.
Paul Tag: numbering multiple copies of a document Tag: 68626
insert a backspace character in a wrapped around line in MS Word 2
I would like to insert a backspace at the start of a wrap around line to form
one line out of 2 in a database in Word which I will later import into Excel Tag: numbering multiple copies of a document Tag: 68624
FileSystemObject.copyfile
I have been trying to copy a file using the following code but it gives the
error
Error '438'
Object doesn't support this property or method
Code below
Dim UpdateTimeElement(0 To 3) As String
Dim Network_path, local_path
Public Sub main() '(UpdateTimeElement)
Call GetNetworkPath.main(Network_path, local_path)
Dim FileNameArray As Variant
Dim ProdNumArray As Variant
Dim outMessage As String
Dim oOutlook As New outlook.Application
Dim oMessage As outlook.MailItem
Dim FileNumber As Integer
Dim fs As Object
Set fs = CreateObject("Scripting.FileSystemObject")
FileNameArray = Array("0021", "0003", "0017", "0045")
Set oMessage = oOutlook.CreateItem(olMailItem)
With oMessage
.To = some email address
.Subject = Format(Now(), "hhmm ddd, dd-mmm-yyyy")
For i = 0 To 3
Set fs = Application.FileSearch
With fs
.LookIn = "z:\" + FileNameArray(i) + "\"
.filename = "z:\" + FileNameArray(i) + "\" +
FileNameArray(i) + ".1"
If .Execute(SortBy:=msoSortByFileName,
SortOrder:=msoSortOrderAscending) > 0 Then
filename = "z:\" + FileNameArray(i) + "\" +
FileNameArray(i) + ".1"
fs.CopyFile filename, "c:\temp"
Else
filename = "z:\" + FileNameArray(i) + "\" +
FileNameArray(i) + ".2"
End If
End With
.Attachments.Add filename, olByValue, 1, FileNameArray(i) +
".tif"
Next i
.body = outMessage
.Display
End With
End Sub
I dont know if i'm just not understning how to use this FleSystemObject
initially I just had
FileSystemObject.CopyFile "c:\mydocuments\letters\*.doc", "c:\tempfolder\"
in the code but it didn't work either. should I declare someting for this
to work.
I think i really need some help
Phil Tag: numbering multiple copies of a document Tag: 68621
delete page
I have a long document divided into separate pages using page breaks
I want to delete every page which does not contain a particular keyword
How do I
1. Search just each page one by one
2. Delete any complete page if a keyword is not found
Thanks
--
Patrick Tag: numbering multiple copies of a document Tag: 68618
HTML document in Word ignores changes
I recently took over creating a newsletter for the store I work for. This is
sent out to a large customer base so rather than have a large email, we link
the images in the email to our server and I upload the iamges to the
desginated directory on the server.
I create the document in Word and then save it as a html document. Then I
open the html document, view the source and proceed to change the image
paths. However, when I tell it to save I get a message that states "The
expected file path is different, do I want to update anyway?"
If I click yes, it changes the paths to point back to my local computer. If
I tell it no, it removes the path completely and if I cancel it of course
doesn't save.
Help!
Amy Tag: numbering multiple copies of a document Tag: 68609
Automating PowerPoint
It is my understanding that PowerPoint is a single instance app, i.e., there
can be only a single instance of Powerpoint running.
I've been using code such as the following:
'Get existing instance of PowerPoint; otherwise create a new one
' Powerpoint is a single instance application
On Error Resume Next
Set appPPT = GetObject(, "PowerPoint.Application")
If Err.Number = 0 Then
blnNewPPT = False
Else
Set appPPT = New PowerPoint.Application
blnNewPPT = True
End If
On Error Goto 0
and then
With appPPT
If blnNewPPT Then
.Quit
Else
.ActivePresentation.Close
End If
End With
However, I suspect that code may not be good enough.
If I created the NEW PowerPoint instance in code, how can I determine
whether the instance is not being by somebody outside of my code? Somebody
could have started Powerpoint session whilst my code is running, AFTER I
created the NEW Powerpoint.
Is the only choice to leave PowerPoint running? Tag: numbering multiple copies of a document Tag: 68608
Deleting a line in WORD when a certain string is found
How can I delete a line(complete paragraph) in WORD when I find a certain
string? Lets say the string is somehere within the paragraph?
Thank You Charles BinzHow Tag: numbering multiple copies of a document Tag: 68607
complex macro
Hello,
I would like to create a macro that will open 4 forms with 1 button click.
any ideas?
thanks,
mojr Tag: numbering multiple copies of a document Tag: 68584
IncludeText field font size
I have a dynamic document which pulls a lot of its text from IncludeText
fields from text files. No matter what I do the text always comes out as 10
pt font, I need it to be 8pt. I always have to reformat after all the fields
are populated. Is there a switch so that they come down 8pt? I have all the
fields set to /* MERGEFORMAT. But when the files recreated, and the fields
are updated, they are 10pt again. I guess I could write a macro to reformat
them but that seems redundant Tag: numbering multiple copies of a document Tag: 68583
Trouble rearranging paragraphs
I'm trying to set up a macro to sort groups of paragraphs that repeat as
shown below:
DATE: XXXXXXX
PHONE: XXXXXXX
CALL CENTER: XXXXXXX
ACCOUNT: XXXXXXX
ORG NAME: XXXXXXX
REASON TO CALL FROM SAMPLE: XXXXXXX
REASON TO CALL FROM CUSTOMER: XXXXXXX
CONTACT NUMBER: XXXXXXX
TIME TO CALL: XXXXXXX
COMPANY PHONE: XXXXXXX
NAME: Jane Doe
ISSUE IN DETAIL: XXXXXXX
SPECIAL: XXXXXXX
DATE: XXXXXXX
PHONE: XXXXXXX
CALL CENTER: XXXXXXX
ACCOUNT: XXXXXXX
ORG NAME: XXXXXXX
REASON TO CALL FROM SAMPLE: XXXXXXX
REASON TO CALL FROM CUSTOMER: XXXXXXX
CONTACT NUMBER: XXXXXXX
TIME TO CALL: XXXXXXX
COMPANY PHONE: XXXXXXX
NAME: Joe Blow
ISSUE IN DETAIL: XXXXXXX
SPECIAL: XXXXXXX
I'm trying to use the following formula:
Selection.Find.Execute Replace:=wdReplaceAll
With Selection.Find
.Text = "(ORG NAME:*^13REASON TO CALL FROM SAMPLE:*^13REASON TO CALL
FROM CUSTOMER:*^13CONTACT NUMBER:^13TIME TO CALL:*^13COMPANY
PHONE:*^13)(NAME:*^13)"
.Replacement.Text = "\2\1"
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = True
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.Find.Execute Replace:=wdReplaceAll
All I'm trying to do is move "NAME:" up before "ORG NAME:". However, when I
use this formula, it moves both the first -and- the last instance of "NAME:"
in the document above the first instance of "ORG NAME:". Is there any way to
avoid this?
Thanks! Tag: numbering multiple copies of a document Tag: 68582
How do I report a bug in Office 2003 on Tables properties?
In MS Word you can set a table properties you can set "Repeat as Header row
on the top of each Page"... However, when trying to do it in VBA behind
Office in a Macro as listed below it does not work.
Sub Macro1()
Selection.Tables(1).Rows.HeadingFormat = True
End Sub
Please advise the correct VBA Syntax..
Additional documentation available upon request Tag: numbering multiple copies of a document Tag: 68580
sequentially numbering a word document as they are printed
How do I create a word template to have a macro that will sequentially number
the forms by a set number requested to print. For example, when I open the
document I would request forms to print 100-200 and than each form printed
would autonumber the forms with 100, 101, 102, etc. Tag: numbering multiple copies of a document Tag: 68579
Push special chars from an external application to Word Doc
Hi,
I use Word from an external application for filling a template automated:
each tag will be replaced with some real content by a Find/Replace command
inside a loop.
I have some trouble with special (national) characters.
1. If I push a text which has a "Å?" inside, it will appear in the text as is
(of course, as it is not a character)
2. If I push those characters as characters (as #336), they will be changed
inside Word, the punctuation will be lost.
Is there any technique how special characters can be pushed into Word from
an external application?
Thanks, Peter Tag: numbering multiple copies of a document Tag: 68575
Reading layout view
Is the View of a document something that is stored in the local profile or
within the document? I.e. is it something that I can set programmatically
so that when a customized document is created and subsequently opened by the
user or an external recipient, it always shows in a certain view?
--
TFWBWY...A Tag: numbering multiple copies of a document Tag: 68573
Prevent opening Word Template more than once
I have a very specific requirment. I have to ensure that a specific
Word template is never opened more than once. I'm new to VBA so this
maybe the easiest thing in the world but so far it has driven me to
multiple injured keyboards and dead mousies!
Any help would be MUCH appreciated.
Thanks,
Dean Tag: numbering multiple copies of a document Tag: 68565
I want to be able to put a cell in a word document with a number - say 1 and
then print say 50 copies so that each copy is uniquly numbered in sequence 1
to 50
Re: numbering multiple copies of a document by Jay
Jay
Tue May 24 09:28:47 CDT 2005
grahamjwebster wrote:
> I want to be able to put a cell in a word document with a number -
> say 1 and then print say 50 copies so that each copy is uniquly
> numbered in sequence 1 to 50