3 effektive metoder for å erstatte tekst i overskriften på Word-dokumentet

I denne sost, vil det være 3 effektive metoder som lar deg erstatte tekst i overskriften på Word-dokumentet. 

For noen dokumenter er topptekst en viktig komponent i hele enheten. Og Most over tid er tekst i topptekst satt likt gjennom hele dokumentet, for hver overskrift i dokumentet er koblet til hverandre. Det finnes imidlertid unntak når et dokument kan ha flere seksjoner med frakoblede overskrifter.

Følgende er 3 måter du kan velge i henhold til et spesifikt scenario.

Metode 1: Erstatt topptekst i dokumentet med kun én seksjon

Normalt er et helt dokument en del med mindre du deler det manuelt. I slike tilfeller er det enkelt å endre teksten i overskriften.

1. Først dobbeltklikker du på overskriftsområdet for å gå inn i redigeringsmodus.
2. Erstatt deretter tekst og klikk på "Lukk topptekst og bunntekst"-kommandoen for å avslutte.

Den samme teksten i hver overskrift er endret nå.

Metode 2: Erstatt topptekst i dokument med flere seksjoner med frakoblede overskrifter

Her er det andre scenariet der et dokument, oftere enn ikke, inneholder flere seksjoner. Som standard er overskrifter i hver seksjon satt i "Link til forrige". Men av viss etterspørsel kan du fjerne koblingen til overskrifter for å lage forskjellige overskrifter i et dokument.

Likevel kan det fortsatt være en del tekst som forblir den samme i alle overskrifter. For å erstatte dem under slike omstendigheter, må du bruke følgende makro for å gjøre jobben.

1. Først av alt, åpne VBA editor ved å trykke "Alt + F11".
2. For det andre klikker du på "Normal" prosjekt i venstre kolonne.
3. For det tredje, klikk på "Sett inn" og velg også "Modul" på rullegardinmenyen.
4. Dobbeltklikk deretter på modulen for å åpne den og lim inn disse kodene der:

Sub ReplaceTextInHeaderInADoc()
  Dim nPageNum As Integer
  Dim objDoc As Document
  Dim strFindText As String
  Dim strReplaceText As String
 
  Set objDoc = ActiveDocument
  strFindText = InputBox("Enter text to be found:", "Find Text")
  strReplaceText = InputBox("Enter new text:", "Replace Text")
 
  For nPageNum = 1 To Selection.Information(wdNumberOfPagesInDocument)
    Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nPageNum
    Application.Browser.Target = wdBrowsePage
    objDoc.Bookmarks("\page").Range.Select
    With objDoc.ActiveWindow
      .ActivePane.View.SeekView = wdSeekCurrentPageHeader
      With .Selection.Find
        .ClearFormatting
        .Text = strFindText
        .Replacement.ClearFormatting
        .Replacement.Text = strReplaceText
        .Wrap = wdFindContinue
        .Execute Replace:=wdReplaceAll
      End With
    End With
  Next nPageNum
  objDoc.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
End Sub

5. Trykk deretter "F5" for å kjøre makroen.
6. I "Finn tekst"-boksen skriver du inn teksten som skal finne og erstattes.
7. Og klikk "OK" for å gå videre.
8. Nå i "Erstatt tekst"-boksen, skriv inn ny tekst og klikk "OK" for å fortsette.

Metode 3: Erstatt topptekst i flere dokumenter

Likevel trenger vi makro for å utføre batchbehandlingen.

1. Før alt, ordne alt tarfå dokumenter i samme mappe.
2. Gjenta trinnene i metode 2 for å installere og kjøre en makro.
3. Bytt deretter ut makro med denne:

Sub ReplaceTextInHeaderInMultiDoc()
  Dim StrFolder As String
  Dim strFile As String
  Dim objDoc As Document
  Dim dlgFile As FileDialog
  Dim strFindText As String
  Dim strReplaceText As String
 
  Set dlgFile = Application.FileDialog(msoFileDialogFolderPicker)
 
  With dlgFile
    If .Show = -1 Then
      StrFolder = .SelectedItems(1) & "\"
    Else
      MsgBox "Please select the target folder."
      Exit Sub
    End If
  End With
 
  strFindText = InputBox("Enter text to be found:", "Find Text")
  strReplaceText = InputBox("Enter new text:", "Replace Text")
 
  strFile = Dir(StrFolder & "*.docx", vbNormal)
 
  While strFile <> ""
    Set objDoc = Documents.Open(FileName:=StrFolder & strFile)
    For nPageNum = 1 To Selection.Information(wdNumberOfPagesInDocument)
      Selection.GoTo What:=wdGoToPage, Which:=wdGoToNext, Name:=nPageNum
      Application.Browser.Target = wdBrowsePage
      objDoc.Bookmarks("\page").Range.Select
      With objDoc.ActiveWindow
        .ActivePane.View.SeekView = wdSeekCurrentPageHeader
        With .Selection.Find
          .ClearFormatting
          .Text = strFindText
          .Replacement.ClearFormatting
          .Replacement.Text = strReplaceText
          .Wrap = wdFindContinue
          .Execute Replace:=wdReplaceAll
        End With
      End With
    Next nPageNum
    objDoc.ActiveWindow.ActivePane.View.SeekView = wdSeekMainDocument
    objDoc.Save
    objDoc.Close
    strFile = Dir()
  Wend
End Sub

4. I "Bla gjennom"-vinduet velger du tarfå hvor du legger dokumenter.
5. Klikk på "OK".
6. Og i boksene "Finn tekst" og "Erstatt tekst", skriv inn tekster og klikk "OK".

Når sikkerhetskopiering mislykkes

Ganske ofte vil vi foreslå folk å sikkerhetskopiere med jevne mellomrom. Likevel kan sikkerhetskopier mislykkes fra tid til annen. Og her er vanlige årsaker til sikkerhetskopieringsfeil, dårlige medier og korrupsjon i sikkerhetskopieringsprosessen. Så neste gang du sikkerhetskopierer dokumenter, vær oppmerksom på de to aspektene. Og det beste forebyggende tiltaket bør være å få en docx gjenoppretting verktøy på forhånd.

Forfatterintroduksjon:

Vera Chen er en datagjenopprettingsekspert innen DataNumen, Inc., som er verdensledende innen datagjenopprettingsteknologier, inkludert xls fikse og pdf reparere programvareprodukter. For mer informasjon besøk www.datanumen. Med