Copy from Excel to Word
I have a program (see bellow) that I canâ??t make it work.
Basically, the program copy excel cells, open specific word file, however,
it not paste it the cells into the word document.
Could you please help me with this matter?
Thanks in advance.
Maperalia.
Option Explicit
Public Sub CopyExcelToWord()
CopyCellsFromExcel
OpenAWordFile
PasteIntoWord
End Sub
Sub CopyCellsFromExcel()
'***********COPY CELLS IN EXCEL****************************
Range("A1:I66").Select
Selection.Copy
Application.CutCopyMode = False
Range("A1:I1").Select
'**********************************************************
End Sub
Sub OpenAWordFile()
Dim wordApp As Object
Dim fNameAndPath As String
'***********OPEN THE MICROSOFT WORD FILE****************************
fNameAndPath = "C:\Test\Sample.doc"
Set wordApp = CreateObject("Word.Application")
wordApp.Documents.Open (fNameAndPath)
wordApp.Visible = True
'**********************************************************
End Sub
Sub PasteIntoWord()
Dim wdPasteOLEObject As String
Dim wdInLine As String
'***********PASTE THE EXCEL CELLS INTO WORD
FILE****************************
Selection.PasteSpecial Link:=True, DataType:=wdPasteOLEObject,
Placement:=wdInLine, DisplayAsIcon:=False
'**********************************************************
End Sub Tag: can I generate bookmarks in Word using VBA? Tag: 75387
Fill imagebox in userform with a specified picture from a document
Hello,
I have the following problem. I have inserted a total of 6 pictures into
specified cells of a table in word. To achieve this, I use the code below and
this is running OK :
'row = 6
'column = 2
Set rgDest = Selection.Tables(1).Cell(row, column).Range
Set shpShape = ActiveDocument.Shapes.AddPicture _
(FileName:=StrFile, LinkToFile:=True, _
SaveWithDocument:=False, Anchor:=rgDest)
With shpShape
.Name = "photo1"
.LockAnchor = True
.LockAspectRatio = msoTrue
.Height = CentimetersToPoints(6.65)
.Left = CentimetersToPoints(-0.2)
End With
The problem now is : I want to select each of these pictures and place it in
one of the 6 imageboxes of a userform. This is possible by the code :
set userform1.photo1.picture = loadpicture(strfile), but for some reasons I
want to fill the imageboxes based on the name (for instance "photo1" in my
example) or another identifier of the shape in my document. I only need to be
sure to pick the photo in my document and place it in the correct imagebox of
my userform.
Can anybody help me with this?
Thanks,
Vicenflor Tag: can I generate bookmarks in Word using VBA? Tag: 75384
Compressing graphics
Hi,
Word has a command that is shown when a graphic is selected. Select
Layout and the last command: Compress?? graphic. A dialog is displayed
in which I can select 'Compress all graphics' and 'Screen or printer
resolution'.
How can I perform this file size reduction macrowise? A recorded macro
looks like this:
Selection.InlineShapes(1).Fill.Visible = msoFalse
Selection.InlineShapes(1).Fill.Solid
Selection.InlineShapes(1).Fill.Transparency = 0#
Selection.InlineShapes(1).Line.Weight = 0.75
Selection.InlineShapes(1).Line.Transparency = 0#
Selection.InlineShapes(1).Line.Visible = msoFalse
Selection.InlineShapes(1).LockAspectRatio = msoTrue
Selection.InlineShapes(1).Height = 682#
Selection.InlineShapes(1).Width = 453.85
Selection.InlineShapes(1).PictureFormat.Brightness = 0.5
Selection.InlineShapes(1).PictureFormat.Contrast = 0.5
Selection.InlineShapes(1).PictureFormat.ColorType =
msoPictureAutomatic
Selection.InlineShapes(1).PictureFormat.CropLeft = 0#
Selection.InlineShapes(1).PictureFormat.CropRight = 0#
Selection.InlineShapes(1).PictureFormat.CropTop = 0#
Selection.InlineShapes(1).PictureFormat.CropBottom = 0#
And I guess this is not what I need.
Thanks! Tag: can I generate bookmarks in Word using VBA? Tag: 75376
Remove empty lines from address retrieved from Outlook
This should be easy, but I can't figure it out. I am using Outlook 2003 and
Word 2003. I have tried everything I can think of (and everything I have
found through a Google search and I have also been to Slipstick.com) to set
the AddressLayout so that it skips blank fields, but to no avail. If the
Outlook contact has no company name or title, I get two empty lines in my
address. If there is either a company or a title but not the other, I get
one empty line in my address. I am at my wit's end on how to do this
through Word and Outlook. I thought of searching the string for double or
triple carriage returns and removing the extras, however, the user can click
the To button repeatedly to add another address to the text box (which means
that each time a new address is selected, there will be two carriage returns
after the previous address in the list. This is how the AddressLayout is
stored in AutoText in my letter template:
{{<PR_DISPLAY_NAME>}}
{{<PR_TITLE>}}
{{<PR_COMPANY_NAME>}}
{{<PR_POSTAL_ADDRESS>}}
I am using the following code to allow the user to retrieve an address and
insert it into the text box. In addition, there are several functions that
are called which enable me to pull the First field (which is the
PR_DISPLAY_NAME) add to another string which is used in the second page
header in the letter.
Dim strAddress As String
Dim strToHeader As String
Dim astrToHeader() As String
If txtTo = "" Then
strAddress = Application.GetAddress(, , True, 1, , _
, True, True)
txtTo.Text = strAddress
StringToArray strAddress, astrToHeader(), vbCr
strToHeader = astrToHeader(0)
If ActiveDocument.Bookmarks.Exists("To") Then
Application.ScreenUpdating = False
Set BmRange = ActiveDocument.Bookmarks("To").Range
BmRange.Text = strToHeader
ActiveDocument.Bookmarks.Add Name:="To", Range:=BmRange
End If
Else
strAddress = Application.GetAddress(, , _
True, 1, , , True, True)
txtTo.Text = txtTo.Text & vbCr & vbCr & strAddress
StringToArray strAddress, astrToHeader(), vbCr
If ActiveDocument.Bookmarks.Exists("To") Then
Application.ScreenUpdating = False
Set BmRange = ActiveDocument.Bookmarks("To").Range
End If
strToHeader = BmRange & Chr(11) & astrToHeader(0)
End If
Public BmRange As Range
Public Function CountDelimitedWords( _
pstrIn As String, _
pstrChrDelimit As String) _
As Long
Dim lngWordCount As Long
Dim lngPos As Long
On Error GoTo PROC_ERR
lngWordCount = 1
' Find the first occurence
lngPos = InStr(pstrIn, pstrChrDelimit)
Do While lngPos > 0
' Increment the hit counter
lngWordCount = lngWordCount + 1
' Loop until no more occurrences
lngPos = InStr(lngPos + 1, pstrIn, pstrChrDelimit)
Loop
' Return the value
CountDelimitedWords = lngWordCount
PROC_EXIT:
Exit Function
PROC_ERR:
MsgBox "Error: " & Err.Number & ". " & Err.Description, , _
"CountDelimitedWords"
Resume PROC_EXIT
End Function
Public Function GetDelimitedWord( _
pstrIn As String, _
ByVal plngIndex As Long, _
pstrChrDelimit As String) _
As String
Dim lngCounter As Long
Dim lngStartPos As Long
Dim lngEndPos As Long
Dim strDelimit As String
On Error GoTo PROC_ERR
' Set initial values
lngCounter = 1
lngStartPos = 1
strDelimit = Left$(pstrChrDelimit, 1)
' Count to the specified index
For lngCounter = 2 To plngIndex
' Get the new starting position
lngStartPos = InStr(lngStartPos, pstrIn, strDelimit) + 1
Next lngCounter
' Determine the ending position
lngEndPos = InStr(lngStartPos, pstrIn, strDelimit) - 1
' Ending position can't be less than 1
If lngEndPos <= 0 Then
lngEndPos = Len(pstrIn)
End If
' Pull the word out and return it
GetDelimitedWord = Mid$(pstrIn, lngStartPos, lngEndPos - lngStartPos + 1)
PROC_EXIT:
Exit Function
PROC_ERR:
MsgBox "Error: " & Err.Number & ". " & Err.Description, , _
"GetDelimitedWord"
Resume PROC_EXIT
End Function
Public Function ReplaceChars( _
pstrIn As String, _
pstrFind As String, _
pstrReplace As String) _
As String
Dim lngCounter As Long
Dim strTmp As String
Dim strChrTmp As String * 1
On Error GoTo PROC_ERR
' Loop through the string
For lngCounter = 1 To Len(pstrIn)
' Get the current character
strChrTmp = Mid$(pstrIn, lngCounter)
If strChrTmp <> pstrFind Then
' Its not a match, do nothing
strTmp = strTmp & strChrTmp
Else
' Its a match, so use the replacement character
strTmp = strTmp & pstrReplace
End If
Next lngCounter
' Return the value
ReplaceChars = strTmp
PROC_EXIT:
Exit Function
PROC_ERR:
MsgBox "Error: " & Err.Number & ". " & Err.Description, , _
"ReplaceChars"
Resume PROC_EXIT
End Function
Public Function StringToArray( _
pstrIn As String, _
pastrIn() As String, _
pstrChrDelimit As String) _
As Long
Dim lngCounter As Long
Dim lngWordCount As Long
On Error GoTo PROC_ERR
' Count the words
lngWordCount = CountDelimitedWords(pstrIn, pstrChrDelimit)
' Resize the array accordingly
ReDim pastrIn(0 To lngWordCount - 1)
' Walk through the words
For lngCounter = 0 To lngWordCount - 1
' Add the words to the array
pastrIn(lngCounter) = GetDelimitedWord(pstrIn, lngCounter + 1,
pstrChrDelimit)
Next lngCounter
' Return the count
StringToArray = lngWordCount
PROC_EXIT:
Exit Function
PROC_ERR:
MsgBox "Error: " & Err.Number & ". " & Err.Description, , _
"StringToArray"
Resume PROC_EXIT
End Function
Any ideas on how I can get the AddressLayout to remove those extra lines, or
how I can modify the code to have them removed?
Thanks,
Anne P. Tag: can I generate bookmarks in Word using VBA? Tag: 75375
Highlighting as a Reading Aid in Word
When I need to read long word documents closely, it would be a great help if
I could automatically have the line I'm reading highlighted, with the ability
to unhighlight that line and move the highlighting down to the next line as I
read by moving my cursor with my mouse, or by using the down arrow key, etc.
Does anyone know of a way of doing this with word?
--
Bill Tag: can I generate bookmarks in Word using VBA? Tag: 75372
Faster Page Numbering?
I am doing extensive searches in long documents and creating a list of the
finds along with the page number each is on.
The problem is, .Information(---PageNumber) is very slow. Subsequent finds
take even longer since it is deeper in the document and the Word has to
repaginate up to the new point. Using the page numbers in the footer is not
always accurate, off by as much as four pages.
How can this process be sped up or the page numbers made more accurate? Tag: can I generate bookmarks in Word using VBA? Tag: 75368
removing text from a string
how would i go about removing anything from a string that isn't a number,
including spaces, punctuation, etc etc?
thanks in advance Tag: can I generate bookmarks in Word using VBA? Tag: 75366
Overtype rather than inserting
I am trying to make a fixed length file record to import into an investment
system.
The basic data is stored in an excel database and the problem I have is
where the field I am
putting into the record is not the same length as the field in the fixed
length record.
Example
The field pfolio has a maximum length of 6 characters
if the field pfolio is ABC in the spreadsheet then it needs to be ABCbbb in
the fixed length
record
My first thought was to create a record of the appropriate size populated
with blanks then
to import the fields from the spreadsheet.
If the document is in overtype mode and I am manually type in ABC then is
fine as the 3 blank
charaters are still in place but I do not know how to do this using VBA
The ABC is always inserted at the front of the blank charaters e.g
Record = bbbbbbbbbbbbbbb if the pfolio field offset is at 5 and I want to
import ABC then I want
to see "bbbABCbbbbbbbbb" instead I end up with "bbbABCbbbbbbbbbbbb"
The command Options.Overtype = True does not seem to help.
If you have any suggestions I would be most grateful.
Regards
Gavin
P.S. I am using Word 97 Tag: can I generate bookmarks in Word using VBA? Tag: 75345
frequency of occurrence of words in a document
Hello --
I want to create a word frequency distribution for a document. The results
will be:
word count of occurrences in doc
------ ----------------------------------
Does anyone know if a macro has been published somewhere?
or, can someone suggest a way to do it?
Thanks for any help.
Larry Mehl Tag: can I generate bookmarks in Word using VBA? Tag: 75344
Bookmark Listing
Greetings,
What im looking for is a bit of code so that once a selection is made (user
selects text) a macro can be run that displays all the bookmarks in the
current document. The user selects the appropirate bookmark for the
selected text and then that selection gets applied to the selected text as a
hyperlink. ie #bookmark.
Sub Macro1()
ActiveDocument.Hyperlinks.Add Anchor:=Selection.Range, Address:="",
SubAddress:=" ",
End Sub Tag: can I generate bookmarks in Word using VBA? Tag: 75338
Printing Envelopes
Each time that I save an envelope address to a document Word adds a blank
page to the document. When you want to print the envelope you have to put
two envelopes in the printer because the first one comes out blank and Word
prints the second one. Any Help would be appreciated.
Mike Tag: can I generate bookmarks in Word using VBA? Tag: 75336
Change Hyphenated Words To Uppercase
As a software developer, I get to contend with Technical Specifications
that often contain many hyphenated terms that are not words. I have
"Ignore words in UPPERCASE" checked on the Spelling and Grammar dialog
box, but not all the jargon words are in all uppercase. I created
these Macros to prompt me and optionally convert hyphenated words to
uppercase. I am not a Word VBA guru, so my solution may be a little
ham-fisted. As such, I invite suggestions to improve this.
Ken Grubb
Bellevue, WA, USA
Public Sub UppercaseHyphenatedWords()
Call GenericUppercase("<[a-zA-Z0-9]{1,}-[a-zA-Z0-9-]{1,}>")
End Sub
Public Sub UppercaseUnderscoredWords()
Call GenericUppercase("<[a-zA-Z0-9]{1,}_[a-zA-Z0-9_]{1,}>")
End Sub
Private Sub GenericUppercase(sInput As String)
Dim bContinue As Boolean
Dim bSkip As Boolean
Dim Response
Dim sArray() As String
Dim iArray As Integer
Dim i As Integer
iArray = 0
bContinue = True
Selection.HomeKey Unit:=wdStory
Do While bContinue
bSkip = False
With Selection.Find
.ClearFormatting
.Text = sInput
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindStop
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchAllWordForms = False
.MatchSoundsLike = False
.MatchWildcards = True
End With
If Selection.Find.Execute Then
If Selection.Text = UCase$(Selection.Text) Then
' Skip hyphenated words already in UPPERCASE
Else
If iArray > 0 Then
For i = 1 To iArray
If sArray(i) = LCase$(Selection.Text) Then
' Skip words previously skipped
bSkip = True
End If
Next i
End If
If Not bSkip Then
Response = MsgBox("Change all occurrences of " &
LCase$(Selection.Text) & " to " & UCase$(Selection.Text) & "?",
vbYesNoCancel)
Select Case Response
Case vbYes
Call GlobalReplace(LCase$(Selection.Text),
UCase$(Selection.Text))
Case vbNo
' User skipped this word
iArray = iArray + 1
ReDim Preserve sArray(iArray)
sArray(iArray) = LCase$(Selection.Text)
Case vbCancel
MsgBox "Done!"
bContinue = False
End Select
End If
End If
Else
MsgBox "Done!"
bContinue = False
End If
Loop
End Sub
Private Sub GlobalReplace(sFromText As String, sToText As String)
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = sFromText
.Replacement.Text = sToText
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute Replace:=wdReplaceAll
End With
End Sub Tag: can I generate bookmarks in Word using VBA? Tag: 75334
Macro to modify font in header
My client is a medical office that uses a master document for each patient to
keep xray and MRI reports. They begin each new report with a macro that
inserts a section break to a new page and draws in a blank report with a
"letterhead" up in the document header. The Xray reports and the MRI reports
require different letter heads because they are generated by different
departments, so I added a user form so the operator can select which blank
document to insert for the next report. However, for one of inserted
documents there is a problem that the Tahoma font in the header changes to
Times Roman. I don't know how to fix that but thought I could add code to
find the text and change the font back to Tahoma. This works except that it
leaves the Times Roman formatted text up there alongside the new Tahoma
formatted text. Example "This is my textThis is my text"
My questions are: 1) Is there a better way to approach my problem; 2) what's
missing from my code (as shown):
'
' test12 Macro
' Macro recorded 10/20/2005 and modified by RichardB
'
If ActiveWindow.View.SplitSpecial <> wdPaneNone Then
ActiveWindow.Panes(2).Close
End If
If ActiveWindow.ActivePane.View.Type = wdNormalView Or ActiveWindow. _
ActivePane.View.Type = wdOutlineView Then
ActiveWindow.ActivePane.View.Type = wdPrintView
End If
ActiveWindow.ActivePane.View.SeekView = wdSeekCurrentPageHeader
With Selection
.Text = "This is the Header"
.Font.Name = "Tahoma"
.Font.Size = 14
.Font.Bold = wdToggle
End With
ActiveDocument.Save
ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub
Thank you... Tag: can I generate bookmarks in Word using VBA? Tag: 75328
How to subclass the Signature dialog box to select programmatical
Hi I would like to subclass the word Dialog box which displays the
certificates from "mystore" to choose from to apply a digital signature on
any word document.
For recall the dialog box pops up with following code:
dim sig as signature
set sig = activedocument.signatures.add
I would like to select the appropriate certificate in the listbox
programmatically with filters on the signer.name the certificate.issuer and
the certificate expiration date.
Then I would like to click on the correct selection programmatically.
Who is good enough with subclassing and send messages ? to help me
achieving this code snippet ?
Any help very much appreciated
Regards Tag: can I generate bookmarks in Word using VBA? Tag: 75323
Macro for paste special
I've recorded a marco to do a 'Edit/Paste Special.../Unformatted Text" and
assigned it to a keyboard shortcut.
However it simply does a normal paste instead.
This is the recorded VBA:
Sub pastespecial()
'
' pastespecial Macro
' Macro recorded 20/10/2005
'
Selection.PasteAndFormat (wdPasteDefault)
End Sub
Can anyone help please? Tag: can I generate bookmarks in Word using VBA? Tag: 75320
Silly "enter-value" macro question! (Does anybody know?)
Hi
Does anyone know how to make this macro? You'll be a 'life-saver' for me if
you do!
(NOTE: I do not have any experience using the macro "editor" -- I've only
used the 'record macro' function so far. So if you want me to enter some
code, would you please just write it in a way I can "cut-n-paste" into the
editor?)
STEPS:
(a) Click on toolbar macro icon
(b) This should bring up an "enter value" dialog box on the screen
(c) I will then type-in: 1 (i.e. I just type the number one)
(d) I click "ok" (or whatever the dialog box wants)
(e) Then Word opens this specific document on my hard drive: c:\MS
Word Docs\1.doc
(I have about 30 documents . . . so, depending on what # is entered in the
dialog box, the corresponding document will open . . . i.e. 1.doc, 2.doc,
3.doc . . .)
Thanks so much! I know this is probably pretty simple for you macro pros,
but I don't know how to do it.
Gratefully . . . Tag: can I generate bookmarks in Word using VBA? Tag: 75315
How to copy format of last paragraph instead of first
I am copying a selection of text that includes multiple formats, the last n
being a numbered list. When I copy and paste it into a table, I need to
delete the last paragraph, but when I do that I lose the number on the last
paragraph. If I use CopyFormat and PasteFormat it copies the format of the
first paragraph instead of the last paragraph, so if it is a list then it
saves my last number, but if it is not a list then it loses the last number.
Is there a way to copy the format of the last paragraph in the selection?
--
Nancy Tag: can I generate bookmarks in Word using VBA? Tag: 75313
Record a macro that ends with a dialogue box open?
Using Word 2002, I want to set up a macro that involves several repetitive
keystrokes and clicks and includes opening a dialogue box, and should end
with the cursor in a field within that box.
From that point, the user would enter whatever was appropriate.
Trouble is, I cannot get at the Stop button on the macro toolbar whilst the
dialogue box is open, so I am not able to stop recording and save the macro.
How can I do this??!! Tag: can I generate bookmarks in Word using VBA? Tag: 75305
Where has the assistant gone?
Hi everybody,
from the help:
Sub test66666()
If MsgBox("Enable Office Assistant?", _
vbYesNo, "Assistant is Off") = vbYes Then
Assistant.On = True
Assistant.Visible = True
Assistant.Animation = msoAnimationGetAttentionMajor
End If
End Sub
results in an runtime-error.
Method 'On' of object 'Assistant' failed.
--
Greetings from Bavaria, Germany
Helmut Weber, MVP WordVBA
Win XP, Office 2003
"red.sys" & Chr$(64) & "t-online.de" Tag: can I generate bookmarks in Word using VBA? Tag: 75299
Embed autoexec routine in a Project(document) derived from a templ
Hi all,
I would like to know if it is possible that a template.dot can write while
creating a document in the Thisdocument object of the project(Document)
some routines. If yes How to proceed ?
such as :
Sub document_open
"look if a particular DLL is available"
end sub
Or in a custom module added programmatically to the document...
(Is the VBIDE able to do so ?).. as Create object instruction ?
or the like ...
any code snippet is very welcome
Regards Tag: can I generate bookmarks in Word using VBA? Tag: 75297
How to change the delimiter?
Hi,
I am using Word.Application.Document.Sentences to get all sentences in
a word document. By default, the VBA would return sentences delimited
by full stop. How could I change it to look for other delimiters, such
as a comma, or even custom define it?
For example, these are 2 sentences in a paragraph:
{##1##}The brown fox jumps over the lazy dog. {/##1##}{##2##}The brown
fox jumps over the lazy dog. {/##2##}
If I use Word.Application.Document.Sentences in a loop, it would return
me 3 lines:
line 1: {##1##}The brown fox jumps over the lazy dog.
line 2: {/##1##}{##2##}The brown fox jumps over the lazy dog.
line 3: {/##2##}
What I need is to have only these 2 sentences:
line 1:{##1##}The brown fox jumps over the lazy dog. {/##1##}
line 2:{##2##}The brown fox jumps over the lazy dog. {/##2##}
Please help. Thank you in advance. Tag: can I generate bookmarks in Word using VBA? Tag: 75288
SEQ number field??
Hello,
I'm having a problem, how to create a sequencial number field.
this document is an tempate, and i open i want the number to be sequencial.
for example, if i enter in the template three times th sequencial, number
have to be 1, 2 and 3. 1 for the first template opened, 2 for th two template
opened and so on on ........
Any sugestion???
Thanks Tag: can I generate bookmarks in Word using VBA? Tag: 75286
Can I set up a single TOC for ref. from multiple word documents ?
I have 5 or 6 word documents each with a table of contents.Can I create a
single seperate document/file showing all 5 or 6 table of contents in one
TOC(for ref), without having to merge the documents.
Will it have the ability to be updated each time I update the contents of an
individual document? Tag: can I generate bookmarks in Word using VBA? Tag: 75285
Calculation from Tokens
Hi,
I have a document which uses tokens from our system we have 3 tokens
"charge", "tax1" , "tax2" i need to be able do a calculation of charge - tax1
-tax2 and put the result on the document.
There is no token available to do this in our system so word will have to do
the calc. Tag: can I generate bookmarks in Word using VBA? Tag: 75282
Text Runs in VBA?
Hi!
Can someone please tell me how can I get the text runs of the word doc
through VBA code or whether or not they are possible at all.
I think they should be accessible since they appear in the XML genrated from
word
Thanks
Abhishek Tag: can I generate bookmarks in Word using VBA? Tag: 75281
Help with Prompts = Code attached Simple if statement?
hello,
What im wanting to try is for this code to cycle through the document and
once you have imputted your criteria:
sFnd = Enter the word you wish to replace with a hyperlink
sHpl = Enter File Name
sDsp = Enter the HyperLink display name
it will prompt you once it finds the word you wish to replace. At that
point you can choose either yes (to replace it) or no to ignore it.
Im thinking this must be a simple if statement but for the life of me i cant
find where it should go. I have a partial piece "MsgBox "Replace selection",
vbYesNo, "Testing" but cant figure out the rest.
Please help. i would like to try and sleep tonight.
Thanks
cm
Sub FindAndReplaceWithHypertext()
Dim rDoc As Range ' range replace
Dim sFnd As String ' string to be found
Dim sHpl As String ' hyperlink
Dim sDsp As String ' hyperlink display
sFnd = InputBox("Enter the word you wish to replace with a hyperlink:")
sHpl = InputBox("Enter File Name:")
sDsp = InputBox("Enter the HyperLink display name")
Set rDoc = ActiveDocument.Range
ResetSearch
With rDoc.Find
.Text = sFnd
.Wrap = wdFindStop
MsgBox "Replace selection", vbYesNo, "Testing"
Do While .Execute
ActiveDocument.Hyperlinks.Add _
rDoc, sHpl, TextToDisplay:=sDsp
rDoc.End = rDoc.End + Len(sDsp)
rDoc.Collapse wdCollapseEnd
Loop
End With
End Sub Tag: can I generate bookmarks in Word using VBA? Tag: 75279
TURN $6 INTO $15,000 IN ONLY 30 DAYS...HERES HOW - "paypal.rtf" 12.4 KBytes yEnc
It Will Work? If you do as I have done! Just Do It! follow the 4 steps?
$6.00 to $15,000.00 in 30 days!
Steps: Follow the Logic, Just Do it and It will work? $$$ in 4 easy steps?
1. Set Up a Free Paypal Account. 2. Send $1.00 to six Email Accounts from
your Paypal Account 3. Delete email address #1 and add your email address as
#6. Move all others #2-#6 up one number 4. Copy and Post this entire Letter
to Newsgroups, Messages Boards etc?
Copy this exactly for you guidance to completing steps 1-4. You are in
Business for yourself and you are Creating an E-mail List Company TURN $6
INTO $15,000 IN ONLY 30 DAYS...HERES HOW!
PAYPAL VERIFIES THAT THIS $6 INVESTMENT SCHEME IS 100% LEGAL AND IS A BIG
HIT THIS YEAR SEE THEIR NOTE BELOW OR ASK THEM DIRECTLY... THIS SCHEME MIGHT
TAKE 15-30 MINUTES AND JUST $6, BUT IT IS 100% WORTH IT TO MAKE THOUSANDS SO
QUICKLY. THIS IS NOT ANOTHER SCAM THAT TAKES LOTS OF YOUR HARD EARNED MONEY;
THIS IS A NO RISK INVESTMENT THAT WILL MAKE YOU THOUSANDS OF DOLLARS VERY
EASILY AND QUICKLY.
>From PayPal:
"Dear Member, it has come to our attention that there is a paypal scheme
floating around at the moment you may have heard or seen the $6 scheme. You
may have even taken part in it well we have been asked a lot of questions
about this scheme the answer is yes it does work and yes it is safe to use
providing you follow the rules it is legal and has made a big hit on the
internet this year. If you would like to take part in this scheme or would
like a bit more information then please see the attached file that was
kindly donated to us. Thank you for using PayPal!"
TURN $6 INTO $15,000 IN ONLY 30 DAYS...HERES HOW! This is a Money Scheme and
Not, I repeat? This is Not a Scam!!!
You have most likely seen or heard about this project on TV programs such as
20/20 and Oprah, or you may have read about it in the Wall Street Journal.
If not, here it is below - revealed to you in step-by-step detail. This
program is by no means new. It has been in existence in many forms for at
least a decade. But in the early days, it required a lot more time and
effort, as well as an investment of a few hundred dollars. However thanks to
PayPal and the Internet, the investment is now virtually ZERO! And what's
more, the entire process is FASTER, EASIER, and MORE LUCRATIVE than it has
EVER been! Below is the email sent to me:
How to Turn $6 into $15,000 in 30 Days with PayPal I WAS SHOCKED WHEN I SAW
HOW MUCH MONEY CAME FLOODING INTO MY PAYPAL ACCOUNT I turned $6 into $14,706
within the first 30 days of operating the business plan that I am about to
reveal to you free of charge. If you decide to take action on the following
instructions, I will GUARANTEE that you will enjoy a similar return! STILL
NEED PROOF? Here are just 3 testimonials from the countless individuals who
decided to invest nothing more than $6 and half an hour of their time to
participate in this program:
"What an amazing plan! I followed your instructions just 3 weeks ago, and
although I haven't made 15 grand yet, I'm already up to $9,135. I'm
absolutely gob smacked." -Pam Whittemore , Ohio
"Well, what can I say?... THANK YOU SO MUCH! I sent 40 e-mail's out like you
said and then I just forgot about the whole thing. To be honest, I didn't
really think anything would come of it. But when I checked my paypal account
a week later, there was over $5,000 in After 30 days I now have over $11,000
to spend! I can't thank you enough!"-Juan Tovar, NY,NY
"I was shocked when I saw how much money came flooding into my paypal
account. Within 3 weeks my account balance has ballooned to $12,449. At
first I thought there had been some sort of error with my account!" -Richard
Barrie , Boulder,CO
The only things you will need are: An email address. A Business PayPal
account with at least $6 deposited in it, and just 15 to 30 minutes of your
time. This program takes just half an hour to set up. After that, there is
absolutely no work whatsoever to do on your part. You have absolutely
NOTHING to lose, and there is NO LIMIT to the amount of income you can
generate from this one single business program.
Let's get started, just follow the instructions exactly as set out below and
then prepare yourself for a HUGE influx of cash over the next 30 days!
Here's what you need to do. . .
REQUIREMENTS
#1) an email address #2) a Premier or Business PayPal account
(It's simple and free to get a Premier or Business account, if you need help
doing it just email me.)
Now follow the steps: 1-4
________________________________________
Follow these easy steps EXACTLY and just watch what happens
STEP #1 - Setting up your FREE PayPal Account
It's extremely safe and very easy to set up a FREE PayPal account! Copy and
paste this to the address bar https://www.paypal.com (notice the secure
"https" within the link)
Be sure to sign up for a free PREMIER or BUSINESS account (and not just a
PERSONAL account) otherwise you won't be able to receive credit card
payments from other people.
STEP #2 - Sending PayPal money "It is an undeniable law of the universe that
we must first give in order to receive."
Now all you have to do is send $1.00 by way of PayPal to each of the six
email addresses listed below. After setting up your free paypal account and
confirming or verifying YOUR ACCOUNT AND putting (six Dollars) $6.00 into
your Paypal Account use the Account tab on Paypal to send $1.00 to each of
the Names on the List then move the top one and place yours in the #6 spot
on the list of names #1-#6. Remember your name becomes #6.
Make sure the subject of the payment says... *PLEASE PUT ME ON YOUR EMAIL
LIST* (this keeps the program 100% legal.. so please don't forget!)
Note: (If you do not see the full email address for the 6 members, just hit
reply to this email and they will show up.)
(Just in case you still haven't opened your PayPal account yet, use this
link to open one in your name), https://www.paypal.com
#1) faithmichelle_mo@yahoo.com
#2) reesefork@yahoo.com
#3) artofficial@grics.net
#4) msw27@cox.net
#5) fredwdjr@yahoo.com
#6) maintenanceman69@aol.com
Remember, all of this is ABSOLUTELY LEGAL! You are creating a service! A
Business? An Email List Service Business
If you have any doubts, please refer to Title 18 Sec. 1302 & 1241 of the
United States Postal laws.
STEP #3 - Adding Your Email Address
After you send your six $1.00 payments, it's your turn to add your email
address to the list!
Take the #1) email off the list that you see above, move the other addresses
up one (6 becomes 5 & 5 becomes 4, 4 becomes 3, 3 becomes 2, 2 becomes 1,
your email becomes #6) put YOUR email address (the one used in your PayPal
account) as #6) on the list.
**MAKE SURE THE EMAIL YOU SUPPLY IS EXACTLY AS IT APPEARS IN YOUR PAYPAL
ACCOUNT.**
STEP #4 - Copy Message to 200 Newgroups, message boards,etc?? The Pure Joy
of Receiving PayPal Money!
________________________________________
You are now ready to post your copy of this message, to at least 200
newsgroups, message boards, etc. (I think there are close to 32,000 groups)
All you need is 200, but remember, the more you post, the more money you
make - as well as everyone else on the list! In this situation your job is
to let as many people see this letter as possible. So they will make you and
me rich!!!! You can even start posting the moment your email is confirmed.
Payments will still appear in your PayPal account even while your bank
account is being confirmed.
HOW TO POST TO NEWSGROUPS & MESSAGE BOARDS
Step #1) You do not need to re-type this entire letter to do your own
posting. Simply put your CURSOR at the beginning of this letter and drag
your CURSOR to the bottom of this document, and select 'copy' from the edit
menu. This will copy the entire letter into your computer's temporary
memory.
Step #2) Open a blank 'Notepad' file and place your cursor at the top of the
blank page. From the 'Edit' menu select 'Paste'. This will paste a copy of
the letter into notepad so that you can add your email to the list. Or copy
to a Word Document. and Place in the email upon completion.
Step #3) Save your new Notepad file as a .txt file. If you want to do your
postings in different sittings, you'll always have this file to go back to.
Step #4) Use Netscape or Internet Explorer and try searching for various
newsgroups, on-line forums, message boards, bulletin boards, chat sites,
discussions, discussion groups, online communities, etc. EXAMPLE: go to any
search engine like yahoo.com, google.com, altavista.com, excite.com - then
search with subjects like? millionaire message board? or money making
message board? or opportunity message board? or money making discussions? or
business bulletin board? or money making forum? etc. You will find thousands
& thousands of message boards. Click them one by one then you will find the
option to post a new message.
Step #5) Visit these message boards and post this article as a new message
by highlighting the text of this letter and selecting 'Paste' from the
'Edit' menu. Fill in the Subject, this will be the header that everyone sees
as they scroll thru the list of postings in a particular group, click the
post message button. You're done with your first one!
Congratulations! THAT'S IT!! All you have to do is jump to different
newsgroups and post away. After you get the hang of it, it will take about
30 seconds for each newsgroup!
REMEMBER, THE MORE NEWSGROUPS AND/OR MESSAGE BOARDS YOU POST IN, THE MORE
MONEY YOU WILL MAKE!! BUT YOU HAVE TO POST A MINIMUM OF 200**
That's it! You will begin receiving money within days!
**JUST MAKE SURE THE EMAIL YOU SUPPLY IS EXACTLY AS IT APPEARS ON PAYPAL.**
Explanation of why it works so well:
$$$$$ NOW THE WHY PART: Out of 200 postings, say I receive only 5 replies (a
very low example). So then I Made $5.00 with my email at #6 on the letter.
Now, each of the 5 persons who just sent me $1.00 make the MINIMUM 200
postings, each with my email at #5 and only 5 persons respond to each of the
original 5, that is another $25.00 for me, now those 25 each make 200
MINIMUM posts with my email at #4 and only 5 replies each, I will bring in
an additional $125.00! Now, those 125 persons turn around and post the
MINIMUM 200 with my email at #3 and only receive 5 replies each, I will make
an additional $625.00! OK, now here is the fun part, each of those 625
persons post a MINIMUM 200 letters with my email at #2 and they only receive
5 replies that just made me $3,125.00!!! Those 3,125 persons will all
deliver this message to 200 newsgroups with my email at #1 and if still 5
persons per 200 newsgroups react I will receive $15,625.00! With an original
investment of only $6.00! AMAZING!! When your email is no longer on the
list, you just take latest posting in the newsgroups, and send out another
$6.00 to emails on the list, putting your email at number 6 again. And start
posting again.
The thing to remember is, thousands of people all over the world are joining
the internet and reading these articles everyday, JUST LIKE YOU are now!!
So can you afford $6?? And see if it really works?? I think so? People have
said, what if the plan is played out and no one sends you the money? So what
are the chances of that happening when there are tons of new honest users
and new honest people who are joining the internet and newsgroups everyday
and are willing to give it a try? Estimates are at 20,000 to 50,000 new
users everyday, with thousands of those joining the actual Internet.
Remember, play FAIRLY and HONESTLY and this will work. This really isn't
another one of those crazy scams! As long as people follow through with
sending out $6.00, it works!
With warm wishes, bless you and your loved ones, https://www.paypal.com
=ybegin line=128 size=12350 name=paypal.rtf
¥????[?????????????[\_\?????Z????????[Z]]¥????????¥??Z????????????????ZJ~????Jx?¡J|????e§¥??[???¡????????????ZJk????e§§74¥?T????
??????Jw???????J_X^[X[_X[_Zae§? ??¡????^???[????????[ZZ???[ZZ??Z???\^Js?J????J?????Qb_Js?J£??J??J??JsJ?? ?J????KJt???Jn?Js?KJ???
??¡J???J^J??????Qb_JN`XZZJ??JN[_VZZZXZZJ??J]ZJ??£?KJ????74}????dJp????¡J???Jv????VJt???Jn?J??J???Js?J¡???J¡????Qb_JNNNJ??J^J???£
J??????Qb_J????74[XJ}??J?J?Jp???Jz?£???Jk??????XJ\XJ}???JN[XZZJ??J??¢Jo????Jk???????J????J£???Jz?£???Jk??????J]XJn?????J?????J?
??????JM[J???J???J£???J?????J???????J??JM`XJw? ?J???J??????JM\WM`J??J???J??????J^XJm??£J???Jz???J????J??????Jv?????J??Jx?¡??????
?VJw???????Jl?????J????Qb_J????74m??£J????J?¢????£J???J£??J????????J??J??????????J?????J[W^XJ???J???J??Jl???????J???J£???????J??
?J£??J???Jm???????J??JoW????Jv???Jm?????£J~|xJN`Jsx~yJN[_VZZZJsxJyxv?J]ZJnk?}XXXro|o}Jry?KJ????74zk?zkvJ?o|spso}J~rk~J~rs}JN`Js
x?o}~wox~J}mrowoJs}J[ZZOJvoqkvJkxnJs}JkJlsqJrs~J~rs}J?ok|J}ooJ~ros|Jxy~oJlovy?Jy|Jk}uJ~rowJns|om~v?XXXJ~rs}J}mrowoJwsqr~J~kuoJ[_
W]ZJwsx~o}JkxnJt}~JN`VJl~Js~Js}J[ZZOJ?y|~rJs~J~yJwkuoJ~ry}kxn}J}yJ{smuv?XJ~rs}Js}Jxy~Jkxy~ro|J}mkwJ~rk~J~kuo}Jvy~}JypJ?y|J
rk|nJok|xonJwyxo?eJ~rs}Js}JkJxyJ|s}uJsx?o}~wox~J~rk~J?svvJwkuoJ?yJ~ry}kxn}JypJnyvvk|}J?o|?Jok}sv?JkxnJ{smuv?XJ????74hp???Jz?£
z??dJ????74Ln???Jw?????VJ??J???J????J??J???J?????????J????J?????J??J?J??£???J??????J????????J??????J??J???J??????J£??J??£J?? ?J?
????J??J????J???JN`J??????XJ???J??£J?? ?J? ??J?????J????J??J??J¡???J¡?J?? ?J????J?????J?J???J??J?????????J?????J????J??????J???J
???¡??J??J£??J??J????J¡???J???J£??J??J??J????J??J???J??? ?????J£??J?????¡J???J?????J??J??J?????J???J???J????J?J???J???J??J???J??
??????J????J£???XJs?J£??J¡????J????J??J????J????J??J????J??????J??J¡????J????J?J???J????J???????????J????J??????J???J???J???????
?J????J????J¡??J?????£J???????J??J??XJ~????J£??J???J?????Jz?£z??KLJ????74~|xJN`Jsx~yJN[_VZZZJsxJyxv?J]ZJnk?}XXXro|o}Jry?KJ~???J
??J?Jw???£J}?????J???Jx??VJsJ???????Qb_J~???J??Jx??J?J}???KKKJ????74???J?? ?J????J?????£J????J??J?????J?????J????J???????J??J~?J
????????J????J??J\ZY\ZJ???Jy????VJ??J£??J??£J?? ?J????J?????J??J??J???J????J}?????Jt??????XJs?J???VJ????J??J??J????¡JWJ?? ?????J
??J£??J??J????W?£W????J??????XJ~???J???????J??J?£J??J?????J??¡XJs?J???J????J??J?¢???????J??J???£J?????J???J??J?????J?J??????XJl?
?J??J???J????£J??£?VJ??J????????J?J???J????J????J???J??????VJ??J¡???J??J??J?? ???????J??J?J??¡J???????J???????XJr?¡? ??J??????J?
?Jz?£z??J???J???Js???????VJ???J?? ???????J??J??¡J ???????£J?o|yKJk??J¡???Q?J????VJ???J??????J???????J??Jpk}~o|VJok}so|VJ???Jwy|o
Jvm|k~s?oJ????J??J???Jo?o|J????KJl???¡J??J???J?????J????J??J??dJ????74r?¡J??J~???JN`J????JN[_VZZZJ??J]ZJn?£?J¡???Jz?£z??JsJ?k}J
}rymuonJ?roxJsJ}k?Jry?JwmrJwyxo?JmkwoJpvyynsxqJsx~yJw?Jzk?zkvJkmmyx~JsJ??????JN`J????JN[^VaZ`J¡?????J???J?????J]ZJ??£?J??J????
?????J???J????????J????J????JsJ??J?????J??J?? ???J??J£??J????J??J??????XJs?J£??J??????J??J????J??????J??J???J?????¡???J?????????
???VJsJ¡???Jqk|kx~ooJ????J£??J¡???J????£J?J???????J??????KJ}~svvJxoonJz|yypiJr???J???J????J]J????????????J????J???J?????????J??
?? ??????J¡??J???????J??J?? ???J???????J????J????JN`J???J????J??J????J??J?????J????J??J???????????J??J????J???????dJ????74L????J
??J???¤???J????KJsJ?????¡??J£???J????????????J????J]J¡????J???VJ???J????????JsJ?? ??Q?J????J[_J?????J£??VJsQ?J??????£J??J??JNcV[
]_XJsQ?J?????????£J???J???????XLJWz??J??????????JVJy???J????74L????VJ¡???J???JsJ??£iXXXJ~rkxuJ?yJ}yJwmrKJsJ????J^ZJ?W????Q?J??
?J????J£??J????J???J????JsJ????J??????J?????J???J¡????J?????XJ~?J??J??????VJsJ????Q?J?????£J?????J??£?????J¡????J????J??J??XJl??
J¡???JsJ???????J?£J??£???J???????J?J¡???J?????VJ?????J¡??J? ??JN_VZZZJ??Jk????J]ZJ??£?JsJ??¡J?? ?J? ??JN[[VZZZJ??J?????KJsJ???Q?
J?????J£??J??????KLWt???J~? ??VJx?Vx?J????74LsJ¡??J???????J¡???JsJ??¡J??¡J????J????£J????J????????J????J?£J??£???J???????XJ?????
?J]J¡????J?£J???????J???????J???J?????????J??JN[\V^^cXJk?J?????JsJ???????J?????J???J????J????J????J??J?????J¡???J?£J???????KLJW|
??????Jl?????JVJl??????VmyJ????74~??J???£J??????J£??J¡???J????J???dJk?J?????J???????XJkJl???????Jz?£z??J???????J¡???J??J?????JN`
J?????????J??J??VJ???J????J[_J??J]ZJ???????J??J£???J????XJ~???J???????J?????J????J????J??J????J??J???J??XJk????J????VJ?????J??J?
????????£J??J¡???J¡?????? ??J??J??J??J£???J????XJ???J?? ?J?????????£Jxy~rsxqJ??J????VJ???J?????J??JxyJvsws~J??J???J??????J??J???
???J£??J???J????????J????J????J???J??????J????????J???????XJ????74v??Q?J???J???????VJ????J?????¡J???J????????????J?¢????£J??J???
J???J????¡J???J????J???????J£???????J???J?JrqoJ?????¢J??J????J? ??J???J??¢?J]ZJ??£?KJr???Q?J¡???J£??J????J??J??XJXJXJ????74|o{
s|owox~}J????74M[SJ??J?????J???????JM\SJ?Jz??????J??Jl???????Jz?£z??J???????J?????JRs?Q?J??????J???J????J??J???J?Jz??????J??Jl??
?????J???????VJ??J£??J????J????J?????J??J????J?????J??XSJ????74x?¡J?????¡J???J?????dJ[W^J?????J?????????????????????????????????
???????J????74p????¡J?????J???£J?????Jo?km~v?J???J????J¡????J¡???J???????J?????J}~ozJM[JWJ}??????J??J£???Jp|ooJz?£z??Jk??????J??
??74s?Q?J?¢??????£J????J???J ??£J???£J??J???J??J?Jp|ooJz?£z??J???????KJm??£J???J?????J????J??J???J???????J???J?????dYY¡¡¡X??£???
X???JR??????J???J??????JL?????LJ¡?????J???J????SJ????74l?J????J??J????J??J???J?J????Jz|owso|J??Jl}sxo}}J???????JR???J???J????J?
Jzo|}yxkvJ???????SJ?????¡???J£??J¡??Q?J??J????J??J????? ?J??????J????J??£?????J????J?????J??????XJ????74}~ozJM\JWJ}??????Jz?£z??
J????£JLs?J??J??J??????????J??¡J??J???J??? ????J????J¡?J????J?????J?? ?J??J?????J??J????? ?XLJ????74x?¡J???J£??J?? ?J??J??J??J??
??JN[XZZJ?£J¡?£J??Jz?£z??J??J????J??J???J??¢J?????J?????????J??????J????¡XJk????J???????J??J£???J????J??£???J???????J???J???????
???J??J ????£???J?y|Jkmmyx~JkxnJ???????JR??¢Jn??????SJN`XZZJ????J£???Jz?£???Jk??????J???J???Jk??????J???J??Jz?£???J??J????JN[X
ZZJ??J????J??J???Jx????J??J???Jv???J????J?? ?J???J???J???J???J?????J£????J??J???JM`J????J??J???J????J??J?????JM[WM`XJ|???????J£?
??J????J???????JM`XJ????74w???J????J???J???????J??J???J??£????J??£?XXXJTzvok}oJz~JwoJyxJ?y|JowksvJvs}~TJR????J?????J???J??????
?J[ZZOJ?????XXJ??J??????J???Q?J??????KSJ????74x???dJRs?J£??J??J???J???J???J????J?????J???????J???J???J`J???????VJ????J???J????£J
??J????J?????J???J???£J¡???J???¡J??XSJ????74Rt???J??J????J£??J?????J?? ??Q?J??????J£???Jz?£z??J???????J£??VJ???J????J????J??J???
?J???J??J£???J????SVJ?????dYY¡¡¡X??£???X???J????74M[SJ????????????????j£????X???J?????JM\SJ?????????j£????X???J?????JM]SJ???????
????j?????X???J?????JM^SJ??¡\aj??¢X???J?????JM_SJ????¡???j£????X???J?????JM`SJ??????????????`cj???X???????74|???????VJ???J??J???
?J??Jkl}yv~ov?JvoqkvKJ???J???J????????J?J??? ???KJkJl????????Qb_Jk?Jo????Jv???J}?? ???Jl???????J????74s?J£??J?? ?J??£J??????VJ?
?????J?????J??J~????J[bJ}??XJ[]Z\JPJ[\^[J??J???J?????J}?????Jz?????J??¡?XJ????74}~ozJM]JWJk?????J????Jo????Jk??????J????74k????
J£??J????J£???J??¢JN[XZZJ??£?????VJ??Q?J£???J????J??J???J£???J?????J???????J??J???J????KJ????74~???J???JM[SJ?????J???J???J????J?
???J£??J???J??? ?VJ?? ?J???J?????J?????????J??J???JR`J???????J_JPJ_J???????J^VJ^J???????J]VJ]J???????J\VJ\J???????J[VJ£???J?????
J???????JM`SJ???J?y|J?????J???????JR???J???J????J??J£???Jz?£z??J???????SJ??JM`SJ??J???J????XJ????74TTwkuoJ}|oJ~roJowksvJ?yJ}
zzv?Js}Jo?km~v?Jk}Js~Jkzzok|}JsxJ?y|Jzk?zkvJkmmyx~XTTJ????74}~ozJM^J???????JJm??£Jw??????J??J\ZZJx?¡??????VJ???????J??????V???
?Qb_?Qb_J~??Jz???Jt?£J??J|???? ???Jz?£z??Jw???£KJ?????J????????????????????????????????????????J?????J???J???J??¡J????£J??J????J
£???J???£J??J????J???????VJ??J??J?????J\ZZJ??¡???????VJ???????J??????VJ???XJRsJ?????J?????J???J?????J??J]\VZZZJ??????SJ????74k??
J£??J????J??J\ZZVJ???J????????VJ???J????J£??J????VJ???J????J????£J£??J????JWJ??J¡???J??J? ??£???J????J??J???J????KJs?J????J?????
????J£???J???J??J??J???J??J???£J??????J???J????J??????J??J????????XJ}?J???£J¡???J????J£??J???J??J????KKKKJ???J???J? ??J?????J???
????J???J??????J£???J?????J??J?????????XJz?£?????J¡???J?????J??????J??J£???Jz?£z??J???????J? ??J¡????J£???J????J???????J??J?????
J?????????XJ????74ry?J~yJzy}~J~yJxo?}q|yz}JPJwo}}kqoJlyk|n}J????74}???JM[SJ???J??J???J????J??J??W?£??J????J??????J??????J??J??J
£???J?¡?J???????XJ}????£J???J£???Jm|}y|J??J???J?????????J??J????J??????J???J????J£???Jm|}y|J??J???J??????J??J????J????????VJ??
?J??????JQ???£QJ????J???J????J????XJ~???J¡???J???£J???J??????J??????J????J£???J????????Q?J????????£J?????£XJ????74}???JM\SJy???J
?J?????JQx??????QJ????J???J?????J£???J??????J??J???J???J??J???J?????J????XJp???J???JQo???QJ????J??????JQz????QXJ~???J¡???J?????J
?J???£J??J???J??????J????J???????J??J????J£??J???J???J£???J?????J??J???J????XJy?J???£J??J?J????Jn???????XJ???Jz????J??J???J?????
J????J??????????XJ????74}???JM]SJ}? ?J£???J??¡Jx??????J????J??J?JX?¢?J????XJs?J£??J¡???J??J??J£???J????????J??J?????????J???????
?VJ£??Q??J??¡?£?J?? ?J????J????J??J??J????J??XJ????74}???JM^SJ??Jx???????J??Js???????Jo¢??????J???J??£J?????????J???J ??????J??
¡???????VJ??W????J??????VJ???????J??????VJ????????J??????VJ????J?????VJ???????????VJ??????????J??????VJ??????J???????????VJ???XJ
o?kwzvodJ??J??J??£J??????J??????J????J£????X???VJ??????X???VJ???? ????X???VJ?¢????X???JWJ????J??????J¡???J????????J????iJ???????
????J???????J?????iJ??J????£J??????J???????J?????iJ??J??????????£J???????J?????iJ??J????£J??????J???????????iJ??J????????J??????
??J?????iJ??J????£J??????J?????iJ???XJ???J¡???J????J?????????JPJ?????????J??J???????J??????XJm????J????J???J?£J???J????J£??J¡???
J????J???J??????J??J????J?J??¡J???????XJ????74}???JM_SJ?????J?????J???????J??????J???J????J????J???????J??J?J??¡J???????J?£J????
????????J???J??¢?J??J????J??????J???J?????????JQz????QJ????J???JQo???QJ????XJp???J??J???J}??????VJ????J¡???J??J???J??????J????J?
??£???J????J??J???£J??????J????J???J????J??J????????J??J?J??????????J?????VJ?????J???J????J???????J??????XJ???Q??J????J¡???J£??
?J?????J???KJ????74m??????????????KJ~rk~Q}Js~KKJk??J£??J?? ?J??J??J??J????J??J?????????J??¡???????J???J????J?¡?£XJk????J£??J???J
???J????J??J??VJ??J¡???J????J?????J]ZJ???????J???J????J??¡??????KJ????74|owowlo|VJ~roJwy|oJxo?}q|yz}JkxnYy|Jwo}}kqoJlyk|n}J?yJ
zy}~JsxVJ~roJwy|oJwyxo?J?yJ?svvJwkuoKKJl~J?yJrk?oJ~yJzy}~JkJwsxswwJypJ\ZZTTJ????74~???Q?J??KJ???J¡???J?????J????? ???J????£J
¡?????J??£?KJ????74TTt}~JwkuoJ}|oJ~roJowksvJ?yJ}zzv?Js}Jo?km~v?Jk}Js~Jkzzok|}JyxJzk?zkvXTTJ????74o¢?????????J??J¡?£J??J¡????
J??J¡???dJ????74NNNNNJxy?J~roJ?r?Jzk|~dJy??J??J\ZZJ????????VJ??£JsJ????? ?J???£J_J???????JR?J ??£J??¡J?¢?????SXJ}?J????JsJw???JN
_XZZJ¡???J?£J?????J??JM`J??J???J??????XJx?¡VJ????J??J???J_J???????J¡??J????J????J??JN[XZZJ????J???JwsxswwJ\ZZJ????????VJ????J¡?
??J?£J?????J??JM_J???J???£J_J???????J???????J??J????J??J???J????????J_VJ????J??J???????JN\_XZZJ???J??VJ??¡J?????J\_J????J????J\Z
ZJwsxswwJ?????J¡???J?£J?????J??JM^J???J???£J_J???????J????VJsJ¡???J?????J??J??J??????????JN[\_XZZKJx?¡VJ?????J[\_J???????J????J
??????J???J????J???JwsxswwJ\ZZJ¡???J?£J?????J??JM]J???J???£J????? ?J_J???????J????VJsJ¡???J????J??J??????????JN`\_XZZKJyuVJ??¡J
????J??J???J???J????VJ????J??J?????J`\_J???????J????J?JwsxswwJ\ZZJ???????J¡???J?£J?????J??JM\J???J???£J???£J????? ?J_J???????J?
???J????J????J??JN]V[\_XZZKKKJ~????J]V[\_J???????J¡???J???J???? ??J????J???????J??J\ZZJ??¡???????J¡???J?£J?????J??JM[J???J??J???
??J_J???????J???J\ZZJ??¡???????J?????JsJ¡???J????? ?JN[_V`\_XZZKJ????J??J????????J?? ???????J??J???£JN`XZZKJkwk?sxqKKJ????J£???J
?????J??J??J??????J??J???J????VJ£??J????J????J??????J???????J??J???J??¡???????VJ???J????J???J???????JN`XZZJ??J??????J??J???J????
VJ???????J£???J?????J??J??????J`J?????XJk??J?????J???????J?????XJ????74~??J?????J??J????????J??VJ?????????J??J??????J???J? ??J??
?J¡????J???J???????J???J????????J???J???????J?????J????????J? ??£??£VJt}~JvsuoJ?yJ???J??¡KKJ????74}?J???J£??J??????JN`iiJk??J?
??J??J??J?????£J¡????iiJsJ?????J??iJz?????J?? ?J????VJ¡???J??J???J????J??J???£??J???J???J??J???J?????J£??J???J????£iJ}?J¡???J???
J???J???????J??J????J?????????J¡???J?????J???J????J??J??¡J??????J?????J???J??¡J??????J??????J¡??J???J???????J???J????????J???J??
¡???????J? ??£??£J???J???J¡??????J??J?? ?J??J?J??£iJo????????J???J??J\ZVZZZJ??J_ZVZZZJ??¡J?????J? ??£??£VJ¡???J?????????J??J????
?J???????J???J??????Js???????XJ????74|???????VJ???£Jpks|v?J???Jryxo}~v?J???J????J¡???J¡???XJ~???J?????£J???Q?J???????J???J??J???
??J???¤£J?????KJk?J????J??J??????J?????¡J???????J¡???J???????J???JN`XZZVJ??J¡????KJ????74????J¡???J¡?????VJ?????J£??J???J£???J??
??J????VJ?????dYY¡¡¡X??£???X???J????74???????[???\Z????74§74*
=yend size=12350 crc32=15a8634
Posted Via Usenet.com Premium Usenet Newsgroup Services
----------------------------------------------------------
** SPEED ** RETENTION ** COMPLETION ** ANONYMITY **
----------------------------------------------------------
http://www.usenet.com Tag: can I generate bookmarks in Word using VBA? Tag: 75273
Help with text file deletion
Currently i have a macro that will run any number of other macros on all the
files in any number of folders.
Now, i have the user input how many macros to run, and how many folders.
For the amount of macros and folders, i have the user input the folder paths
and the macro names.
The paths and names are exported to a text file on a network drive that i
created for these types of output cases where i need to store and retrieve
information.
Well, the company that i work with wants to make my macros a company wide
deal. The problem i ran into is that if people run the same macro at the same
time, the log file person a is using, get's deleted when person b tries to
use it.
Following is a part of my code...
This part i use to create the files...
Set f = CreateObject("Scripting.FileSystemObject")
Set tLog = f.Createtextfile("Y:\ryan\vb\folderlist.txt", True)
Set mLog = f.Createtextfile("Y:\ryan\vb\macrolist.txt", True)
Here is part of my code that gets the inputs and writes it to the file
nfolders = InputBox(prompt:="How many folders do you want to run macro
on?")
If Len(nfolders) = 0 Then Exit Sub
Application.ScreenRefresh
For y = 1 To nfolders
If nfolders = 1 Then
path = InputBox(prompt:="Input the folder's path.")
ElseIf y = nfolders Then
path = InputBox(prompt:="Input the last folder's path.")
ElseIf y = 1 Then
path = InputBox(prompt:="Input the 1st folder's path.")
ElseIf y = 2 Then
path = InputBox(prompt:="Input the 2nd folder's path.")
ElseIf y = 3 Then
path = InputBox(prompt:="Input the 3rd folder's path.")
Else
path = InputBox(prompt:="Input the " & y & "th folder's path.")
End If
If Len(path) = 0 Then
MsgBox ("You hit cancel or didn't put anything in.")
Exit Sub
End If
tLog.writeline (path)
Application.ScreenRefresh
Next y
tLog.Close
after all this i do...
tLog = "Y:\ryan\vb\folderlist.txt"
Open tLog For Input As #1
Do While Not EOF(1)
Now, to solve this i'm going to change the program to create the txt file at
C:\ and then what i want it to do is erase it when the program is
finished.... how can i do this? Tag: can I generate bookmarks in Word using VBA? Tag: 75269
Renumbering lists programmatically
Hi there,
I'm working on a macro for wide use with legal forms, and one of the
requirements is to have the ability to hide or strikeout inapplicable
sections, while leaving the form protected to fill in forms only.
I've accomplished this by encapsulating each item that will require the
hide/strikeout modifications within continuous section breaks, and
included a checkbox in each section for the end users to toggle the
hiding/strikeout feature which is kicked off by the appropriate toolbar
button.
An additional requirement, presented to me after this dev work was
completed, was that in the case of a hidden section, the subsequent
sections would renumber themselves. I'm having difficulty coming up
with an elegant solution for this.
A sample section of the form looks like this, where [] denotes a
checkbox formfield:
1. [](a) This is the first item
[](b) This is the second item
[](c) This is the third item
[](d) Fourth item
... etc...
If section b is hidden, then section (c) should become (b) and (d)
should become (c) and so on down the line. I'd also like this to be
toggle-able.. is this easily done? I can't use a numbered list because
hiding the text doesn't renumber the list - only deleting the list item
will do that and I can't delete from the form, only hide.
Thanks for any assistance in advance!
Ben Tag: can I generate bookmarks in Word using VBA? Tag: 75263
Open an Excel Document in Word
Hello Again Guys What the VB code to open up an Escel Document externally not
within work from a button which is inputted into a word document?
Cheers Again
Alistaire Tag: can I generate bookmarks in Word using VBA? Tag: 75262
Averge of Check boxes
I have a form were users need to select a cyheckbox that correspondes to a
rating of 1 thru 4 and I need to get the average score of all.
Example:
1 2 3 4
0 X 0 0
1 2 3 4
x 0 0 0
Average = 1.5
How can I do this? Can I do this? Tag: can I generate bookmarks in Word using VBA? Tag: 75261
Open Document Properties Dialog Box
Can someone please tell me how to open the document properties dialog box
with a macro command?
I've linked some fields to some of the custom document property items and I
want the document properties to pop up the first time the template is opened
for people to enter in the Document Propertie Values.
Thanks in advance,
-Matt Tag: can I generate bookmarks in Word using VBA? Tag: 75259
Table renumbering.
I am trying to replace Appenidix # with Table #.# Only difference is I
cannot replace all Appendix # with Table #.#. I mean how will I use fields to
replace numbers(#.#) using find and replace command. My files can be of
5-50page it depends.
Any help.. it's very urgent
I am using following macro to do this.
Selection.Find.ClearFormatting
With Selection.Find
.Text = "Appendix 1"
.Replacement.Text = "Table "
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty,
Text:= _
"SEQ Table\c ", PreserveFormatting:=True
Selection.TypeText Text:="."
Selection.Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, Text:= _
"SEQ Table\c ", PreserveFormatting:=True
End With Tag: can I generate bookmarks in Word using VBA? Tag: 75252
View Text but Don't Print
Is there a way to put some type of comment on the document (like in a text
box) but make it so it does not print. I'm trying to put help tips in a
template and I want the user to see it but I don't want it to print out.
My other idea is to have a mouse-over or click-on type feature that shows a
pop-up comment but when I do a comment I get a big long "So and So wrote on
Such and Such a Date at Such and Such a Time". I just want the comment to
show up. Not all that other stuff.
--
Debra Ann Tag: can I generate bookmarks in Word using VBA? Tag: 75251
Sort according to word length
Does anyone have a clue for a macro that can sort a list of words
according to how many letters there are in the words.
Example: I'd like the list:
bear
do
horse
a
are
to end up like:
a
do
are
bear
horse
thanks to anyone who can help!
--
per-erik Tag: can I generate bookmarks in Word using VBA? Tag: 75248
Public Function NAME() causes VBA Run-Time error
Can someone tell me why if I name a Public Function "NAME", I get a run-time
error when I try to use the Application.Run VBA code in Word 2000?
Application.Run "NAME"
However, if I use Application.Run "NAME1" instead, and rename my function to
"NAME1", it works? My assumption is, you cannot name a function "NAME", for
whatever reason. My simple function is listed below:
Public Function NAME()
MsgBox "Hello"
End Function Tag: can I generate bookmarks in Word using VBA? Tag: 75246
get the page number of a given bookmark
Hi all,
I am trying to get the page number of a given bookmark inserte
somewhere in the middle of a document.
Anyone could give me a clue on how to do it
--
ignhdezPosted from - http://www.officehelp.i Tag: can I generate bookmarks in Word using VBA? Tag: 75245
CTRL-BACKSPACE doesn't work when document is protected for forms
Hi all,
I have some users who are complaining that they can no longer use
CTRL-BACKSPACE to delete a complete word when their document is containing
protected for forms.
Is there a way to catch the event of a user pressing the CTRL-BACKSPACE keys
and do this myself?
Thanks for your time,
Romain Tag: can I generate bookmarks in Word using VBA? Tag: 75243
"continue searching" message when recording a "find & replace" mac
I want to record a "find & replace" macro that applies only to text that is
highlighted when the macro is run. How do you disable or avoid this
automatic message: "Word has finished searching the selection. [Some # of]
replacements were made. Do you want to search the remainder of the document?"
In other words, how do I convince the macro recorder that I highlighted that
text to set limits -- not just a temporary stopping point -- to the "find &
replace" process?
I don't care if the message appears during the recording process, but I want
to avoid it when the macro is run. The purpose of a macro is to automate
some process with a single key stroke. The "continue searching" message just
adds a further step (hitting the "no" button), and several such steps if the
macro includes multiple "find & replace" actions.
By the way, WordPerfect, Version 8, didn't have this problem.
--
cmmnctng Tag: can I generate bookmarks in Word using VBA? Tag: 75237
"continue searching" message when recording a "find & replace" mac
I want to record a "find & replace" macro that applies only to text that is
highlighted when the macro is run. How do you disable or avoid this
automatic message: "Word has finished searching the selection. [Some # of]
replacements were made. Do you want to search the remainder of the document?"
In other words, how do I convince the macro recorder that I highlighted that
text to set limits -- not just a temporary stopping point -- to the "find &
replace" process?
I don't care if the message appears during the recording process, but I want
to avoid it when the macro is run. The purpose of a macro is to automate
some process with a single key stroke. The "continue searching" message just
adds a further step (hitting the "no" button), and several such steps if the
macro includes multiple "find & replace" actions.
By the way, WordPerfect, Version 8, didn't have this problem.
--
cmmnctng Tag: can I generate bookmarks in Word using VBA? Tag: 75235
VB Buttons
Hiya guys....
I have created a VB Button into my word document which has a macro attached
to it. But when I print the page I dont want to show the button, How can I
change it so the button only sppears in the page and not on the printed
documents?
Alistaire Tag: can I generate bookmarks in Word using VBA? Tag: 75231
set picture Width and Height with ActiveDocument.Shapes.AddPicture
I try the script below at Word 2002 template file is works fine but not for
Word 97?
When run at Word 97, i ecounter an error and it close my Word. If i remove
the Width and Height then everthing are ok. Anyone can help?
Set myShape = ActiveDocument.Shapes.AddPicture(FileName:="C:\ImageFileName.
gif", LinkToFile:=False, Width:=155#, Height:=25#, Anchor:=.Paragraphs(1).
Range)
Thanks.
--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.aspx/word-programming/200510/1 Tag: can I generate bookmarks in Word using VBA? Tag: 75230
find / replace for only certain pages - Please see code
Greetings,
Here is my code. What i would like for it to do is only work on say the
first 10 pages of a document and not go any further. I have users who will
be adding (insert - file) later on in this template and i dont want the find
replace to go and change any of the potential areas other than the first 10
pages..
Hope this makes sence. Thanks in advance
Sub FindAndReplaceWithHypertext()
Dim rDoc As Range ' range replace
Dim sFnd As String ' string to be found
Dim sHpl As String ' hyperlink
Dim sDsp As String ' hyperlink display
sFnd = InputBox("Enter the word you wish to replace with a hyperlink:")
sHpl = InputBox("Enter File Name:")
sDsp = InputBox("Enter the HyperLink display name")
Set rDoc = ActiveDocument.Range
ResetSearch
With rDoc.Find
.Text = sFnd
.Wrap = wdFindStop
Do While .Execute
ActiveDocument.Hyperlinks.Add _
rDoc, sHpl, TextToDisplay:=sDsp
rDoc.End = rDoc.End + Len(sDsp)
rDoc.Collapse wdCollapseEnd
Loop
End With
End Sub
Public Sub ResetSearch()
With Selection.Find
.ClearFormatting
.Replacement.ClearFormatting
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
.Execute
End With
End Sub Tag: can I generate bookmarks in Word using VBA? Tag: 75217
running loop
I am trying to ask use to add number on pages in a text box and then when
they hit ok macro should replace specific text with specific formatted text.
Any help
Thanks Tag: can I generate bookmarks in Word using VBA? Tag: 75202
Controlling Publisher 2000 from word macro
I have been trying to open publisher using microsoft word, to open a
mailmerge document, show the details, and then print it out. I can get
Publisher to open, but I cannot work out how toggle the mailmerge fields- to
show the details rather than the mailmerge field codes. Also, I can get the
printer to print using this macro, but I obviously have the wrong code,
because all it does is dump a single blank page.
It is a long winded reason why I want to control Publisher from word, but
basically I need to kick things off in a Document Template. Perhaps it would
be better to use a macro in Publisher, but then how would I call a macro in
Pub from word? Below is the code I have been unsuccessfully trying.
Thanks in advance for any suggestions,
Ian
Sub OpenNewPub()
Dim appPub As New Publisher.Application
appPub.Open FileName:="c:\documents and settings\Ian McLeish\My
Documents\TestRecord Card2000 4th Attempt.pub", _
ReadOnly:=True, AddToRecentFiles:=False, _
SaveChanges:=pbPromptToSaveChanges
appPub.ActiveWindow.Visible = True
'ActiveDocument.MailMerge.ViewMailMergeFieldCodes = False
ThisDocument.PrintOut
End Sub Tag: can I generate bookmarks in Word using VBA? Tag: 75198
Text format inside Text Box
G'Day
I understand how to format text (i.e., symbols) inside a table cell, but I
cannot figure out how to use "superscript & underlines" on text within a text
box.
Can anyone give me an example to emulate, Please?
Krakmup Tag: can I generate bookmarks in Word using VBA? Tag: 75197
I have existing documents that I want to process using VBA to insert
bookmarks. How do I mark my insertions so that they function as books?
Dave''sFriend wrote:
> I have existing documents that I want to process using VBA to insert
> bookmarks. How do I mark my insertions so that they function as
> books?