Jak przekonwertować komentarze na przypisy lub przypisy końcowe w programie Microsoft Word?
Przypuśćmy, że w dokumencie programu Word jest wiele komentarzy, w jaki sposób można przekonwertować wszystkie te komentarze na przypisy dolne lub końcowe w tym samym czasie? W tym artykule przedstawiono metody VBA, aby to osiągnąć.
Konwertuj komentarze na przypisy lub przypisy końcowe za pomocą kodu VBA
Konwertuj komentarze na przypisy lub przypisy końcowe za pomocą kodu VBA
Poniższe kody VBA mogą pomóc w szybkiej konwersji wszystkich komentarzy w bieżącym dokumencie na przypisy dolne lub końcowe. Wykonaj następujące czynności.
1. Otwórz dokument zawierający komentarze, które zamienisz na przypisy dolne lub końcowe, naciśnij inny + F11 klawisze, aby otworzyć Microsoft Visual Basic for Applications okno.
2. w Microsoft Visual Basic for Applications okno, kliknij wstawka > Moduł. Następnie skopiuj poniższy kod VBA do okna modułu.
Kod VBA: Konwertuj komentarze na przypisy:
Sub ConvertCommentsToFootnotes()
Dim xComm As Comment
Dim xCommRange As Range
Dim xDoc As Document
Application.ScreenUpdating = False
Set xDoc = ActiveDocument
For Each xComm In xDoc.Comments
Set xCommRange = xComm.Range
xDoc.Footnotes.Add xComm.Scope, , xCommRange.Text
xComm.Delete
Next
Application.ScreenUpdating = True
End Sub
Kod VBA: Konwertuj komentarze na przypisy końcowe:
Sub ConvertCommentsToEndnotes()
Dim xComm As Comment
Dim xCommRange As Range
Dim xDoc As Document
Application.ScreenUpdating = False
Set xDoc = ActiveDocument
For Each xComm In xDoc.Comments
Set xCommRange = xComm.Range
xDoc.Endnotes.Add xComm.Scope, , xCommRange.Text
xComm.Delete
Next
Application.ScreenUpdating = True
End Sub
3. wciśnij F5 klucz do uruchomienia kodu.
Następnie wszystkie komentarze w bieżącym dokumencie są natychmiast konwertowane na przypisy dolne lub końcowe na podstawie zastosowanego kodu VBA.
Podobne artykuły:
- Jak dodać nową stronę lub tekst po przypisach końcowych w dokumencie Word?
- Jak zaznaczyć wszystkie przypisy w dokumencie programu Word?
Najlepsze narzędzia biurowe
Kutools dla Worda - Podnieś swoje doświadczenie ze słowami dzięki Over 100 Niezwykłe funkcje!
🤖 Kutools Asystent AI: Zmień swoje pisanie dzięki AI - Generuj zawartość / Przepisz tekst / Podsumowanie dokumentów / Zapytaj o informacje na podstawie Dokumentu, wszystko w programie Word
📘 Znajomość dokumentów: Podziel strony / Scal dokumenty / Eksportuj zaznaczenie w różnych formatach (PDF/TXT/DOC/HTML...) / Wsadowa konwersja do formatu PDF / Eksportuj strony jako obrazy / Drukuj wiele plików jednocześnie...
✏ Edycja treści: Znajdź i zamień partii w wielu plikach / Zmień rozmiar wszystkich zdjęć / Transponuj wiersze i kolumny tabeli / Konwertuj tabelę na tekst...
🧹 Łatwe czyszczenie: Wymień Dodatkowe przestrzenie / Podziały sekcji / Wszystkie nagłówki / Pola tekstowe / Hiperłącza / Więcej narzędzi do usuwania znajdziesz na naszej stronie Usuń grupę...
➕ Kreatywne wstawki: Wstawić Tysiące separatorów / Pola wyboru / Przyciski Radio / Kod QR / kod kreskowy / Tabela linii ukośnych / Podpis równania / Tytuł Zdjęcia / Podpis tabeli / Wiele zdjęć / Odkryj więcej w Wstaw grupę...
🔍 Precyzyjne wybory: Punktowy konkretne strony / stoły / kształty / nagłówki akapitów / Ulepsz nawigację za pomocą jeszcze Wybierz funkcje...
⭐ Ulepszenia gwiazd: Nawiguj szybko do dowolnej lokalizacji / automatyczne wstawianie powtarzającego się tekstu / płynnie przełączaj się pomiędzy oknami dokumentów / 11 Narzędzia konwersji...