Fråga : Importen uttrycker Doc med fodrar numrerar in i tar fram

Jag har stort att uttrycka dokument, som är rutinmässigt utdelade till flera dussint folk för kommentar, och att granska. Dessa dokument skrivs alltid ut med fodrar numrerar som asigneds tilldelade using fodra numrerar automatiskt särdrag uttrycker in 2007 (starta på varje sida om igen).

What som jag skulle något liknande för att göra, är somehow importen dokumentet in i en ta fram bordlägger med sätter in för sidan numrerar, fodrar numrerar och fodratexten. Så for example, om sida 1 av det lästa dokumentet som följer:

1 jumped2 för ömt ställebrunträv över den lata hundkapplöpningen.

Hopefully som jag skulle, är kompetent till importen detta som två separata rekord och tillfogar sidan numrerar som väl.

Since som kommentarerna göras alltid på hårda, kopierar, mig måste att vara försiktig att inte göra något att styrkan förändrar uttryckadokumentet så hänvisar till återstår korrekt. Jag har försökt transfertextmetoden, genom att konvertera texten till en bordlägga först, men jag kan inte verka för att få uttrycker för att känna igen en mjuk retur för att sätta in ett nytt bordlägger ror. Plusen fodra numrerar får aldrig buren över. handstil för förmiddagen för

I bekväm rimligen kodifierar för att göra något något liknande detta, även om inte ett sakkunnigt vid något hjälpmedel.

Thanks! " klar "

Svar : Importen uttrycker Doc med fodrar numrerar in i tar fram 

1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:
54:
55:
56:
57:
58:
59:

Offentliga underImportDocWithLineNos ()
'Skapat av Helen Feddema 25-Jun-2010
'Last modified av Helen Feddema 25-Jun-2010

På felet GoTo ErrorHandler

   Dunkel appWord som Word.Application
   Dunkel doc som Word.Document
   Dunkel strDocName som stränger
   Dunkel rst som DAO.Recordset
   Dunkel intLineNo som heltal
   Dunkel dat som MSForms.DataObject
   Dunkel intLastLineNo som heltal
   Dunkla prps som anmärker
   Dunkel prp som anmärker
   
   Fastställd dat = ny MSForms.DataObject
   intLineNo = 1
   Fastställd rst = CurrentDb.OpenRecordset (”tblDocWithLineNos”)
   strDocName = ”G:\Documents\ExpertsExchange\Line numrerar Test.docx”,
   Fastställd appWord = GetObject (, ”Word.Application”)
   Uppsättning doc = appWord.Documents.Open (strDocName)
   Fastställda prps = doc.BuiltinDocumentProperties
   intLastLineNo = prps (”numrera av fodrar”),
   
   doc. Välj
   appWord.Selection.HomeKey-enhet: =wdStory

   För intLineNo = 1 till intLastLineNoen
      Med appWord.Selection
         .EndKey-enhet: =wdLinen fördjupa: =wdExtend
         . Kopiera
         dat.GetFromClipboard
         rst.AddNew
         rst! [LineNo] = intLineNoen
         rst! [LineText] = dat.GetText
         rst. Uppdatering
         .MoveRight-enhet: =wdCharacter räkning: =1
      Avsluta med
   Nästa intLineNo
   
   rst. Nära
   
ErrorHandlerExit:
   Gå ut suben

ErrorHandler:
   Om fela = 429 därefter
      'Uttrycka är inte rinnande; öppet uttrycka med CreateObject
      Fastställd appWord = CreateObject (”Word.Application”)
      Meritförteckning därefter
   Annars
      MsgBox ”felnr.: ” & Err.Number-_,
         & ”i ImportDocWithLineNos tillvägagångssätt” _,
         & ”; Beskrivning: ” & Err.Description
      Meritförteckning ErrorHandlerExit
   Avsluta om

Avsluta suben
Andra lösningar  
 
programming4us programming4us