template

T

ted medin

Ok i created a template which is a single line like this:
word0 word1 word2
word3 word4

Inserted a bookmark for each word(x) which spanned almost to the next
word(x+1)
the problem is with the following code the spacing between the bookmarks
changes :-(.
I was hoping to insert columns with each succeeding line falling directly
under the previous.
So where am i going wrong? TIA



--------------- part of the
code ---------------------------------------------
While Not rstProj.EOF
intTem = rstProj![project region]
If intTem <> intProjro Then
intProjro = intTem ' until it changes
Selection.InsertFile FileName:="c:\program files\microsoft
office\templates\newsletterrpl.dot", Range:="", _
ConfirmConversions:=False, Link:=False, Attachment:=False
With ActiveDocument.Bookmarks("region")
intLenRegion = .End - .Start
End With
Selection.GoTo What:=wdGoToBookmark, Name:="region"
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.TypeText Text:=rstProj![project region]
Selection.TypeParagraph
End If
rstMem.Seek "=", rstProj![project number]
If Not (rstMem.NoMatch) Then
' We have a match
Selection.InsertFile FileName:="c:\program files\microsoft
office\templates\newsletterpl.dot", Range:="", _
ConfirmConversions:=False, Link:=False, Attachment:=False
With ActiveDocument.Bookmarks("project")
intLenProject = .End - .Start
End With
Selection.GoTo What:=wdGoToBookmark, Name:="project"
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.TypeText Text:=Left(rstProj![Project] &
Space(intLenProject), intLenProject - 1)
With ActiveDocument.Bookmarks("activity_name")
intLenActivityname = .End - .Start
End With
Selection.GoTo What:=wdGoToBookmark, Name:="activity_name"
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.TypeText Text:=Left(rstMem![activity name] &
Space(intLenActivityname), intLenActivityname - 1)
With ActiveDocument.Bookmarks("city")
intLenCity = .End - .Start
End With
Selection.GoTo What:=wdGoToBookmark, Name:="city"
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.TypeText Text:=Left(rstMem![city] & Space(intLenCity),
intLenCity - 1)
With ActiveDocument.Bookmarks("state")
intLenState = .End - .Start
End With
Selection.GoTo What:=wdGoToBookmark, Name:="state"
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.TypeText Text:=Left(rstMem![state] & Space(intLenState),
intLenState - 1)
Selection.TypeParagraph
Else
MsgBox ("Unable to find site" & intTem)
End If
rstProj.MoveNext
Wend
------------end of code --------------------------------------------
 
C

Charles Kenyon

Set and use tabs rather than spaces.
--

Charles Kenyon

Word New User FAQ & Web Directory:
<URL: http://addbalance.com/word/index.htm>

Intermediate User's Guide to Microsoft Word (supplemented version of
Microsoft's Legal Users' Guide)
<URL: http://addbalance.com/usersguide/index.htm>

See also the MVP FAQ: <URL: http://www.mvps.org/word/> which is awesome!
--------- --------- --------- --------- --------- ---------
This message is posted to a newsgroup. Please post replies
and questions to the newsgroup so that others can learn
from my ignorance and your wisdom.

ted medin said:
Ok i created a template which is a single line like this:
word0 word1 word2
word3 word4

Inserted a bookmark for each word(x) which spanned almost to the next
word(x+1)
the problem is with the following code the spacing between the bookmarks
changes :-(.
I was hoping to insert columns with each succeeding line falling directly
under the previous.
So where am i going wrong? TIA



--------------- part of the
code ---------------------------------------------
While Not rstProj.EOF
intTem = rstProj![project region]
If intTem <> intProjro Then
intProjro = intTem ' until it changes
Selection.InsertFile FileName:="c:\program files\microsoft
office\templates\newsletterrpl.dot", Range:="", _
ConfirmConversions:=False, Link:=False, Attachment:=False
With ActiveDocument.Bookmarks("region")
intLenRegion = .End - .Start
End With
Selection.GoTo What:=wdGoToBookmark, Name:="region"
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.TypeText Text:=rstProj![project region]
Selection.TypeParagraph
End If
rstMem.Seek "=", rstProj![project number]
If Not (rstMem.NoMatch) Then
' We have a match
Selection.InsertFile FileName:="c:\program files\microsoft
office\templates\newsletterpl.dot", Range:="", _
ConfirmConversions:=False, Link:=False, Attachment:=False
With ActiveDocument.Bookmarks("project")
intLenProject = .End - .Start
End With
Selection.GoTo What:=wdGoToBookmark, Name:="project"
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.TypeText Text:=Left(rstProj![Project] &
Space(intLenProject), intLenProject - 1)
With ActiveDocument.Bookmarks("activity_name")
intLenActivityname = .End - .Start
End With
Selection.GoTo What:=wdGoToBookmark, Name:="activity_name"
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.TypeText Text:=Left(rstMem![activity name] &
Space(intLenActivityname), intLenActivityname - 1)
With ActiveDocument.Bookmarks("city")
intLenCity = .End - .Start
End With
Selection.GoTo What:=wdGoToBookmark, Name:="city"
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.TypeText Text:=Left(rstMem![city] & Space(intLenCity),
intLenCity - 1)
With ActiveDocument.Bookmarks("state")
intLenState = .End - .Start
End With
Selection.GoTo What:=wdGoToBookmark, Name:="state"
Selection.Find.ClearFormatting
With Selection.Find
.Text = ""
.Replacement.Text = ""
.Forward = True
.Wrap = wdFindContinue
.Format = False
.MatchCase = False
.MatchWholeWord = False
.MatchWildcards = False
.MatchSoundsLike = False
.MatchAllWordForms = False
End With
Selection.TypeText Text:=Left(rstMem![state] & Space(intLenState),
intLenState - 1)
Selection.TypeParagraph
Else
MsgBox ("Unable to find site" & intTem)
End If
rstProj.MoveNext
Wend
------------end of code --------------------------------------------
--
Click to expand...
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Loop until end 1
Select Text to End of Footnote 9
Word macro that can call cells out of Excel for a find and replace 0
Need help modifying code 0
CleanUpPastedText() 1
Macros to add comments to the track changes 10
Find/Replace with Wildcards 1
how can I make yes no option button required? 2

Top