Replies

Thanks for your reply. I think that I am stuck with my strays then, because the actual server that these old replicas were on has been replaced by another, so there is no chance of getting the path to the folder back again.

Never mind – its not a life threatenins situation. I can live with it.

Kind Regards

I have been watching this post with great interest as I have this very problem myself. I tried finding the MSysReplicas and was only successful in doing so when I took a copy of my design master (so it could experiment) and placed it on my desktop. However when I tried to delete the replicas from this table they wouldnt go. When I tried to show system files on the genuine design master the tables will not show at all.

So I will be interested to follow this post and see if anyone comes up with a result.

Kerry

WOW! Now this is going to be interesting. Something I havent seen or done before. I will paw over this tonight at home when I am uninterrupted.

Thanks Hans ( You always teach me something new!)

Hi Hans

Hey if you have a better idea go for it! I inherited this godawful thing and have already culled a lot of unnecessary stuff.

Thanks Steve. I will have to learn about Indirect now.

Did you see the tables at the bottom of the monthly stats sheet? Can I do this here as well? If so, start me off with rows 106 – 107 – 108 and I and then I can probably work the rest out for myself.

Sensational!

Thanks everyone.

Now ya talkin!

I also looked at the switch function — with some work that perhaps would have done the trick too.

Thanks

The screen dump shows [ ‘s that arent really there. So the dump I sent before is accurate, just disregard the [ ] at the beginning and end.

Sorry to be a pain but I did exactly that but still have an error.

I think the key is to look at the part that says syntax error comma in query expression.

sorry I am really confused now. Can you just type out what I should put inthe Control please?

Thanks for this but I get this error,

I have cut the query down to make it clearer.

Criteria has two options – Local Inventory or Central Office Registered. These are too long for my labels I am printing so I want Local Inventory to change to Minor Asset and Central Office Registered to change to Major Asset.

I hope this is clearer.

SELECT tbl_CurrentAssets.Item, tbl_CurrentAssets.Criteria
FROM tbl_CurrentAssets;

Just one little thing….. the split documents have a header that says “test”. How can I change this?

You understood my babble!! Thanks Hans. This is SO much better! It even puts the newly created documents in the same folder as the original large file. You are brilliant! I cant thank you enough!

Kerry

Hi Hans

I have come back to the original post hoping that you can recall what we did here. I am finding it hard to explain what I am trying to achieve so please bare with me here.

I have been using this macro as you suggested, but the process is quite cumbersome. I have to keep the .dot template on a flash drive and refer to it in my large document. I drag this module into my large document and run it. The Drive letter can vary from machine to Machine, so I have to edit the line Set docNew = Documents.Add(Template:=”F:split template.dot”) each time I run it. I need to teach someone else how to do this and I have to admit I have to think hard to remeber what to do everytime and it is a bit hit and miss.

The split chapters would be using the same template style as the document it is split from. Is there a way to make the split chapters simply be formatted the same? There by eliminating some of the manual handling of the macro.

Option Explicit

Sub SplitLevel2()
Dim docCur As Document
Dim docNew As Document
Dim rngTitle As Range
Dim rngChapter As Range
Dim rngTarget As Range
Dim lngStart As Long
Dim lngEnd As Long
Dim lngCnt As Long
Dim strChapter As String

On Error GoTo ErrHandler

Application.ScreenUpdating = False

‘ Source document
Set docCur = ActiveDocument
‘ Set up to find Header 2
With docCur.Content.Find
.Text = “”
.ClearFormatting
.Style = wdStyleHeading2
.Format = True
‘ Find each occurrence
Do While .Execute
‘ Start and end of range
lngStart = lngEnd
lngEnd = .Parent.Start
‘ Are we at the beginning?
If lngCnt = 0 Then
‘ If so, define range with title and TOC
Set rngTitle = docCur.Range(Start:=lngStart, End:=lngEnd)
Else
‘ Else, define chapter range
Set rngChapter = docCur.Range(Start:=lngStart, End:=lngEnd)
‘ Create new document
‘Set docNew = Documents.Add
Set docNew = Documents.Add(Template:=”F:split template.dot”)

‘ Copy and paste title/TOC range to new doc
rngTitle.Copy
docNew.Content.Paste
‘ Copy and paste chapter range at end of new doc
rngChapter.Copy
Set rngTarget = docNew.Content
rngTarget.Collapse Direction:=wdCollapseEnd
rngTarget.Paste
‘ Update TOC
docNew.TablesOfContents(1).Update
‘ Save new doc
docNew.SaveAs strChapter
‘ And close it
docNew.Close
End If
‘ Set up name for document in next round
strChapter = .Parent.Text
strChapter = Left(strChapter, Len(strChapter) – 1)
‘ Increase counter
lngCnt = lngCnt + 1
Loop
‘ Handle last chapter separately
Set rngChapter = docCur.Range(Start:=lngEnd, End:=docCur.Content.End)
‘ Create new document
‘Set docNew = Documents.Add
Set docNew = Documents.Add(Template:=”F:split template.dot”)
‘ Copy and paste title/TOC range to new doc
rngTitle.Copy
docNew.Content.Paste
‘ Copy and paste chapter range at end of new doc
rngChapter.Copy
Set rngTarget = docNew.Content
rngTarget.Collapse Direction:=wdCollapseEnd
rngTarget.Paste
‘ Update TOC
docNew.TablesOfContents(1).Update
‘ Save new doc
docNew.SaveAs strChapter
‘ And close it
docNew.Close
End With

ExitHandler:
Application.ScreenUpdating = True
Exit Sub

ErrHandler:
MsgBox Err.Description, vbExclamation
Resume ExitHandler
End Sub