Condividi:        

Word - Testi alternativi su una riga

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Word - Testi alternativi su una riga

Postdi tutamimetica » 15/07/08 19:37

Salve. La mia è solo una curiosità, ma penso che sia impossibile da risolvere. Ipotizziamo che sto scrivendo un documento: io sottoscritto ....... madre/padre ............ quel madre padre è possibile scriverlo su una riga sovrapposta tipo un rapporto in matematica?
Grazie Tutamimetica.
tutamimetica
Utente Senior
 
Post: 209
Iscritto il: 10/06/08 17:25

Sponsor
 

Re: Word - alternative su una riga

Postdi Dylan666 » 22/07/08 06:32

Non so se ho capito ma provo: provata l'opzione apice?
Avatar utente
Dylan666
Moderatore
 
Post: 39988
Iscritto il: 18/11/03 16:46

Re: Word - alternative su una riga

Postdi tutamimetica » 27/07/08 08:24

Grazie di aver risposto. Il comando consigliato non va bene. Forse non mi sono espresso bene nella mia richiesta.
Pensa a una domanda: a un certo punto c'é una doppia richiesta, per esempio "di avvalersi e di non avvalersi". Io pensavo di scriverli una sopra l'altra tipo apice e pedice in modo da permettere a chi compila di depennare la parte non richiesta.
Io penso che non sia possibile, comunque la mia è solo curriosità e desiderio di approfondimento.
Grazie tuta
tutamimetica
Utente Senior
 
Post: 209
Iscritto il: 10/06/08 17:25

Re: Word - alternative su una riga

Postdi Anthony47 » 29/07/08 20:48

La domanda di tuta mi aveva incuriosito, perche' ricordavo vagamente che Word dispone di un "Editor di equazioni" che consente di inserire il testo in forma di frazione (con qualcosa al numeratore e altro al denominatore); in questo modo si puo' ottenere quanto richiesto.
Piu' in dettaglio:
-andare nella posizione dove si vuole mettere la "frazione"
-Menu /Inserisci /Campo; dall' elenco scegliere "Eq" (sta' per Equazione)
-premere Equation editor
-se non e' gia' installato, Word cerchera' di installare ora l' Equation editor e per questo vorra' il cd di installazione.
-potrete a questo punto scegliere il simbolo "frazione" (io lo trovo vicino alla radice quadrata) e potrete digitare il numeratore e il denominatore.
Vi anticipo che non ho trovato come "editare" le frazioni introdotte, per cui correggere si fa cancellando il simbolo inserito e reintroducendolo.

Vista la ...praticita' della procedura manuale ho sviluppato una macro che puo' aiutare:
Codice: Seleziona tutto
Sub Fratto()
'inserisce una frazione da Inputbox
Dim Sopra As String, Sotto As String
ActiveWindow.View.ShowFieldCodes  = True
Sopra = InputBox("Numeratore?")
Sotto = InputBox("Denominatore?")
With Selection
  .TypeText Text:="  "
  .MoveLeft Unit:=wdCharacter, Count:=1
  .Collapse (wdCollapseStart)
  .Font.Size = (.Font.Size) * 1.0  '<<< Font size della frazione rispetto lo std, es 0.8 riduce
  .Fields.Add  Range:=Selection.Range,  Type:=wdFieldEmpty, _
    PreserveFormatting:=False, Text:= "EQ \f(" & Sopra & ";" & Sotto & ")"
  .MoveLeft Unit:=wdCharacter, Count:=2
  .Delete
  .Fields.Update
End With
ActiveWindow.View.ShowFieldCodes  = False
Selection.MoveRight Unit:=wdCharacter, Count:=2
End Sub

Posizionate il cursore dove si vuole inserire la frazione, lanciate la macro; vi sara' richiesto il numeratore e il denominatore e avverra' l' inserimento.
Potete variare il size dei caratteri di frazione cambiando il coefficiente (ora posto a 1) nell' istruzione marcata <<<.

Sono curioso di sapere se a qualcuno interessa...

Ciao.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Word - alternative su una riga

Postdi Dylan666 » 29/07/08 20:53

Altrimenti co sono sempre le "Caselle di testo" :D
Avatar utente
Dylan666
Moderatore
 
Post: 39988
Iscritto il: 18/11/03 16:46

Re: Word - alternative su una riga

Postdi Anthony47 » 29/07/08 23:26

Visto il successo della macro precedente e gli innumerevoli tentativi di imitazione, ne ho sviluppato una ulteriore, pensata per processare un documento completo dove le alternative sono gia' inserite nel testo in forma "#Testo 1/Testo 2#" (senza gli apici); cioe' utilizzando # come marker di inizio/fine stringa da convertire in frazione, con i termini Numeratore e Denominatore separati dalla /.
Insomma un testo del tipo #il/la# sottoscritt#o/a#, residente a ..... #accetta/non accetta# etc etc

Se nel testo vi serve il carattere #, allora potete usare un marker diverso (anche piu' caratteri) e modificare l' istruzione segnata con <<<
Il codice:
Codice: Seleziona tutto
Sub Fract_doc()
'In un doc esistente converte in frazioni le sequenze #Testo 1/Testo 2#
' # e' il marker di inizio/fine blocco, / e' il separatore dei termini
' Il marker puo' essere 1 o piu' crt, modificabili nel codice (vedi <<<)
Dim Sopra As String, Sotto As String
Dim CCount As Integer, CBloc As Integer, StdH As Integer
Dim Mrk As String
'
Mrk = "#"     '<<< marker di blocco
'
Do
Selection.HomeKey unit:=wdStory
CCount = Selection.MoveEndUntil(Cset:=Mrk)
If CCount = 0 Then
 If CBloc > 0 Then
' msg = "Convertite N." & CBloc & " stringhe #Parola/Parola#"
 CCount = MsgBox("Convertite N." & CBloc & " stringhe #Parola/Parola#", , "(c) by Anthony")
 Exit Sub
 Else
 MsgBox ("Non sono state trovate stringhe #Parola/Parole# da convertire")
 Exit Sub
 End If
End If
Selection.MoveRight unit:=wdCharacter, Count:=1
Selection.MoveRight unit:=wdCharacter, Count:=Len(Mrk), Extend:=wdExtend
StdH = Selection.Font.Size
Selection.Delete            'delete #
'Cerca blocco Parola/Parola#
CCount = Selection.MoveEndUntil(Cset:=Mrk, Count:=200)
If CCount = 0 Then
MsgBox ("Non e' stato trovato il crt di fine blocco (#)" & vbCrLf & "Abort procedura")
Selection.TypeText Text:=Mrk    'restore #
Exit Sub
End If

'Riformatta a frazione una selezione separata da "/"
'
CBloc = CBloc + 1
ActiveWindow.View.ShowFieldCodes = True
With Selection
  Sopra = Trim(Split(Selection, "/")(0))
  Sotto = Trim(Split(Selection, "/")(1))
  .Font.Size = StdH * 0.8    '<<< Font size della frazione rispetto lo std, es 0.8 riduce
  .Fields.Add Range:=Selection.Range, Type:=wdFieldEmpty, _
    PreserveFormatting:=False, Text:="EQ \f(" & Sopra & ";" & Sotto & ")"
  .MoveLeft unit:=wdCharacter, Count:=2
  .Delete
  .Fields.Update
End With
ActiveWindow.View.ShowFieldCodes = False
CCount = Selection.MoveEndUntil(Cset:=Mrk)
Selection.MoveRight unit:=wdCharacter, Count:=1
Selection.MoveRight unit:=wdCharacter, Count:=Len(Mrk), Extend:=wdExtend
Selection.Delete            'delete #
Loop
End Sub


La macro non gestisce tutti i possibili errori, quindi fate sempre 2 copie di backup.

Ciao.
Avatar utente
Anthony47
Moderatore
 
Post: 19196
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Word - Testi alternativi su una riga

Postdi tutamimetica » 30/07/08 10:50

Grazie. Oggi provo (spero) e poi ti farò sapere.
Comunque Antony sei gentilissimo e professionalmente sei il massimo.
Grazie di nuovo.
Tuta
tutamimetica
Utente Senior
 
Post: 209
Iscritto il: 10/06/08 17:25


Torna a Applicazioni Office Windows


Topic correlati a "Word - Testi alternativi su una riga":


Chi c’è in linea

Visitano il forum: Nessuno e 102 ospiti